From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 21 Apr 2008 20:40:51 +0000 (+0000)
Subject: (vc-dir): Use pop-to-buffer, so it can be customized.
X-Git-Tag: emacs-pretest-23.0.90~6158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39a7428bf575b6e22454d9a671d226ae461fa6ec;p=emacs.git

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

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)))