(report-emacs-bug): New argument recent-keys read before bug subject

to capture more relevant recent input.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 2f2a991419b73be045e2509290b4ab933bb4a561..3e7cae708bc205dfe60b2b9564077becc5425ee7 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -47,10 +47,11 @@
   "The automatically-created initial text of bug report.")
 
 ;;;###autoload
-(defun report-emacs-bug (topic)
+(defun report-emacs-bug (recent-keys topic)
   "Report a bug in GNU Emacs.
 Prompts for bug subject.  Leaves you in a mail buffer."
-  (interactive "sBug Subject: ")
+  (interactive (list (recent-keys)
+                    (read-string "Bug Subject: ")))
   (if (mail nil
            (if (string-match "\\..*\\..*\\." emacs-version)
                ;; If there are four numbers in emacs-version,
@@ -81,7 +82,7 @@ Prompts for bug subject.  Leaves you in a mail buffer."
                                       (listp key))
                                   (single-key-description key)
                                 (prin1-to-string key nil)))
-                            (recent-keys)
+                            recent-keys
                             " "))
          (save-restriction
            (narrow-to-region before-keys (point))