changeset 92347:5b93af73eb65

(vc-set-mode-line-busy-indicator): Use shorter message and quieter face (not a warning).
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 29 Feb 2008 22:09:56 +0000
parents 0ad96a7f6183
children 71a92a048b47
files lisp/vc.el
diffstat 1 files changed, 2 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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")))