aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2008-01-26 14:53:55 +0000
committerMichael Albinus2008-01-26 14:53:55 +0000
commit65b014077a58eb191c45f5e73c1be775a491f7c0 (patch)
tree748f32fa17cd5fe690f1bcd8110299d38d7a8973
parentce0ee994e482b5808ee7a285fd72765a79746f4b (diff)
downloademacs-65b014077a58eb191c45f5e73c1be775a491f7c0.tar.gz
emacs-65b014077a58eb191c45f5e73c1be775a491f7c0.zip
* 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.
-rw-r--r--lisp/vc.el5
1 files changed, 0 insertions, 5 deletions
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
2571 (interactive "DDired under VC (directory): \nP") 2571 (interactive "DDired under VC (directory): \nP")
2572 (let ((vc-dired-switches (concat vc-dired-listing-switches 2572 (let ((vc-dired-switches (concat vc-dired-listing-switches
2573 (if vc-dired-recurse "R" "")))) 2573 (if vc-dired-recurse "R" ""))))
2574 (if (eq (string-match tramp-file-name-regexp dir) 0)
2575 (error "Sorry, vc-directory does not work over Tramp"))
2576 (if read-switches 2574 (if read-switches
2577 (setq vc-dired-switches 2575 (setq vc-dired-switches
2578 (read-string "Dired listing switches: " 2576 (read-string "Dired listing switches: "
@@ -3229,9 +3227,6 @@ log entries should be gathered."
3229 ;; it should find all relevant files relative to 3227 ;; it should find all relevant files relative to
3230 ;; the default-directory. 3228 ;; the default-directory.
3231 nil))) 3229 nil)))
3232 (dolist (file (or args (list default-directory)))
3233 (if (eq (string-match tramp-file-name-regexp file) 0)
3234 (error "Sorry, vc-update-change-log does not work over Tramp")))
3235 (vc-call-backend (vc-responsible-backend default-directory) 3230 (vc-call-backend (vc-responsible-backend default-directory)
3236 'update-changelog args)) 3231 'update-changelog args))
3237 3232