# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1204322996 0
# Node ID 5b93af73eb65006a72ef74f0fdb64f777a5e9918
# Parent  0ad96a7f61839bcfa91819df6b8d136d50ae483c
(vc-set-mode-line-busy-indicator): Use shorter message
and quieter face (not a warning).

diff -r 0ad96a7f6183 -r 5b93af73eb65 lisp/vc.el
--- a/lisp/vc.el	Fri Feb 29 22:08:06 2008 +0000
+++ b/lisp/vc.el	Fri Feb 29 22:09:56 2008 +0000
@@ -1063,14 +1063,8 @@
 
 (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")))