(vc-do-command): Don't pop to the buffer if it's an internal temp buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0449d7aa6fbc8831d3a68f73cafb3e5961784a37..24f0c7d6da638ceec73cc429bc04cdf7859e8caf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc.el b/lisp/vc.el
index 0e633f5f9938789364b716c26d0556f31dd89192..e3316dce1bd248d0dc41cfdbe2cb5aa74dd01818 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1189,9 +1189,10 @@ that is inserted into the command line before the filename."
            (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