Mercurial > hg > xemacs-beta

comparison lisp/packages/emacsbug.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents ac2d302a0011
children 1f0dabaa0855
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
38 ;; >> internet with this address. 38 ;; >> internet with this address.
39 39
40 (require 'sendmail) 40 (require 'sendmail)
41 41
42 ;; XEmacs: Screen for whether a beta version is running and redirect 42 ;; XEmacs: Screen for whether a beta version is running and redirect
43 ;; reports to the beta list instead of the newsgroup. I don't think 43 ;; reports to the beta list instead of the newsgroup.
44 ;; there's an XEmacs equivalent to system-configuration-options, but
45 ;; there should be. -sb
46 (defvar report-emacs-bug-pretest-address "xemacs-beta@xemacs.org" 44 (defvar report-emacs-bug-pretest-address "xemacs-beta@xemacs.org"
47 "Address of mailing list for XEmacs beta bugs.") 45 "Address of mailing list for XEmacs beta bugs.")
48 46
49 (defvar bug-gnu-emacs "xemacs@xemacs.org" 47 (defvar bug-gnu-emacs "xemacs@xemacs.org"
50 "Address of site maintaining mailing list for XEmacs bugs.") 48 "Address of site maintaining mailing list for XEmacs bugs.")
68 ;; The rest of this does not execute 66 ;; The rest of this does not execute
69 ;; if the user was asked to confirm and said no. 67 ;; if the user was asked to confirm and said no.
70 (goto-char (point-min)) 68 (goto-char (point-min))
71 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) 69 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
72 (insert "In " (emacs-version) "\n") 70 (insert "In " (emacs-version) "\n")
73 (if (and (boundp 'system-configuration-options) 71 (if (and system-configuration-options
74 system-configuration-options
75 (not (equal system-configuration-options ""))) 72 (not (equal system-configuration-options "")))
76 (insert "configured using `configure " 73 (insert "configured using `configure "
77 system-configuration-options "'\n")) 74 system-configuration-options "'\n"))
78 (insert "\n") 75 (insert "\n")
79 (insert "Please describe exactly what actions triggered the bug\n" 76 (insert "Please describe exactly what actions triggered the bug\n"
113 (point-max)))))) 110 (point-max))))))
114 ;; This is so the user has to type something 111 ;; This is so the user has to type something
115 ;; in order to send easily. 112 ;; in order to send easily.
116 ;; XEmacs: FSF non-abstraction of data? 113 ;; XEmacs: FSF non-abstraction of data?
117 ;; (use-local-map (nconc (make-sparse-keymap) (current-local-map))) 114 ;; (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
118 (use-local-map (current-local-map)) 115 ;; Ghod intended it this way:
116 (use-local-map (let ((map (make-sparse-keymap)))
117 (set-keymap-parents map (list (current-local-map)))
118 map))
119 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) 119 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
120 (with-output-to-temp-buffer "*Bug Help*" 120 (with-output-to-temp-buffer "*Bug Help*"
121 (princ (substitute-command-keys 121 (princ (substitute-command-keys
122 "Type \\[mail-send-and-exit] to send the bug report.\n")) 122 "Type \\[mail-send-and-exit] to send the bug report.\n"))
123 (princ (substitute-command-keys 123 (princ (substitute-command-keys
124 "Type \\[kill-buffer] RET to cancel (don't send it).\n")) 124 "Type \\[kill-buffer] RET to cancel (don't send it).\n"))
125 (terpri) 125 (terpri)
126 (princ (substitute-command-keys 126 (princ (substitute-command-keys "\
127 "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section 127 Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section
128 about when and how to write a bug report, 128 about when and how to write a bug report, and what information to supply
129 and what information to supply so that the bug can be fixed. 129 so that the bug can be fixed.
130 Type SPC to scroll through this section and its subsections."))) 130 Type `\\[delete-other-windows]' to remove this window.")))
131 ;; Make it less likely people will send empty messages. 131 ;; Make it less likely people will send empty messages.
132 (make-local-variable 'mail-send-hook) 132 (make-local-variable 'mail-send-hook)
133 (add-hook 'mail-send-hook 'report-emacs-bug-hook) 133 (add-hook 'mail-send-hook 'report-emacs-bug-hook)
134 (save-excursion 134 (save-excursion
135 (goto-char (point-max)) 135 (goto-char (point-max))