# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1206589236 0
# Node ID c3bda68eeaa42a72e900e64e8c9fe645eed8e411
# Parent  be138fb1cf1a65fb63e1cfcaaa0aae8d6edd394a
(vc-do-command): Don't pop to the buffer if it's an internal temp buffer.

diff -r be138fb1cf1a -r c3bda68eeaa4 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Mar 27 02:52:23 2008 +0000
+++ b/lisp/ChangeLog	Thu Mar 27 03:40:36 2008 +0000
@@ -1,3 +1,8 @@
+2008-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc.el (vc-do-command): Don't pop to the buffer if it's an internal
+	temp buffer.
+
 2008-03-27  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/cal-bahai.el (diary-bahai-list-entries):
diff -r be138fb1cf1a -r c3bda68eeaa4 lisp/vc.el
--- a/lisp/vc.el	Thu Mar 27 02:52:23 2008 +0000
+++ b/lisp/vc.el	Thu Mar 27 03:40:36 2008 +0000
@@ -1189,9 +1189,10 @@
 	    (when (and (not (eq t okstatus))
 		       (or (not (integerp status))
 			   (and okstatus (< okstatus status))))
-	      (pop-to-buffer (current-buffer))
-	      (goto-char (point-min))
-	      (shrink-window-if-larger-than-buffer)
+              (unless (eq ?\s (aref (buffer-name (current-buffer)) 0))
+                (pop-to-buffer (current-buffer))
+                (goto-char (point-min))
+                (shrink-window-if-larger-than-buffer))
 	      (error "Running %s...FAILED (%s)" full-command
 		     (if (integerp status) (format "status %d" status) status))))
 	  ;; We're done.  But don't emit a status message if running