diff options
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index a0b6ffa0ad8..8e87cb50eb4 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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)) |