diff options
| author | Erik Naggum <erik@naggum.no> | 1996-11-14 09:17:55 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-11-14 09:17:55 +0000 |
| commit | 01753e63c562021a0f21f8a80b3c7537e99f1d40 (patch) | |
| tree | 79614d9ed09ee86002ae9d5cb1a0510f2cae200b /lisp/mail | |
| parent | d4d94b763d973d3e3b528f68a7cdc08fa504e42c (diff) | |
| download | emacs-01753e63c562021a0f21f8a80b3c7537e99f1d40.tar.gz | |
(report-emacs-bug): Reorder arguments.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/emacsbug.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 3e7cae708bc..617df8968d1 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -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 @@ Prompts for bug subject. Leaves you in a mail buffer." (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)) |