Commit Diff


commit - 6eea6cfb1e3422589b7c48e032e3c3bdd34a2c49
commit + 67332bad72a385b3f102139acb1633642cbd9e64
blob - ebd426894278ee5589c2d802d627bb611e1dd060
blob + 3133c9fcbad226020009184ecc05e15f405be627
--- vc-got.el
+++ vc-got.el
@@ -158,7 +158,7 @@ If nil, use the value of `vc-diff-switches'.  If t, us
 
 ;; 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")
@@ -288,6 +288,9 @@ files)."
              `(,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)
@@ -625,7 +628,7 @@ LIMIT limits the number of commits, optionally startin
               (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
@@ -667,7 +670,7 @@ Value is returned as floating point fractional number 
                       (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)
@@ -683,8 +686,7 @@ Value is returned as floating point fractional number 
       (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))