From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 3 Sep 2015 12:36:39 +0000 (+0300)
Subject: vc-git-mode-line-string: Explicitly re-apply the face
X-Git-Tag: emacs-25.0.90~1225^2~44
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66f5720d3ad1fc564d0e218822620866dc29c6f9;p=emacs.git

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 50c6d96e911..8a0f5547c4d 100644
--- 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