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

Make emacs-build-description into a command

Browse source 
* lisp/mail/emacsbug.el (report-emacs-bug, submit-emacs-patch):
Adjust callers.
(emacs-build-description): Rename from
`emacs-bug--system-description' and make into a command.
This commit is contained in:
Lars Ingebrigtsen 2022-09-21 13:13:39 +02:00
parent a6bad4d60f
commit 760df6a5f1
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/emacsbug.el
View file

@ -300,7 +300,7 @@ usually do not have translators for other languages.\n\n")))
(let ((txt (delete-and-extract-region (1+ user-point) (point)))) (let ((txt (delete-and-extract-region (1+ user-point) (point))))
(insert (propertize "\n" 'display txt))) (insert (propertize "\n" 'display txt)))
(emacs-bug--system-description) (emacs-build-description)
(insert "Configured features:\n" system-configuration-features "\n\n") (insert "Configured features:\n" system-configuration-features "\n\n")
(fill-region (line-beginning-position -1) (point)) (fill-region (line-beginning-position -1) (point))
(when (and (featurep 'native-compile) (when (and (featurep 'native-compile)
@ -386,7 +386,10 @@ copy text to your preferred mail program.\n"
(buffer-substring-no-properties (point-min) (point))) (buffer-substring-no-properties (point-min) (point)))
(goto-char user-point))) (goto-char user-point)))
(defun emacs-bug--system-description () ;;;###autoload
(defun emacs-build-description ()
"Insert a description of the current Emacs build in the current buffer."
(interactive)
(let ((start (point))) (let ((start (point)))
(insert "\nIn " (emacs-version)) (insert "\nIn " (emacs-version))
(if emacs-build-system (if emacs-build-system
@ -521,7 +524,7 @@ Message buffer where you can explain more about the patch."
(compose-mail-other-window report-emacs-bug-address subject) (compose-mail-other-window report-emacs-bug-address subject)
(message-goto-body) (message-goto-body)
(insert "\n\n\n") (insert "\n\n\n")
(emacs-bug--system-description) (emacs-build-description)
(mml-attach-file file "text/patch" nil "attachment") (mml-attach-file file "text/patch" nil "attachment")
(message-goto-body) (message-goto-body)
(message "Write a description of the patch and use %s to send it" (message "Write a description of the patch and use %s to send it"