From 2d4037320fcc602692f8619ca4e1b5adff5648de Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 5 Sep 2015 06:36:53 +0300 Subject: [PATCH] Update diff-hl-flydiff/vc-git-mode-line-string as per Emacs master --- diff-hl-flydiff.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/diff-hl-flydiff.el b/diff-hl-flydiff.el index b5f6b4c85..02169ccca 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) -- 2.39.2