Kai Gro�johann wrote: > With your patch, things rely on the current working directory being > the same directory as the filename given. > > How about changing (file-name-nondirectory path) to something which > gives the path relative to the current directory? Maybe > (file-relative-name file default-directory)? > > I used file instead of path as the first arg for file-relative-name > because default-directory also includes the user/host prefix stuff. > > What do you think?
Sounds good. So my patch changes to the one shown below, correct? I've switched to this version of the patch, and it seems to work. -- Francis Litterio [EMAIL PROTECTED] http://world.std.com/~franl/ GPG and PGP public keys available on keyservers. --- tramp-vc.el 17 Jun 2002 10:57:20 -0000 2.2 +++ tramp-vc.el 27 Nov 2002 18:04:15 -0000 @@ -40,6 +40,14 @@ ;; -- vc -- +(defcustom tramp-vc-use-relative-pathnames nil + "*If non-nil, supply a relative pathname to the version control backend +command, otherwise supply an absolute pathname. Use this if your version +control system doesn't accept absolute pathnames." + :group 'tramp + :type 'boolean) + + ;; This used to blow away the file-name-handler-alist and reinstall ;; TRAMP into it. This was intended to let VC work remotely. It didn't, ;; at least not in my XEmacs 21.2 install. @@ -174,7 +182,10 @@ (path (when file (tramp-file-name-path v)))) (setq squeezed (delq nil (copy-sequence flags))) (when file - (setq squeezed (append squeezed (list path)))) + (setq squeezed (append squeezed (list + (if tramp-vc-use-relative-pathnames + (file-relative-name file +default-directory) + path))))) (let ((w32-quote-process-args t)) (when (eq okstatus 'async) (message "Tramp doesn't do async commands, running synchronously.")) _______________________________________________ Tramp-devel mailing list [EMAIL PROTECTED] http://mail.nongnu.org/mailman/listinfo/tramp-devel
