Improve last change to vc-git-mode-line-string

* lisp/vc/vc-git.el (vc-git-mode-line-string): Better fix that caches
  the result.
This commit is contained in:
Leo Liu 2016-04-27 22:12:12 +08:00
parent 6858e77c41
commit 71fb0e06e7

View file

@ -278,7 +278,7 @@ Should be consistent with the Git config value i18n.logOutputEncoding."
(defun vc-git-mode-line-string (file)
"Return a string for `vc-mode-line' to put in the mode line for FILE."
(let* ((rev (vc-git-working-revision file))
(let* ((rev (vc-working-revision file 'Git))
(disp-rev (or (vc-git--symbolic-ref file)
(substring rev 0 7)))
(def-ml (vc-default-mode-line-string 'Git file))