[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 66f5720: vc-git-mode-line-string: Explicitly re-apply the face,
Dmitry Gutov <=