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

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ca9375c88e..d83c5333bfd 100644
--- 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 5afc18e048c..758f26d0dc3 100644
--- 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)))