emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 66f5720: vc-git-mode-line-string: Explicitly re-app


From: Dmitry Gutov
Subject: [Emacs-diffs] master 66f5720: vc-git-mode-line-string: Explicitly re-apply the face
Date: Thu, 03 Sep 2015 12:36:49 +0000

branch: master
commit 66f5720d3ad1fc564d0e218822620866dc29c6f9
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    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 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 50c6d96..8a0f554 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]