From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 26 Jan 2008 14:53:55 +0000 (+0000)
Subject: * vc.el (vc-directory, vc-update-change-log): Remove check for
X-Git-Tag: emacs-pretest-23.0.90~8392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65b014077a58eb191c45f5e73c1be775a491f7c0;p=emacs.git

* vc.el (vc-directory, vc-update-change-log): Remove check for
Tramp.  Both functions work for it, though pretty slow
(`vc-directory').  Maybe the implementation can be optimized.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 35c371a6038..0069c124866 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2571,8 +2571,6 @@ 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: "
@@ -3229,9 +3227,6 @@ 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))