mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
to capture more relevant recent input.
This commit is contained in:
Erik Naggum 1996-11-13 16:33:28 +00:00
parent 3282a60689
commit 47a1e7a2c4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/emacsbug.el
View File

@ -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))