Mercurial > emacs
comparison lisp/mail/emacsbug.el @ 8842:289246a9fdb1
(report-emacs-bug): Insert configuration options.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 17 Sep 1994 02:04:08 +0000 |
parents | 9d47411b0548 |
children | beb7bc6f2d5c |
comparison
equal
deleted
inserted
replaced
8841:ccc781ef6e3a | 8842:289246a9fdb1 |
---|---|
48 Prompts for bug subject. Leaves you in a mail buffer." | 48 Prompts for bug subject. Leaves you in a mail buffer." |
49 (interactive "sBug Subject: ") | 49 (interactive "sBug Subject: ") |
50 (mail nil bug-gnu-emacs topic) | 50 (mail nil bug-gnu-emacs topic) |
51 (goto-char (point-min)) | 51 (goto-char (point-min)) |
52 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) | 52 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) |
53 (insert "In " (emacs-version) "\n\n") | 53 (insert "In " (emacs-version) "\nconfigured using " |
54 system-configure-options "\n\n") | |
54 (message (substitute-command-keys "Type \\[mail-send-and-exit] to send bug report.")) | 55 (message (substitute-command-keys "Type \\[mail-send-and-exit] to send bug report.")) |
55 ;; Make it less likely people will send empty messages. | 56 ;; Make it less likely people will send empty messages. |
56 (make-local-variable 'mail-send-hook) | 57 (make-local-variable 'mail-send-hook) |
57 (add-hook 'mail-send-hook 'report-emacs-bug-hook) | 58 (add-hook 'mail-send-hook 'report-emacs-bug-hook) |
58 (save-excursion | 59 (save-excursion |