Mercurial > emacs

changeset 16572:6a597563d83e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): New argument recent-keys read before bug subject to capture more relevant recent input.
author Erik Naggum <erik@naggum.no>
date Wed, 13 Nov 1996 16:33:28 +0000
parents 09234d82799a
children 4ed8667d6bd9
files lisp/mail/emacsbug.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el	Tue Nov 12 18:52:10 1996 +0000
+++ b/lisp/mail/emacsbug.el	Wed Nov 13 16:33:28 1996 +0000
@@ -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 @@
 				       (listp key))
 				   (single-key-description key)
 				 (prin1-to-string key nil)))
-			     (recent-keys)
+			     recent-keys
 			     " "))
 	  (save-restriction
 	    (narrow-to-region before-keys (point))