diff options
| author | Richard M. Stallman | 1998-05-07 06:34:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-07 06:34:20 +0000 |
| commit | e9227982cb82f5c12c1c63fb04d8f9c2afdee0ae (patch) | |
| tree | 7b220e6798055216149d45cc91ebf97298a66e7d | |
| parent | 518adca24d8cde9589c59400353554ec5727504c (diff) | |
| download | emacs-e9227982cb82f5c12c1c63fb04d8f9c2afdee0ae.tar.gz emacs-e9227982cb82f5c12c1c63fb04d8f9c2afdee0ae.zip | |
(report-emacs-bug): Don't display *Bug Help* if
report-emacs-bug-no-explanations.
| -rw-r--r-- | lisp/mail/emacsbug.el | 21 |
1 files changed, 11 insertions, 10 deletions
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")) | |||
| 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) |