mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

Have submit-emacs-patch prompt for patch file before subject

Browse source 
* emacsbug.el (submit-emacs-patch): Prompt for patch file and use that
  to guess the subject.
This commit is contained in:
Philip Kaludercic 2022-04-14 12:13:27 +02:00
parent 17b639aabb
commit bd67ffa179
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/emacsbug.el
View file

@ -488,7 +488,14 @@ and send the mail again%s."
Interactively, you will be prompted for SUBJECT and a patch FILE
name (which will be attached to the mail). You will end up in a
Message buffer where you can explain more about the patch."
(interactive "sThis patch is about: \nfPatch file name: ")
(interactive
(let* ((file (read-file-name "Patch file name: "))
(guess (with-temp-buffer
(insert-file-contents file)
(mail-fetch-field "Subject"))))
(list (read-string (format-prompt "This patch is about" guess)
nil nil guess)
file)))
(switch-to-buffer "*Patch Help*")
(let ((inhibit-read-only t))
(erase-buffer)