branch: externals/vc-jj
commit 0e3269c375d2777d0441416914d9cc7d3d912afc
Author: Kristoffer Balintona <[email protected]>
Commit: Kristoffer Balintona <[email protected]>
Implement the log-search VC method
---
NEWS.org | 2 ++
vc-jj.el | 10 ++++++++++
2 files changed, 12 insertions(+)
diff --git a/NEWS.org b/NEWS.org
index 9bf3da9e81..403d5adfcc 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -6,6 +6,8 @@
*** Added
+- Added support for ~vc-log-search~.
+
*** Changed
*** Removed
diff --git a/vc-jj.el b/vc-jj.el
index 0e5be8ee67..7d0b105c3c 100644
--- a/vc-jj.el
+++ b/vc-jj.el
@@ -816,6 +816,16 @@ as a base revision."
;;;; log-search
+(defun vc-jj-log-search (buffer pattern)
+ "Display the log of all revisions whose description matches PATTERN.
+PATTERN is a regular expression. The log is in long format and
+outputted into BUFFER."
+ (let ((args (list "log" "--no-graph"
+ "-r" (format "description(\"%s\")" (or pattern ""))
+ "-T" "builtin_log_detailed")))
+ (vc-setup-buffer buffer)
+ (apply #'vc-jj--command-dispatched buffer 'async nil args)))
+
;;;; log-view-mode
(defun vc-jj-log-view-restore-position ()
