Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 92291:d2de7d81aab9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update commentary. Remove leading `*' from defcustom doc-strings. (Info-menu, Info-goto-node): Remove declarations. (report-emacs-bug-info): Use info rather than Info-goto-node.
author Glenn Morris <rgm@gnu.org>
date Thu, 28 Feb 2008 03:43:47 +0000
parents 606f2d163a64
children ef65fa4dca3b
comparison
equal deleted inserted replaced
92290:ef8bc859952b 92291:d2de7d81aab9
26 ;; Boston, MA 02110-1301, USA. 26 ;; Boston, MA 02110-1301, USA.
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; `M-x report-emacs-bug' starts an email note to the Emacs maintainers 30 ;; `M-x report-emacs-bug' starts an email note to the Emacs maintainers
31 ;; describing a problem. Here's how it's done... 31 ;; describing a problem. You need to be able to send mail from Emacs
32 ;; to complete the process. Alternatively, compose the bug report in
33 ;; Emacs then paste it into your normal mail client.
32 34
33 ;;; Code: 35 ;;; Code:
34
35 ;; >> This should be an address which is accessible to your machine,
36 ;; >> otherwise you can't use this file. It will only work on the
37 ;; >> internet with this address.
38 36
39 (require 'sendmail) 37 (require 'sendmail)
40 38
41 (defgroup emacsbug nil 39 (defgroup emacsbug nil
42 "Sending Emacs bug reports." 40 "Sending Emacs bug reports."
43 :group 'maint 41 :group 'maint
44 :group 'mail) 42 :group 'mail)
45 43
46 (defcustom report-emacs-bug-address "bug-gnu-emacs@gnu.org" 44 (defcustom report-emacs-bug-address "bug-gnu-emacs@gnu.org"
47 "*Address of mailing list for GNU Emacs bugs." 45 "Address of mailing list for GNU Emacs bugs."
48 :group 'emacsbug 46 :group 'emacsbug
49 :type 'string) 47 :type 'string)
50 48
51 (defcustom report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.org" 49 (defcustom report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.org"
52 "*Address of mailing list for GNU Emacs pretest bugs." 50 "Address of mailing list for GNU Emacs pretest bugs."
53 :group 'emacsbug 51 :group 'emacsbug
54 :type 'string) 52 :type 'string)
53
54 (defcustom report-emacs-bug-no-confirmation nil
55 "If non-nil, suppress the confirmations asked for the sake of novice users."
56 :group 'emacsbug
57 :type 'boolean)
58
59 (defcustom report-emacs-bug-no-explanations nil
60 "If non-nil, suppress the explanations given for the sake of novice users."
61 :group 'emacsbug
62 :type 'boolean)
63
64 ;; User options end here.
65
55 66
56 (defvar report-emacs-bug-orig-text nil 67 (defvar report-emacs-bug-orig-text nil
57 "The automatically-created initial text of bug report.") 68 "The automatically-created initial text of bug report.")
58
59 (defcustom report-emacs-bug-no-confirmation nil
60 "*If non-nil, suppress the confirmations asked for the sake of novice users."
61 :group 'emacsbug
62 :type 'boolean)
63
64 (defcustom report-emacs-bug-no-explanations nil
65 "*If non-nil, suppress the explanations given for the sake of novice users."
66 :group 'emacsbug
67 :type 'boolean)
68 69
69 ;;;###autoload 70 ;;;###autoload
70 (defun report-emacs-bug (topic &optional recent-keys) 71 (defun report-emacs-bug (topic &optional recent-keys)
71 "Report a bug in GNU Emacs. 72 "Report a bug in GNU Emacs.
72 Prompts for bug subject. Leaves you in a mail buffer." 73 Prompts for bug subject. Leaves you in a mail buffer."
229 (skip-chars-backward " \t\n") 230 (skip-chars-backward " \t\n")
230 (make-local-variable 'report-emacs-bug-orig-text) 231 (make-local-variable 'report-emacs-bug-orig-text)
231 (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point)))) 232 (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point))))
232 (goto-char user-point))) 233 (goto-char user-point)))
233 234
234 (declare-function Info-menu "info" (menu-item &optional fork))
235 (declare-function Info-goto-node "info" (nodename &optional fork))
236
237 (defun report-emacs-bug-info () 235 (defun report-emacs-bug-info ()
238 "Go to the Info node on reporting Emacs bugs." 236 "Go to the Info node on reporting Emacs bugs."
239 (interactive) 237 (interactive)
240 (info) 238 (info "(emacs)Bugs"))
241 (Info-directory)
242 (Info-menu "emacs")
243 (Info-goto-node "Bugs"))
244 239
245 (defun report-emacs-bug-hook () 240 (defun report-emacs-bug-hook ()
246 (save-excursion 241 (save-excursion
247 (save-excursion 242 (save-excursion
248 (goto-char (point-max)) 243 (goto-char (point-max))