mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

New command log-view-copy-revision-as-kill

Browse source 
* lisp/vc/log-view.el (log-view-copy-revision-as-kill): New
command.
(log-view-mode-map): Bind it.
* doc/emacs/maintaining.texi (VC Change Log):
* etc/NEWS: Document it.
This commit is contained in:
Timo Myyrä 2025-09-21 11:12:55 +03:00 • committed by Sean Whitton
parent 3271d9fc96
commit 2ce33b66c5
3 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/vc/log-view.el
View file

@ -136,6 +136,7 @@
"f" #'log-view-find-revision
"n" #'log-view-msg-next
"p" #'log-view-msg-prev
"w" #'log-view-copy-revision-as-kill
"TAB" #'log-view-msg-next
"<backtab>" #'log-view-msg-prev)
@ -749,6 +750,18 @@ considered file(s)."
log-view-vc-fileset)))
fr to)))
(defun log-view-copy-revision-as-kill ()
"Copy the revision under point, as a string, to the `kill-ring'."
(interactive)
(let ((revisions (log-view-get-marked)))
(if (length> revisions 1)
(let ((found (string-join revisions " ")))
(kill-new found)
(message "%s" found))
(when-let* ((rev (or (car revisions) (cadr (log-view-current-entry)))))
(kill-new rev)
(message "%s" rev)))))
(provide 'log-view)
;;; log-view.el ends here