[Emacs-diffs] Changes to emacs/lisp/vc.el

[André Spiegel]

Index: emacs/lisp/vc.el
diff -c emacs/lisp/vc.el:1.396 emacs/lisp/vc.el:1.397
*** emacs/lisp/vc.el:1.396      Sat Aug  6 22:13:43 2005
--- emacs/lisp/vc.el    Sat Sep 10 10:55:42 2005
***************
*** 2259,2264 ****
--- 2259,2266 ----
    (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,2814 ****
--- 2811,2819 ----
            ;; 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))