Commit 47a1e7a2 authored by Erik Naggum's avatar Erik Naggum

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

to capture more relevant recent input.
parent 3282a606
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment