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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac48d809b1091a0f44f8a4e22eac98563445464c..263df5067f8c565588c5e057109fa043a546ca1a 100644 (file)
--- 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 a91c9c34953c6b009130353481309c171cfcc310..6917afc7a4952fa32a80826c6dcd21c0279a125d 100644 (file)
--- 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.