From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 29 Feb 2008 22:09:56 +0000 (+0000)
Subject: (vc-set-mode-line-busy-indicator): Use shorter message
X-Git-Tag: emacs-pretest-23.0.90~7561
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14b7b2c492544dff9ba8c4e7d081120c21674a0c;p=emacs.git

(vc-set-mode-line-busy-indicator): Use shorter message
and quieter face (not a warning).
---

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")))