Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Reorder arguments.
author Erik Naggum <erik@naggum.no>
date Thu, 14 Nov 1996 09:17:55 +0000
parents 6a597563d83e
children 36a661aac20a
comparison
equal deleted inserted replaced
16575:3c85d35d84a2 16576:a04c1653a37c
45 45
46 (defvar report-emacs-bug-orig-text nil 46 (defvar report-emacs-bug-orig-text nil
47 "The automatically-created initial text of bug report.") 47 "The automatically-created initial text of bug report.")
48 48
49 ;;;###autoload 49 ;;;###autoload
50 (defun report-emacs-bug (recent-keys topic) 50 (defun report-emacs-bug (topic &optional recent-keys)
51 "Report a bug in GNU Emacs. 51 "Report a bug in GNU Emacs.
52 Prompts for bug subject. Leaves you in a mail buffer." 52 Prompts for bug subject. Leaves you in a mail buffer."
53 (interactive (list (recent-keys) 53 ;; This strange form ensures that (recent-keys) is the value before
54 (read-string "Bug Subject: "))) 54 ;; the bug subject string is read.
55 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
55 (if (mail nil 56 (if (mail nil
56 (if (string-match "\\..*\\..*\\." emacs-version) 57 (if (string-match "\\..*\\..*\\." emacs-version)
57 ;; If there are four numbers in emacs-version, 58 ;; If there are four numbers in emacs-version,
58 ;; this is a pretest version. 59 ;; this is a pretest version.
59 report-emacs-bug-pretest-address 60 report-emacs-bug-pretest-address
80 (if (or (integerp key) 81 (if (or (integerp key)
81 (symbolp key) 82 (symbolp key)
82 (listp key)) 83 (listp key))
83 (single-key-description key) 84 (single-key-description key)
84 (prin1-to-string key nil))) 85 (prin1-to-string key nil)))
85 recent-keys 86 (or recent-keys (recent-keys))
86 " ")) 87 " "))
87 (save-restriction 88 (save-restriction
88 (narrow-to-region before-keys (point)) 89 (narrow-to-region before-keys (point))
89 (goto-char before-keys) 90 (goto-char before-keys)
90 (while (progn (move-to-column 50) (not (eobp))) 91 (while (progn (move-to-column 50) (not (eobp)))