From ca3c209618a7c34605d829be608b1a48b0dfcc60 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Sat, 10 Sep 2005 10:55:42 +0000 Subject: [PATCH] (vc-directory, vc-update-change-log): Throw an error on the attempt to do it over Tramp. This is not yet supported. --- lisp/vc.el | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- 2.39.2