From b861de913e16a1bd216e87797cae1a8d1c0d8421 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 29 Jun 2008 12:50:20 +0000 Subject: [PATCH] (vc-dir): Make backend argument optional and use vc-responsible-backend when nil. Interactively pass nil for backend instead of using the backend of what happens to be default-directory at the time of the call. --- lisp/ChangeLog | 5 +++++ lisp/vc-dir.el | 13 ++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d6fcd65e59..c81b63998da 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2008-06-29 Andreas Schwab + * vc-dir.el (vc-dir): Make backend argument optional and use + vc-responsible-backend when nil. Interactively pass nil for + backend instead of using the backend of what happens to be + default-directory at the time of the call. + * find-dired.el (find-dired-filter): Preserve point. 2008-06-28 Juanma Barranquero diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index df7caca120c..ac591c64941 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -990,9 +990,10 @@ outside of VC) and one wants to do some operation on it." (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 @@ With a prefix argument ask what VC backend to use." (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) -- 2.39.2