procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-directory, vc-update-change-log): Throw an error on the attempt to

Browse source 
do it over Tramp.  This is not yet supported.
This commit is contained in:
André Spiegel 2005-09-10 10:55:42 +00:00
parent 92752c3ada
commit ca3c209618
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc.el
View file

@ -2259,6 +2259,8 @@ With prefix arg READ-SWITCHES, specify a value to override
(interactive "DDired under VC (directory): \nP")
(let ((vc-dired-switches (concat vc-dired-listing-switches
(if vc-dired-recurse "R" ""))))
(if (eq (string-match tramp-file-name-regexp dir) 0)
(error "Sorry, vc-directory does not work over Tramp"))
(if read-switches
(setq vc-dired-switches
(read-string "Dired listing switches: "
@ -2809,6 +2811,9 @@ log entries should be gathered."
;; it should find all relevant files relative to
;; the default-directory.
nil)))
(dolist (file (or args (list default-directory)))
(if (eq (string-match tramp-file-name-regexp file) 0)
(error "Sorry, vc-update-change-log does not work over Tramp")))
(vc-call-backend (vc-responsible-backend default-directory)
'update-changelog args))