master 69b9bfeb016: New face vc-mode-line-busy-indicator

branch: master
commit 69b9bfeb0160f2ee85612cb8ee48afb15703c070
Author: Sean Whitton <[email protected]>
Commit: Sean Whitton <[email protected]>

    New face vc-mode-line-busy-indicator
    
    * lisp/vc/vc-dispatcher.el (vc-mode-line-busy-indicator): New
    face.
    (vc-set-mode-line-busy-indicator): Use it.
---
 lisp/vc/vc-dispatcher.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 53ab1da1c60..bc025b177a6 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -223,10 +223,16 @@ Another is that undo information is not kept."
 
 (defvar vc-sentinel-movepoint)
 
+(defface vc-mode-line-busy-indicator
+  '((t :inherit mode-line-emphasis))
+  "Face for VC mode line indicator that a command is in progress."
+  :version "32.1"
+  :group 'mode-line-faces)
+
 (defun vc-set-mode-line-busy-indicator ()
   (setq mode-line-process
 	(concat " " (propertize "[waiting...]"
-                                'face 'mode-line-emphasis
+                                'face 'vc-mode-line-busy-indicator
                                 'help-echo
                                 "A command is in progress in this buffer"))))