From 1628adc6cd168ccd6570da6ca34123d7bd07ce33 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 9 Jun 1995 01:24:47 +0000 Subject: [PATCH] (report-emacs-bug-info): New command. (report-emacs-bug): Put it in local map. Display a message in another window. --- lisp/mail/emacsbug.el | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 8772b526f92..f9299788b42 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -52,7 +52,19 @@ Prompts for bug subject. Leaves you in a mail buffer." (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) (insert "In " (emacs-version) "\nconfigured using " system-configuration-options "\n\n") - (message (substitute-command-keys "Type \\[mail-send-and-exit] to send bug report.")) + ;; This is so the user has to type something + ;; 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*" + (princ (substitute-command-keys + "Type \\[mail-send-and-exit] to send the bug report.\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."))) ;; Make it less likely people will send empty messages. (make-local-variable 'mail-send-hook) (add-hook 'mail-send-hook 'report-emacs-bug-hook) @@ -62,6 +74,14 @@ Prompts for bug subject. Leaves you in a mail buffer." (make-local-variable 'report-emacs-bug-orig-text) (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point))))) +(defun report-emacs-bug-info () + "Go to the Info node on reporting Emacs bugs." + (interactive) + (info) + (Info-directory) + (Info-menu "emacs") + (Info-goto-node "Bugs")) + (defun report-emacs-bug-hook () (save-excursion (goto-char (point-max)) -- 2.39.2