diff options
| author | Erik Naggum <erik@naggum.no> | 1996-11-13 16:33:28 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-11-13 16:33:28 +0000 |
| commit | 47a1e7a2c4c6f026ec2f914e67dd33e4b02540a1 (patch) | |
| tree | 8daf84b7131b93c4c3ba600c0902a7817e976f07 /lisp/mail/emacsbug.el | |
| parent | 3282a6068950fa1c1dac64ba000fd6136dd386ba (diff) | |
| download | emacs-47a1e7a2c4c6f026ec2f914e67dd33e4b02540a1.tar.gz | |
(report-emacs-bug): New argument recent-keys read before bug subject
to capture more relevant recent input.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 2f2a991419b..3e7cae708bc 100644 --- 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)) |