commit - e79563bdabbe90721dc2532c1f97a26478108382
commit + f09d635903d423f3b3370842b8a719d431bc6047
blob - 1e4b41965650f5048fa24100852980dbe039988a
blob + a451aa85c87319cc60b1cb20529bc026f0b74d2b
--- vc-got.el
+++ vc-got.el
:group 'vc-got)
;; helpers
+(defun vc-got--program-version ()
+ "Returns the version string of used `Got' command."
+ (let (process-file-side-effects)
+ (with-temp-buffer
+ (vc-got--call "-V")
+ (substring (buffer-string) 4 -1))))
(defun vc-got-root (file)
"Return the work tree root for FILE, or nil."