From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 22 Mar 2008 20:32:10 +0000 (+0000)
Subject: (vc-status-prepare-status-buffer): New function.
X-Git-Tag: emacs-pretest-23.0.90~6988
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9e065e5b3af82c66716a1a3e82eea75f58d3c5e;p=emacs.git

(vc-status-prepare-status-buffer): New function.
(vc-status): Use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9573f31e790..0cb6857f250 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc.el (vc-status-prepare-status-buffer): New function.
+	(vc-status): Use it.
+
 	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add ... where
 	appropriate.
 
diff --git a/lisp/vc.el b/lisp/vc.el
index 81d45870e64..c50b72f7d3f 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2685,13 +2685,29 @@ With prefix arg READ-SWITCHES, specify a value to override
   ;; Must be in sync with vc-status-printer.
   (forward-char 25))
 
+(defun vc-status-prepare-status-buffer (dir &optional create-new)
+  "Find a *vc-status* buffer showing DIR, or create a new one."
+  (setq dir (expand-file-name dir))
+  (let ((bname "*vc-status*"))
+    ;; Look for another *vc-status* buffer visiting the same directory.
+    (save-excursion
+      (unless create-new
+	(dolist (buffer (buffer-list))
+	  (set-buffer buffer)
+	  (when (and (eq major-mode 'vc-status-mode)
+		     (string= default-directory dir))
+	    (return buffer)))))
+    ;; Create a new *vc-status* buffer.
+    (with-current-buffer (create-file-buffer bname)
+      (cd dir)
+      (vc-setup-buffer (current-buffer))
+      (current-buffer))))
+
 ;;;###autoload
 (defun vc-status (dir)
   "Show the VC status for DIR."
   (interactive "DVC status for directory: ")
-  (vc-setup-buffer "*vc-status*")
-  (switch-to-buffer "*vc-status*")
-  (cd dir)
+  (switch-to-buffer (vc-status-prepare-status-buffer dir))
   (vc-status-mode))
 
 (defvar vc-status-menu-map