(vc-set-mode-line-busy-indicator): Use shorter message

and quieter face (not a warning).

1 files changed, 2 insertions, 8 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index ceed375639d..ab9277a35f1 100644
--- a/lisp/vc.el
+++ b/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")))