/[emacs]/emacs/lisp/vc.el
ViewVC logotype

Diff of /emacs/lisp/vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.396 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.397 by spiegel, Sat Sep 10 10:55:42 2005 UTC
# Line 2259  With prefix arg READ-SWITCHES, specify a Line 2259  With prefix arg READ-SWITCHES, specify a
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: "
# Line 2809  log entries should be gathered." Line 2811  log entries should be gathered."
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    

Legend:
Removed from v.1.396  
changed lines
  Added in v.1.397

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26