branch: externals/vc-jj
commit 96b487f78a2f1526eb8dd83e33f52c57399d6fed
Author: Kristoffer Balintona <[email protected]>
Commit: Kristoffer Balintona <[email protected]>
Implement the delete-revision VC method
Also use the new implementation in the existing
`vc-jj-log-view-abandon-change` command.
---
vc-jj.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/vc-jj.el b/vc-jj.el
index 3139d86da5..27403d1829 100644
--- a/vc-jj.el
+++ b/vc-jj.el
@@ -784,6 +784,10 @@ _FILES currently has no effect on this function."
;;;; delete-revision
;; Emacs 31 method
+(defun vc-jj-delete-revision (rev)
+ "Abandon REV."
+ (vc-jj--command-dispatched nil 0 nil "abandon" rev))
+
;;;; delete-revisions-from-end
;; Emacs 31 method
@@ -936,7 +940,7 @@ Call \"jj abandon\" on the revision at point."
"-r" rev
"-T"
"change_id.shortest()")
'face 'log-view-message)))
- (vc-jj--command-dispatched nil 0 nil "abandon" rev "--quiet")
+ (vc-jj-delete-revision rev)
(vc-jj--reload-log-buffers))))
(defun vc-jj-log-view-new-change ()
