comparison lisp/vc.el @ 80398:1a844d29f8e3

(vc-do-command): Don't show internal temp buffers.

80397:9f51ca9e6082

	  (let ((buffer-undo-list t))
            (setq status (apply 'process-file command nil t nil squeezed)))
	  (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)
	    (error "Running %s...FAILED (%s)" command
		   (if (integerp status) (format "status %d" status) status))))
	(if vc-command-messages
	    (message "Running %s...OK" command)))
      (vc-exec-after

80398:1a844d29f8e3

	  (let ((buffer-undo-list t))
            (setq status (apply 'process-file command nil t nil squeezed)))
	  (when (and (not (eq t okstatus))
                     (or (not (integerp status))
                         (and okstatus (< okstatus status))))
            ;; Don't show internal temp buffers.  Especially since, together
            ;; with with-temp-buffer and pop-up-frames, this can result in
            ;; bugs where with-temp-buffer ends up not preserving
            ;; current-buffer (because kill-buffer doesn't preserve it).
            (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)" command
		   (if (integerp status) (format "status %d" status) status))))
	(if vc-command-messages
	    (message "Running %s...OK" command)))
      (vc-exec-after