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

Reuse commit message when preparing a single patch

Browse source 
* lisp/vc/vc.el (vc-prepare-patch): Check commit message if only
a single revision was selected.
This commit is contained in:
Philip Kaludercic 2024-02-13 11:18:16 +01:00
parent d570864beb
commit acc6732ca1
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc/vc.el
View file

@ -3623,7 +3623,15 @@ revisions.
When invoked interactively in a Log View buffer with
marked revisions, use those."
(interactive
(let ((revs (vc-prepare-patch-prompt-revisions)) to)
(let* ((revs (vc-prepare-patch-prompt-revisions))
(subject
(and (length= revs 1)
(plist-get
(vc-call-backend
(vc-responsible-backend default-directory)
'prepare-patch (car revs))
:subject)))
to)
(require 'message)
(while (null (setq to (completing-read-multiple
(format-prompt
@ -3636,7 +3644,7 @@ marked revisions, use those."
(sit-for blink-matching-delay))
(list (string-join to ", ")
(and (not vc-prepare-patches-separately)
(read-string "Subject: " "[PATCH] " nil nil t))
(read-string "Subject: " (or subject "[PATCH] ") nil nil t))
revs)))
(save-current-buffer
(let ((patches (mapcar (lambda (rev)