(vc-dir): Use pop-to-buffer, so it can be customized.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ca9375..d83c533 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,8 @@
 
 2008-04-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * vc.el (vc-dir): Use pop-to-buffer, so it can be customized.
+
        * minibuffer.el (completion-try-completion): Change magic symbol
        property name.  Rename from minibuffer-try-completion.
        (completion-all-completions): Rename from minibuffer-all-completions.

diff --git a/lisp/vc.el b/lisp/vc.el
index 5afc18e..758f26d 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2799,7 +2799,7 @@ specific headers."
 (defun vc-dir (dir)
   "Show the VC status for DIR."
   (interactive "DVC status for directory: ")
-  (switch-to-buffer (vc-dir-prepare-status-buffer dir))
+  (pop-to-buffer (vc-dir-prepare-status-buffer dir))
   (if (eq major-mode 'vc-dir-mode)
       (vc-dir-refresh)
     (vc-dir-mode)))