From f42d59a5d7839eb5990c5325392ce4e5d39d6550 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 27 Mar 2008 03:40:36 +0000 Subject: [PATCH] (vc-do-command): Don't pop to the buffer if it's an internal temp buffer. --- lisp/ChangeLog | 5 +++++ lisp/vc.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0449d7aa6fb..24f0c7d6da6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-27 Stefan Monnier + + * vc.el (vc-do-command): Don't pop to the buffer if it's an internal + temp buffer. + 2008-03-27 Glenn Morris * calendar/cal-bahai.el (diary-bahai-list-entries): diff --git a/lisp/vc.el b/lisp/vc.el index 0e633f5f993..e3316dce1bd 100644 --- 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 -- 2.11.4.GIT