(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)