Mercurial > emacs
comparison lisp/vc.el @ 87996:24ee99ee0e23
* 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.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sat, 26 Jan 2008 14:53:55 +0000 |
| parents | 657fb7a7fe8e |
| children | 679daa89677a |
comparison
equal
deleted
inserted
replaced
| 87995:e576feac5b90 | 87996:24ee99ee0e23 |
|---|---|
| 2569 With prefix arg READ-SWITCHES, specify a value to override | 2569 With prefix arg READ-SWITCHES, specify a value to override |
| 2570 `dired-listing-switches' when generating the listing." | 2570 `dired-listing-switches' when generating the listing." |
| 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: " |
| 2579 vc-dired-switches))) | 2577 vc-dired-switches))) |
| 2580 (require 'dired) | 2578 (require 'dired) |
| 3227 (t | 3225 (t |
| 3228 ;; Don't supply any filenames to backend; this means | 3226 ;; Don't supply any filenames to backend; this means |
| 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 |
| 3238 ;;; The default back end. Assumes RCS-like revision numbering. | 3233 ;;; The default back end. Assumes RCS-like revision numbering. |
| 3239 | 3234 |