Mercurial > emacs
changeset 65405:ae5763b55d33
(vc-directory, vc-update-change-log): Throw an error on the attempt to
do it over Tramp. This is not yet supported.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Sat, 10 Sep 2005 10:55:42 +0000 |
| parents | b50dda01c73d |
| children | a37b12530528 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Sat Sep 10 10:55:14 2005 +0000 +++ b/lisp/vc.el Sat Sep 10 10:55:42 2005 +0000 @@ -2259,6 +2259,8 @@ (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 @@ ;; 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))