Mercurial > emacs
comparison lisp/mail/emacsbug.el @ 21975:386e14726b59
(report-emacs-bug): Don't display *Bug Help* if
report-emacs-bug-no-explanations.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 May 1998 06:34:20 +0000 |
| parents | 42b308d86213 |
| children | 65726622c836 |
comparison
equal
deleted
inserted
replaced
| 21974:42b308d86213 | 21975:386e14726b59 |
|---|---|
| 144 (insert-buffer-substring message-buf beg-pos end-pos)))) | 144 (insert-buffer-substring message-buf beg-pos end-pos)))) |
| 145 ;; This is so the user has to type something | 145 ;; This is so the user has to type something |
| 146 ;; in order to send easily. | 146 ;; in order to send easily. |
| 147 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) | 147 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) |
| 148 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) | 148 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) |
| 149 (with-output-to-temp-buffer "*Bug Help*" | 149 (unless report-emacs-bug-no-explanations |
| 150 (if (eq mail-user-agent 'sendmail-user-agent) | 150 (with-output-to-temp-buffer "*Bug Help*" |
| 151 (princ (substitute-command-keys | 151 (if (eq mail-user-agent 'sendmail-user-agent) |
| 152 "Type \\[mail-send-and-exit] to send the bug report.\n"))) | 152 (princ (substitute-command-keys |
| 153 (princ (substitute-command-keys | 153 "Type \\[mail-send-and-exit] to send the bug report.\n"))) |
| 154 "Type \\[kill-buffer] RET to cancel (don't send it).\n")) | 154 (princ (substitute-command-keys |
| 155 (terpri) | 155 "Type \\[kill-buffer] RET to cancel (don't send it).\n")) |
| 156 (princ (substitute-command-keys | 156 (terpri) |
| 157 "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section | 157 (princ (substitute-command-keys |
| 158 "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section | |
| 158 about when and how to write a bug report, | 159 about when and how to write a bug report, |
| 159 and what information to supply so that the bug can be fixed. | 160 and what information to supply so that the bug can be fixed. |
| 160 Type SPC to scroll through this section and its subsections."))) | 161 Type SPC to scroll through this section and its subsections.")))) |
| 161 ;; Make it less likely people will send empty messages. | 162 ;; Make it less likely people will send empty messages. |
| 162 (make-local-variable 'mail-send-hook) | 163 (make-local-variable 'mail-send-hook) |
| 163 (add-hook 'mail-send-hook 'report-emacs-bug-hook) | 164 (add-hook 'mail-send-hook 'report-emacs-bug-hook) |
| 164 (save-excursion | 165 (save-excursion |
| 165 (goto-char (point-max)) | 166 (goto-char (point-max)) |