From 66f5720d3ad1fc564d0e218822620866dc29c6f9 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Thu, 3 Sep 2015 15:36:39 +0300 Subject: [PATCH] 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). --- lisp/vc/vc-git.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2