;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Fri Jul 8 15:58:11 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/emacsbug.el ;;; emacs version 19.25.12. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/emacsbug.el' was compiled for Emacs 19")) (require (quote sendmail)) (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" "\ Address of site maintaining mailing list for GNU Emacs bugs.") (defvar report-emacs-bug-orig-text nil "\ The automatically-created initial text of bug report.") (defalias 'report-emacs-bug #[(topic) "ÀÁ\n #ˆebˆÄÅÆ!ÈQ!ˆÉÊ Ë±ˆÌÍÎ!!ˆÏÐ!ˆÑÐÒ\"ˆŠdbˆÓÁxˆÏÔ!ˆe`{‰)‡" [mail nil bug-gnu-emacs topic re-search-forward "^" regexp-quote mail-header-separator "\n" "In " emacs-version "\n\n" message substitute-command-keys "Type \\[mail-send-and-exit] to send bug report." make-local-variable mail-send-hook add-hook report-emacs-bug-hook " \n" report-emacs-bug-orig-text] 4 "\ Report a bug in GNU Emacs. Prompts for bug subject. Leaves you in a mail buffer." "sBug Subject: "]) (byte-code "ÀÁÂ\"ˆÃÄ!‡" [defalias report-emacs-bug-hook #[nil "ŠdbˆÀÁxˆ`eZ\nGU…e`{\nš…ÃÄ!)‡" [" \n" nil report-emacs-bug-orig-text error "No text entered in bug report"] 2] provide emacsbug] 3)