# HG changeset patch # User Andr Spiegel # Date 1126349742 0 # Node ID ae5763b55d3392873ee9bb53ae68256b2cd560fe # Parent b50dda01c73df86c670d3880bec012bc6e831743 (vc-directory, vc-update-change-log): Throw an error on the attempt to do it over Tramp. This is not yet supported. diff -r b50dda01c73d -r ae5763b55d33 lisp/vc.el --- 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))