commit - 6eea6cfb1e3422589b7c48e032e3c3bdd34a2c49
commit + 67332bad72a385b3f102139acb1633642cbd9e64
blob - ebd426894278ee5589c2d802d627bb611e1dd060
blob + 3133c9fcbad226020009184ecc05e15f405be627
--- vc-got.el
+++ vc-got.el
;; helpers
(defun vc-got--program-version ()
- "Returns the version string of used `Got' command."
+ "Return the version string of used `Got' command."
(let (process-file-side-effects)
(with-temp-buffer
(vc-got--call "-V")
`(,filename . ,obj))))
(defun vc-got--tree (commit path)
+ "Return an alist representing the got tree command output.
+The outputted tree will be localised for the given PATH at the
+given COMMIT."
(vc-got-with-worktree path
(with-temp-buffer
(vc-got--call "tree" "-c" commit "-i" path)
(t (error "Not implemented")))))))
(defun vc-got-annotate-command (file buf &optional rev)
- "Show annotated contents of FILE in buffer BUF. If given, use revision REV."
+ "Show annotated contents of FILE in buffer BUF. If given, use revision REV."
(let (process-file-side-effects)
(with-current-buffer buf
;; FIXME: vc-ensure-vc-buffer won't recognise this buffer as managed
(string-to-number (substring str 0 4))))))))
(defun vc-got-annotate-extract-revision-at-line ()
- "Returns revision corresponding to the current line or nil."
+ "Return revision corresponding to the current line or nil."
(save-excursion
(beginning-of-line)
(when (looking-at vc-got--annotate-re)
(match-string-no-properties 1))))
(defun vc-got-next-revision (file rev)
- "Return the revision number that follows REV for FILE, or nil
- if no such revision exists."
+ "Return the revision number that follows REV for FILE, or nil if no such revision exists."
(with-temp-buffer
(vc-got--log file nil nil rev)
(keep-lines "^commit" (point-min) (point-max))