procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/vc/vc-dispatcher.el (vc-do-command): Let-bind inhibit-message to t

Browse source 
in active minibuffer.  (Bug#34939)
This commit is contained in:
Juri Linkov 2019-05-19 23:16:01 +03:00
parent 82db17d0d1
commit 613565494d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc/vc-dispatcher.el
View file

@ -324,7 +324,8 @@ case, and the process object in the asynchronous case."
(apply 'start-file-process command (current-buffer)
command squeezed))))
(when vc-command-messages
(message "Running in background: %s" full-command))
(let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
(message "Running in background: %s" full-command)))
;; Get rid of the default message insertion, in case we don't
;; set a sentinel explicitly.
(set-process-sentinel proc #'ignore)
@ -332,11 +333,13 @@ case, and the process object in the asynchronous case."
(setq status proc)
(when vc-command-messages
(vc-run-delayed
(let ((message-truncate-lines t))
(let ((message-truncate-lines t)
(inhibit-message (eq (selected-window) (active-minibuffer-window))))
(message "Done in background: %s" full-command)))))
;; Run synchronously
(when vc-command-messages
(message "Running in foreground: %s" full-command))
(let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
(message "Running in foreground: %s" full-command)))
(let ((buffer-undo-list t))
(setq status (apply 'process-file command nil t nil squeezed)))
(when (and (not (eq t okstatus))
@ -350,7 +353,8 @@ case, and the process object in the asynchronous case."
(if (integerp status) (format "status %d" status) status)
full-command))
(when vc-command-messages
(message "Done (status=%d): %s" status full-command))))
(let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
(message "Done (status=%d): %s" status full-command)))))
(vc-run-delayed
(run-hook-with-args 'vc-post-command-functions
command file-or-list flags))