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 |