]> code.delx.au - gnu-emacs-elpa/commitdiff
Update diff-hl-flydiff/vc-git-mode-line-string as per Emacs master
authorDmitry Gutov <dgutov@yandex.ru>
Sat, 5 Sep 2015 03:36:53 +0000 (06:36 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Sat, 5 Sep 2015 03:36:53 +0000 (06:36 +0300)
diff-hl-flydiff.el

index b5f6b4c851005ec8a07f6850560bb83f475f331d..02169cccace9b85394b5caa25ca82cdab90c8cf0 100644 (file)
               (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)