From c2062c3b91829ab8db01372ea83feb1c79371361 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Mar 2008 02:59:11 +0000 Subject: [PATCH] (vc-set-mode-line-busy-indicator): Use mode-line-emphasis face. --- lisp/ChangeLog | 7 +++++++ lisp/vc.el | 8 ++++---- 2 files changed, 11 insertions(+), 4 deletions(-) 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 + + * 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 * 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. -- 2.11.4.GIT