;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Jun 8 22:13:02 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/emacsbug.el ;;; emacs version 19.28.93.6. ;;; 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.28.90"))) (error "`emacsbug.el' was compiled for Emacs 19.29 or later")) (require (quote sendmail)) #@62 Address of site maintaining mailing list for GNU Emacs bugs. (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" (#$ . 505)) #@55 The automatically-created initial text of bug report. (defvar report-emacs-bug-orig-text nil (#$ . 638)) #@83 Report a bug in GNU Emacs. Prompts for bug subject. Leaves you in a mail buffer. (defalias 'report-emacs-bug #[(topic) "\n #eb!Q! \fͱ ! #Ԑ!! !!!\"dbx!e`{)" [mail nil bug-gnu-emacs topic re-search-forward "^" regexp-quote mail-header-separator "\n" "In " emacs-version "\nconfigured using " system-configuration-options "\n\n" 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" 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] 5 (#$ . 749) "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 (#$ . 1712) 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))