# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1201359235 0
# Node ID 24ee99ee0e236d9d8ffb1c2aba76494f52324833
# Parent  e576feac5b90ddea6af6e01749e40650393c146e
* 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 -r e576feac5b90 -r 24ee99ee0e23 lisp/vc.el
--- a/lisp/vc.el	Sat Jan 26 14:52:01 2008 +0000
+++ b/lisp/vc.el	Sat Jan 26 14:53:55 2008 +0000
@@ -2571,8 +2571,6 @@
   (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 @@
           ;; 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))