;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:48:59 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/reporter.el ;;; emacs version 19.28.90.26. ;;; 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/reporter.el' was compiled for Emacs 19")) #@251 *Mail package to use to generate bug report buffer. This can either be a function symbol or a list of function symbols. If a list, it tries to use each specified mailer in order until an existing one is found. MH-E users may want to use `mh-smail'. (defvar reporter-mailer (quote (vm-mail reporter-mail)) (#$ . -486)) #@449 Interface variable controlling prompting for problem summary. When non-nil, `reporter-submit-bug-report' prompts the user for a brief summary of the problem, and puts this summary on the Subject: line. Default behavior is to not prompt (i.e. nil). If you want reporter to prompt, you should `let' bind this variable to t before calling `reporter-submit-bug-report'. Note that this variable is not buffer-local so you should never just `setq' it. (defvar reporter-prompt-for-summary-p nil (#$ . 812)) #@565 Interface variable controlling compating of list values. When non-nil, this must be a list of variable symbols. When a variable containing a list value is formatted in the bug report mail buffer, it normally is compacted so that its value fits one the fewest number of lines. If the variable's symbol appears in this list, its value is printed in a more verbose style, specifically, one elemental sexp per line. Note that this variable is not buffer-local so you should never just `setq' it. If you want to changes its default value, you should `let' bind it. (defvar reporter-dont-compact-list nil (#$ . 1321)) #@184 Buffer to retrieve variable's value from. This is necessary to properly support the printing of buffer-local variables. Current buffer will always be the mail buffer being composed. (defvar reporter-eval-buffer nil (#$ . 1944)) #@26 Reporter version number. (defconst reporter-version "2.21" (#$ . 2179)) #@57 The automatically created initial text of a bug report. (defvar reporter-initial-text nil (#$ . 2257)) (byte-code "!!\f B! Bć" [make-variable-buffer-local reporter-initial-text boundp reporter-status-message nil current-load-list reporter-status-count] 2) (defalias 'reporter-update-status #[nil "U\f!\fPT" [reporter-status-count 10 0 message reporter-status-message "."] 2]) (defalias 'reporter-beautify-list #[(maxwidth compact-p) " Ǐ," [reporter-update-status nil here indent-p indent-enclosing-p linebreak (byte-code "!`!iXB%b \fb \"\f\fb!\f  M` " [down-list 1 t indent-enclosing-p here forward-sexp maxwidth linebreak newline-and-indent nil reporter-beautify-list compact-p indent-p] 3) ((error indent-enclosing-p))] 4]) (defalias 'reporter-lisp-indent #[(indent-point state) "A@Tbi)" [state] 1]) (defalias 'reporter-dump-variable #[(varsym mailbuf) " Ï" [reporter-update-status nil (byte-code "q J) ! S`  >'͂< <1΂< 9;΂< !  n ? b\"+c-" [reporter-eval-buffer varsym symbol-name t window-width here maxwidth print-escape-newlines sym val " " " " (t nil) "" "'" prin1-to-string lisp-indent-line reporter-dont-compact-list reporter-lisp-indent lisp-indent-function compact-p reporter-beautify-list "\n"] 6) ((void-variable (byte-code "q! !Ʊ)" [mailbuf mail-position-on-field "X-Reporter-Void-Vars-Found" nil symbol-name varsym " "] 2)) (error (error)))] 3]) (defalias 'reporter-dump-state #[(pkgname varlist pre-hooks post-hooks) "pq ñ\f\fñ!'c̏!)" [buffer "Emacs : " emacs-version "\n" pkgname "Package: " run-hooks pre-hooks varlist "\ncurrent state:\n==============\n" fault (byte-code "p!\nq c \n\" c)\n!*" [get-buffer-create " *tmp-reporter-buffer*" elbuf mailbuf emacs-lisp-mode erase-buffer "(setq\n" lisp-indent-line mapcar #[(varsym-or-cons-cell) "\f\n \f\"*" [varsym-or-cons-cell reporter-dump-variable printer varsym mailbuf] 3] varlist ")\n" insert-buffer] 3) ((error (byte-code " \"ı" ["State could not be dumped due to the following error:\n\n" format "%s" fault "\n\nYou should still send this bug report."] 4))) post-hooks] 4]) (defalias 'reporter-calculate-separator #[nil "!E#Q#̔̕{)" [re-search-forward "^\\(" mapconcat identity "[ ]*" "-+" regexp-quote mail-header-separator "\\|" "\\)$" nil move 0] 8]) (defalias 'reporter-mail #[(&rest args) "\n\"\n!" [apply mail args error "Bug report aborted"] 3 nil "P"]) (defalias 'reporter-submit-bug-report #[(address pkgname varlist &optional pre-hooks post-hooks salutation) "p \f!<M @ @!7 @  A #J\"*!p!!!eb !c ! y`\"\" c()*$b*!dbx`{.)!\"3#77!:3:#.\n" [nil "Formatting bug report buffer..." 0 reporter-prompt-for-summary-p read-string "(Very) brief summary of problem: " call-interactively reporter-mailer mailer mlist commandp error "Variable `%s' does not contain a command for mailing" "reporter-mailer" mailbuf problem reporter-status-count reporter-status-message after-sep-pos final-resting-place reporter-eval-buffer require sendmail pop-to-buffer reporter-calculate-separator mail-header-separator mail-position-on-field "to" address pkgname "subject" "; " mail-text 1 salutation "\n" "\n\n" ((byte-code "" [final-resting-place nil] 3)) point-marker reporter-dump-state varlist pre-hooks post-hooks fboundp add-hook " \n" reporter-initial-text make-variable-buffer-local mail-send-hook reporter-bug-hook "C-c C-c" sendkey where-is-internal kill-buffer t killkey-whereis key-description "M-x kill-buffer" killkey message "Please type in your report. Hit %s to send, %s to abort."] 11]) (defalias 'reporter-bug-hook #[nil " d#y`)dbx` ZGU/ `{/!*" [beginning-of-buffer re-search-forward reporter-calculate-separator move 1 after-sep-pos " \n" nil reporter-initial-text error "Empty bug report cannot be sent"] 4]) (provide (quote reporter))