Fix 'vc-git--program-version'

* lisp/vc/vc-git.el (vc-git--program-version): Fix the function to
work with Git for Windows.
This commit is contained in:
Eli Zaretskii 2018-02-16 11:30:29 +02:00
parent 63c93f7ecd
commit 6ddb4bd39a

View file

@ -239,8 +239,11 @@ Should be consistent with the Git config value i18n.logOutputEncoding."
(vc-git--run-command-string nil "version")))
(setq vc-git--program-version
(if (and version-string
(string-match "git version \\([0-9.]+\\)$"
version-string))
;; Git for Windows appends ".windows.N" to the
;; numerical version reported by Git.
(string-match
"git version \\([0-9.]+\\)\\(\.windows.[0-9]+\\)$"
version-string))
(match-string 1 version-string)
"0")))))