[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Patch: makes tramp-vc.el work w/ CVS servers that reject absolute pa
Re: Patch: makes tramp-vc.el work w/ CVS servers that reject absolute pathnames
Mon, 02 Dec 2002 11:48:58 -0500
Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2 (i386-msvc-nt5.0.2195)
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.
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)))
- (setq squeezed (append squeezed (list path))))
+ (setq squeezed (append squeezed (list
+ (if tramp-vc-use-relative-pathnames
+ (file-relative-name file
(let ((w32-quote-process-args t))
(when (eq okstatus 'async)
(message "Tramp doesn't do async commands, running synchronously."))
|[Prev in Thread]
||[Next in Thread]|
- Re: Patch: makes tramp-vc.el work w/ CVS servers that reject absolute pathnames,
Francis Litterio <=