diff options
| author | Michael Albinus | 2008-01-26 14:53:55 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-01-26 14:53:55 +0000 |
| commit | 65b014077a58eb191c45f5e73c1be775a491f7c0 (patch) | |
| tree | 748f32fa17cd5fe690f1bcd8110299d38d7a8973 | |
| parent | ce0ee994e482b5808ee7a285fd72765a79746f4b (diff) | |
| download | emacs-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.el | 5 |
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 | ||