From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Mar 2008 02:59:11 +0000 (+0000)
Subject: (vc-set-mode-line-busy-indicator): Use mode-line-emphasis face.
X-Git-Tag: emacs-pretest-23.0.90~7290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2062c3b91829ab8db01372ea83feb1c79371361;p=emacs.git

(vc-set-mode-line-busy-indicator): Use mode-line-emphasis face.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac48d809b10..263df5067f8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-03-11  Glenn Morris  <rgm@gnu.org>
+
+	* faces.el (mode-line-emphasis): New face.
+	* vc.el (vc-set-mode-line-busy-indicator): Use mode-line-emphasis face.
+
+	* calendar/calendar.el (top-level): Load cal-loaddefs when compiling.
+
 2008-03-11  Chong Yidong  <cyd@stupidchicken.com>
 
 	* simple.el (set-mark-command): Doc fix.
diff --git a/lisp/vc.el b/lisp/vc.el
index a91c9c34953..6917afc7a49 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1065,10 +1065,10 @@ 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
-	(propertize " [waiting...]"
-		    'face 'font-lock-variable-name-face
-		    'help-echo
-		    "A VC command is in progress in this buffer")))
+	(concat " " (propertize "[waiting...]"
+                                'face 'mode-line-emphasis
+                                'help-echo
+                                "A VC command is in progress in this buffer"))))
 
 (defun vc-exec-after (code)
   "Eval CODE when the current buffer's process is done.