(vc-set-mode-line-busy-indicator): Use shorter message
and quieter face (not a warning).
This commit is contained in:
parent
6867f3ddf6
commit
14b7b2c492
1 changed files with 2 additions and 8 deletions
10
lisp/vc.el
10
lisp/vc.el
|
@ -1063,14 +1063,8 @@ BUF defaults to \"*vc*\", can be a string and will be created if necessary."
|
|||
|
||||
(defun vc-set-mode-line-busy-indicator ()
|
||||
(setq mode-line-process
|
||||
;; Deliberate overstatement, but power law respected.
|
||||
;; (The message is ephemeral, so we make it loud.) --ttn
|
||||
(propertize " (incomplete/in progress)"
|
||||
'face (if (featurep 'compile)
|
||||
;; ttn's preferred loudness
|
||||
'compilation-warning
|
||||
;; suitably available fallback
|
||||
font-lock-warning-face)
|
||||
(propertize " [waiting...]"
|
||||
'face 'font-lock-variable-name-face
|
||||
'help-echo
|
||||
"A VC command is in progress in this buffer")))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue