From: Richard M. Stallman Date: Thu, 7 May 1998 06:34:20 +0000 (+0000) Subject: (report-emacs-bug): Don't display *Bug Help* if X-Git-Tag: emacs-20.3~1102 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9227982cb82f5c12c1c63fb04d8f9c2afdee0ae;p=emacs.git (report-emacs-bug): Don't display *Bug Help* if report-emacs-bug-no-explanations. --- diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 7773082814f..f9f724bfd1f 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -146,18 +146,19 @@ translators to read other languages for them.\n\n")) ;; 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)