emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] master 2d40373 34/42: Update diff-hl-flydiff/vc-git-mode-line-str


From: Dmitry Gutov
Subject: [elpa] master 2d40373 34/42: Update diff-hl-flydiff/vc-git-mode-line-string as per Emacs master
Date: Wed, 09 Sep 2015 19:03:46 +0000

branch: master
commit 2d4037320fcc602692f8619ca4e1b5adff5648de
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Update diff-hl-flydiff/vc-git-mode-line-string as per Emacs master
---
 diff-hl-flydiff.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/diff-hl-flydiff.el b/diff-hl-flydiff.el
index b5f6b4c..02169cc 100644
--- a/diff-hl-flydiff.el
+++ b/diff-hl-flydiff.el
@@ -57,9 +57,11 @@
               (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)
-          'help-echo (concat help-echo "\nCurrent revision: " rev))))
+                    'face face
+                    'help-echo (concat help-echo "\nCurrent revision: " rev))))
 
     (advice-add 'vc-git-working-revision :override
       #'diff-hl-flydiff/vc-git-working-revision)



reply via email to

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