From 760df6a5f1d3022f303416a03215c015216abb30 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 21 Sep 2022 13:13:39 +0200 Subject: Make emacs-build-description into a command * 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. --- lisp/mail/emacsbug.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/mail') diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index a85ceaf1a5a..60f733435a6 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -300,7 +300,7 @@ usually do not have translators for other languages.\n\n"))) (let ((txt (delete-and-extract-region (1+ user-point) (point)))) (insert (propertize "\n" 'display txt))) - (emacs-bug--system-description) + (emacs-build-description) (insert "Configured features:\n" system-configuration-features "\n\n") (fill-region (line-beginning-position -1) (point)) (when (and (featurep 'native-compile) @@ -386,7 +386,10 @@ copy text to your preferred mail program.\n" (buffer-substring-no-properties (point-min) (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))) (insert "\nIn " (emacs-version)) (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) (message-goto-body) (insert "\n\n\n") - (emacs-bug--system-description) + (emacs-build-description) (mml-attach-file file "text/patch" nil "attachment") (message-goto-body) (message "Write a description of the patch and use %s to send it" -- cgit v1.2.1