[Emacs-diffs] Changes to emacs/lisp/vc-dir.el,v

[Andreas Schwab]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Andreas Schwab <schwab> 08/06/29 12:50:20

Index: vc-dir.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-dir.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- vc-dir.el   28 Jun 2008 07:30:46 -0000      1.7
+++ vc-dir.el   29 Jun 2008 12:50:20 -0000      1.8
@@ -990,9 +990,10 @@
     (list vc-dir-backend files only-files-list state model)))
 
 ;;;###autoload
-(defun vc-dir (dir backend)
+(defun vc-dir (dir &optional backend)
   "Show the VC status for DIR.
-With a prefix argument ask what VC backend to use."
+Optional second argument BACKEND specifies the VC backend to use.
+Interactively, a prefix argument means to ask for the backend."
   (interactive
    (list
     (read-file-name "VC status for directory: "
@@ -1002,9 +1003,11 @@
        (intern
         (completing-read
          "Use VC backend: "
-         (mapcar (lambda (b) (list (symbol-name b))) vc-handled-backends)
-         nil t nil nil))
-      (vc-responsible-backend default-directory))))
+         (mapcar (lambda (b) (list (symbol-name b)))
+                 vc-handled-backends)
+         nil t nil nil)))))
+  (unless backend
+    (setq backend (vc-responsible-backend dir)))
   (pop-to-buffer (vc-dir-prepare-status-buffer "*vc-dir*" dir backend))
   (if (derived-mode-p 'vc-dir-mode)
       (vc-dir-refresh)