vc-git-mode-line-string: Explicitly re-apply the face

* lisp/vc/vc-git.el (vc-git-mode-line-string): Explicitly re-apply
the face (bug#21404).

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 50c6d96e9111bbbda80b0ca9c6f9e95f52e1930c..8a0f5547c4d6094d038855dedebd52a6e4172a51 100644 (file)
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -270,8 +270,10 @@ matching the resulting Git log output, and KEYWORDS is a list of
          (disp-rev (or (vc-git--symbolic-ref file)
                        (substring rev 0 7)))
          (def-ml (vc-default-mode-line-string 'Git file))
-         (help-echo (get-text-property 0 'help-echo def-ml)))
+         (help-echo (get-text-property 0 'help-echo def-ml))
+         (face   (get-text-property 0 'face def-ml)))
     (propertize (replace-regexp-in-string (concat rev "\\'") disp-rev def-ml t t)
+                'face face
                 'help-echo (concat help-echo "\nCurrent revision: " rev))))
 
 (cl-defstruct (vc-git-extra-fileinfo