;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Mar 17 10:32:55 1996 ;;; from file /home/fsf/rms/e19/lisp/emacsbug.el ;;; emacs version 19.30.91.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emacsbug.el' was compiled for Emacs 19.29 or later")) (require (quote sendmail)) #@45 Address of mailing list for GNU Emacs bugs. (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" (#$ . 501)) #@53 Address of mailing list for GNU Emacs pretest bugs. (defvar report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.ai.mit.edu" (#$ . 617)) #@55 The automatically-created initial text of bug report. (defvar report-emacs-bug-orig-text nil (#$ . 763)) #@83 Report a bug in GNU Emacs. Prompts for bug subject. Leaves you in a mail buffer. (defalias 'report-emacs-bug #[(topic) "\f\" #eb\f!Q! ͱ?К?ұcԱ`ֱ` #c`}b!mx#cd*!\"c\"\"qdby`)\"qd)#) ! #!!!! !!!\"dbx!e`{8)b)" [mail nil string-match "\\..*\\..*\\." emacs-version report-emacs-bug-pretest-address bug-gnu-emacs topic user-point re-search-forward "^" regexp-quote mail-header-separator "\n" "In " system-configuration-options "" "configured using `configure " "'\n" "Please describe exactly what actions triggered the bug\n" "and the precise symptoms of the bug:\n\n" "\n\n\n" "Recent input:\n" before-keys mapconcat #[(key) "9<!\"" [key single-key-description prin1-to-string nil] 3] recent-keys " " move-to-column 50 search-forward t get-buffer "*Messages*" message-buf "\n\nRecent messages:\n" insert-buffer-substring -10 use-local-map make-sparse-keymap current-local-map define-key " " report-emacs-bug-info "*Bug Help*" princ substitute-command-keys "Type \\[mail-send-and-exit] to send the bug report.\n" "Type \\[kill-buffer] RET to cancel (don't send it).\n" terpri "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section\nabout when and how to write a bug report,\nand what information to supply so that the bug can be fixed.\nType SPC to scroll through this section and its subsections." make-local-variable mail-send-hook add-hook report-emacs-bug-hook " \n" report-emacs-bug-orig-text] 6 (#$ . 874) "sBug Subject: "]) #@46 Go to the Info node on reporting Emacs bugs. (defalias 'report-emacs-bug-info #[nil " !!" [info Info-directory Info-menu "emacs" Info-goto-node "Bugs"] 2 (#$ . 2500) nil]) (defalias 'report-emacs-bug-hook #[nil "dbx`eZ\nGUe`{\n!)" [" \n" nil report-emacs-bug-orig-text error "No text entered in bug report"] 2]) (provide (quote emacsbug))