From: Leo Liu <sdl.web@gmail.com>
Date: Wed, 27 Apr 2016 14:12:12 +0000 (+0800)
Subject: Improve last change to vc-git-mode-line-string
X-Git-Tag: emacs-25.0.94~138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71fb0e06e7e04d8300be10feffd3d314a76b4d27;p=emacs.git

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.
---

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index d5ba0c8be7d..f35c84d50c5 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -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))