Mercurial > emacs
comparison lisp/vc.el @ 65405:ae5763b55d33
(vc-directory, vc-update-change-log): Throw an error on the attempt to
do it over Tramp. This is not yet supported.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Sat, 10 Sep 2005 10:55:42 +0000 |
| parents | 41bb365f41c4 |
| children | 4d1085b02d64 de684325b343 10fe5fadaf89 |
comparison
equal
deleted
inserted
replaced
| 65404:b50dda01c73d | 65405:ae5763b55d33 |
|---|---|
| 2257 With prefix arg READ-SWITCHES, specify a value to override | 2257 With prefix arg READ-SWITCHES, specify a value to override |
| 2258 `dired-listing-switches' when generating the listing." | 2258 `dired-listing-switches' when generating the listing." |
| 2259 (interactive "DDired under VC (directory): \nP") | 2259 (interactive "DDired under VC (directory): \nP") |
| 2260 (let ((vc-dired-switches (concat vc-dired-listing-switches | 2260 (let ((vc-dired-switches (concat vc-dired-listing-switches |
| 2261 (if vc-dired-recurse "R" "")))) | 2261 (if vc-dired-recurse "R" "")))) |
| 2262 (if (eq (string-match tramp-file-name-regexp dir) 0) | |
| 2263 (error "Sorry, vc-directory does not work over Tramp")) | |
| 2262 (if read-switches | 2264 (if read-switches |
| 2263 (setq vc-dired-switches | 2265 (setq vc-dired-switches |
| 2264 (read-string "Dired listing switches: " | 2266 (read-string "Dired listing switches: " |
| 2265 vc-dired-switches))) | 2267 vc-dired-switches))) |
| 2266 (require 'dired) | 2268 (require 'dired) |
| 2807 (t | 2809 (t |
| 2808 ;; Don't supply any filenames to backend; this means | 2810 ;; Don't supply any filenames to backend; this means |
| 2809 ;; it should find all relevant files relative to | 2811 ;; it should find all relevant files relative to |
| 2810 ;; the default-directory. | 2812 ;; the default-directory. |
| 2811 nil))) | 2813 nil))) |
| 2814 (dolist (file (or args (list default-directory))) | |
| 2815 (if (eq (string-match tramp-file-name-regexp file) 0) | |
| 2816 (error "Sorry, vc-update-change-log does not work over Tramp"))) | |
| 2812 (vc-call-backend (vc-responsible-backend default-directory) | 2817 (vc-call-backend (vc-responsible-backend default-directory) |
| 2813 'update-changelog args)) | 2818 'update-changelog args)) |
| 2814 | 2819 |
| 2815 (defun vc-default-update-changelog (backend files) | 2820 (defun vc-default-update-changelog (backend files) |
| 2816 "Default implementation of update-changelog. | 2821 "Default implementation of update-changelog. |