Mercurial > emacs
changeset 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 | 42c00d12d8d0 |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 11 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Thu May 07 06:31:31 1998 +0000 +++ b/lisp/mail/emacsbug.el Thu May 07 06:34:20 1998 +0000 @@ -146,18 +146,19 @@ ;; in order to send easily. (use-local-map (nconc (make-sparse-keymap) (current-local-map))) (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) - (with-output-to-temp-buffer "*Bug Help*" - (if (eq mail-user-agent 'sendmail-user-agent) - (princ (substitute-command-keys - "Type \\[mail-send-and-exit] to send the bug report.\n"))) - (princ (substitute-command-keys - "Type \\[kill-buffer] RET to cancel (don't send it).\n")) - (terpri) - (princ (substitute-command-keys - "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section + (unless report-emacs-bug-no-explanations + (with-output-to-temp-buffer "*Bug Help*" + (if (eq mail-user-agent 'sendmail-user-agent) + (princ (substitute-command-keys + "Type \\[mail-send-and-exit] to send the bug report.\n"))) + (princ (substitute-command-keys + "Type \\[kill-buffer] RET to cancel (don't send it).\n")) + (terpri) + (princ (substitute-command-keys + "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section about when and how to write a bug report, and what information to supply so that the bug can be fixed. -Type SPC to scroll through this section and its subsections."))) +Type SPC to scroll through this section and its subsections.")))) ;; Make it less likely people will send empty messages. (make-local-variable 'mail-send-hook) (add-hook 'mail-send-hook 'report-emacs-bug-hook)