2259 |
(interactive "DDired under VC (directory): \nP") |
(interactive "DDired under VC (directory): \nP") |
2260 |
(let ((vc-dired-switches (concat vc-dired-listing-switches |
(let ((vc-dired-switches (concat vc-dired-listing-switches |
2261 |
(if vc-dired-recurse "R" "")))) |
(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")) |
2264 |
(if read-switches |
(if read-switches |
2265 |
(setq vc-dired-switches |
(setq vc-dired-switches |
2266 |
(read-string "Dired listing switches: " |
(read-string "Dired listing switches: " |
2811 |
;; it should find all relevant files relative to |
;; it should find all relevant files relative to |
2812 |
;; the default-directory. |
;; the default-directory. |
2813 |
nil))) |
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"))) |
2817 |
(vc-call-backend (vc-responsible-backend default-directory) |
(vc-call-backend (vc-responsible-backend default-directory) |
2818 |
'update-changelog args)) |
'update-changelog args)) |
2819 |
|
|