diff lisp/mail/emacsbug.el @ 16576:a04c1653a37c

(report-emacs-bug): Reorder arguments.
author Erik Naggum <erik@naggum.no>
date Thu, 14 Nov 1996 09:17:55 +0000
parents 6a597563d83e
children 36a661aac20a
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el	Thu Nov 14 02:06:05 1996 +0000
+++ b/lisp/mail/emacsbug.el	Thu Nov 14 09:17:55 1996 +0000
@@ -47,11 +47,12 @@
   "The automatically-created initial text of bug report.")
 
 ;;;###autoload
-(defun report-emacs-bug (recent-keys topic)
+(defun report-emacs-bug (topic &optional recent-keys)
   "Report a bug in GNU Emacs.
 Prompts for bug subject.  Leaves you in a mail buffer."
-  (interactive (list (recent-keys)
-		     (read-string "Bug Subject: ")))
+  ;; This strange form ensures that (recent-keys) is the value before
+  ;; the bug subject string is read.
+  (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
   (if (mail nil
 	    (if (string-match "\\..*\\..*\\." emacs-version)
 		;; If there are four numbers in emacs-version,
@@ -82,7 +83,7 @@
 				       (listp key))
 				   (single-key-description key)
 				 (prin1-to-string key nil)))
-			     recent-keys
+			     (or recent-keys (recent-keys))
 			     " "))
 	  (save-restriction
 	    (narrow-to-region before-keys (point))