mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Detect Git version on remote hosts separately from the local one

Browse Source 
* lisp/vc/vc-git.el (vc-git--program-version): Detect Git version
on remote hosts separately from the local one (buf#73320).
(vc-git-connection-default-profile): Set up collection-local
profile.  And use it for the 'vc-git' :application.
(vc-git--program-version): Operate on the connection-local value
of 'vc-git--program-version'.
This commit is contained in:
Dmitry Gutov 2024-10-08 02:42:39 +03:00
parent 2d139141a6
commit 7cd8108098
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/vc/vc-git.el
View File

@ -315,11 +315,21 @@ Good example of file name that needs this: \"test[56].xx\".")
(defvar vc-git--program-version nil)
(connection-local-set-profile-variables
'vc-git-connection-default-profile
'((vc-git--program-version . nil)))
(connection-local-set-profiles
'(:application vc-git)
'vc-git-connection-default-profile)
(defun vc-git--program-version ()
(or vc-git--program-version
(let ((version-string
(vc-git--run-command-string nil "version")))
(setq vc-git--program-version
(with-connection-local-application-variables 'vc-git
(or vc-git--program-version
(let ((version-string
(vc-git--run-command-string nil "version")))
(setq-connection-local
vc-git--program-version
(if (and version-string
;; Some Git versions append additional strings
;; to the numerical version string. E.g., Git
@ -329,7 +339,7 @@ Good example of file name that needs this: \"test[56].xx\".")
(string-match "git version \\([0-9][0-9.]+\\)"
version-string))
(string-trim-right (match-string 1 version-string) "\\.")
"0")))))
"0"))))))
(defun vc-git--git-path (&optional path)
"Resolve .git/PATH for the current working tree.