Mercurial > emacs
changeset 16576:a04c1653a37c
(report-emacs-bug): Reorder arguments.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Thu, 14 Nov 1996 09:17:55 +0000 |
| parents | 3c85d35d84a2 |
| children | 15cf729665be |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Thu Nov 14 02:06:05 1996 +0000 +++ b/lisp/mail/emacsbug.el Thu Nov 14 09:17:55 1996 +0000 @@ -47,11 +47,12 @@ "The automatically-created initial text of bug report.") ;;;###autoload -(defun report-emacs-bug (recent-keys topic) +(defun report-emacs-bug (topic &optional recent-keys) "Report a bug in GNU Emacs. Prompts for bug subject. Leaves you in a mail buffer." - (interactive (list (recent-keys) - (read-string "Bug Subject: "))) + ;; This strange form ensures that (recent-keys) is the value before + ;; the bug subject string is read. + (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) (if (mail nil (if (string-match "\\..*\\..*\\." emacs-version) ;; If there are four numbers in emacs-version, @@ -82,7 +83,7 @@ (listp key)) (single-key-description key) (prin1-to-string key nil))) - recent-keys + (or recent-keys (recent-keys)) " ")) (save-restriction (narrow-to-region before-keys (point))