commit 518ede14d1f7da94e0e6e1216bdce4dd33be55ca
from: Omar Polo <op@omarpolo.com>
date: Sat Dec 05 09:40:43 2020 UTC

augment vc-got--log

commit - c0c9a33974fac7981ecdcf4ea709d269a25c930e
commit + 518ede14d1f7da94e0e6e1216bdce4dd33be55ca
blob - 0208d5166e28f6427fe0e5350b6eb4b0c665fa0f
blob + 0c2a5a18ffdb9334a45f5dc6fb79cdadbf890d2e
--- vc-got.el
+++ vc-got.el
@@ -71,6 +71,7 @@
   (require 'subr-x))
 
 (require 'cl-lib)
+(require 'cl-seq)
 (require 'seq)
 (require 'vc)
 
@@ -99,17 +100,27 @@
   (with-temp-buffer
     (apply #'vc-got--call "add" (append vc-register-switches files))))
 
-(defun vc-got--log (limit path)
+(defun vc-got--log (&optional path limit start-commit search-pattern)
   "Execute the log command in the worktree of PATH.
+The output in the current buffer.
 
-The output of the command will be put in the current-buffer.
-
 LIMIT limits the maximum number of commit returned.
 
+START-COMMIT: start traversing history at the specified commit.
+SEARCH-PATTERN: limit to log messages matched by the regexp given.
+
 Return nil if the command failed or if PATH isn't included in any
 worktree."
-  (vc-got-with-worktree path
-    (zerop (vc-got--call "log" "-l" (format "%s" limit) path))))
+  (vc-got-with-worktree (or path default-directory)
+    (zerop
+     (apply #'vc-got--call
+            (cl-remove-if #'null
+                          (flatten-list
+                           (list "log"
+                                 (when limit (list "-l" (format "%s" limit)))
+                                 (when start-commit (list "-c" start-commit))
+                                 (when search-pattern (list "-s" search-pattern))
+                                 path)))))))
 
 (defun vc-got--status (dir-or-file &rest files)
   "Return the output of ``got status''.
@@ -251,7 +262,7 @@ DIR-OR-FILE."
   "Return the id of the last commit that touched the FILE or \"0\" for a new (but added) file."
   (or
    (with-temp-buffer
-     (when (vc-got--log 1 file)
+     (when (vc-got--log file 1)
        (let (start)
          (goto-char (point-min))
          (forward-line 1)               ;skip the ----- line