;ELC ;;; Compiled by rms@psilocin.gnu.org on Sat May 9 19:28:07 1998 ;;; from file /gd/gnu/emacs/lisp/mail/reporter.el ;;; in Emacs version 20.2.93.3 ;;; with bytecomp version 2.41 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`reporter.el' was compiled for Emacs 19.29 or later")) #@517 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. If this variable is a string, that string is used as the prompt string. Default behavior is to not prompt (i.e. nil). If you want reporter to prompt, you should `let' bind this variable 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 (#$ . 537)) #@566 Interface variable controlling compacting 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 (#$ . 1114)) #@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 (#$ . 1738)) #@26 Reporter version number. (defconst reporter-version "3.34" (#$ . 1973)) #@57 The automatically created initial text of a bug report. (defvar reporter-initial-text nil (#$ . 2051)) (byte-code "\303\304!\210\305\300!\204\f\306\300 B\305\302!\204\306\302 B\306\207" [reporter-status-message current-load-list reporter-status-count make-variable-buffer-local reporter-initial-text boundp nil] 2) (defalias 'reporter-update-status #[nil "\302\246\303U\203\304 !\210 \305PT\211\207" [reporter-status-count reporter-status-message 10 0 message "."] 2]) (defalias 'reporter-beautify-list #[(maxwidth compact-p) "\305 \210\306\307\211\211\211\307\310\311\217-\207" [here indent-p indent-enclosing-p linebreak move reporter-update-status t nil (byte-code "\306\307!\210\310 \203S`\311`\307\"\211b\210 iX\203D\f\203)\fb\210\312 \210\313\202\nb\210\314 \"\nb\210\315\307!\210\203\312 \210\202 \203M`\202\312 \210\202\310\207" [indent-enclosing-p move here maxwidth linebreak compact-p down-list 1 t scan-sexps newline-and-indent nil reporter-beautify-list forward-sexp indent-p] 4) ((error indent-enclosing-p))] 5]) (defalias 'reporter-lisp-indent #[(indent-point state) "\212A@Tb\210i)\207" [state] 1]) (defalias 'reporter-dump-variable #[(varsym mailbuf) "\300 \210\301\302\303\217\207" [reporter-update-status nil (byte-code "\212q\210 J)\306 !\307\310 S`\311 \312\313>\203#\314\2028<\203-\315\20289\2037\315\2028\314\316!\261\210\317 \210\203h<\203h iX\203h\212 >?\320\nb\210\321 \"\210+\322c-\207" [reporter-eval-buffer varsym here maxwidth print-escape-newlines sym symbol-name t window-width " " " " (t nil) "" "'" prin1-to-string lisp-indent-line reporter-lisp-indent reporter-beautify-list "\n" val reporter-dont-compact-list lisp-indent-function compact-p] 6) ((void-variable (byte-code "\212q\210\302\303!\210\304\210\305 !\306\261)\207" [mailbuf varsym mail-position-on-field "X-Reporter-Void-Vars-Found" nil symbol-name " "] 2)) (error (error "")))] 3]) (defalias 'reporter-dump-state #[(pkgname varlist pre-hooks post-hooks) "p\211q\210\303\304 \305\261\210 \203\306 \305\261\210\307\310!\210\n\203&\311c\210\312\313\314\217\210\307\315!)\207" [buffer pkgname varlist "Emacs : " emacs-version "\n" "Package: " run-hooks pre-hooks "\ncurrent state:\n==============\n" fault (byte-code "p\303\304!\212q\210\305 \210\306 \210\307c\210\310 \210\311\312\n\"\210\310 \210\313c\210)\314!\210*\303\207" [elbuf mailbuf varlist get-buffer-create " *tmp-reporter-buffer*" emacs-lisp-mode erase-buffer "(setq\n" lisp-indent-line mapcar #[(varsym-or-cons-cell) "\242\206\243\206\f\304 \n \"*\207" [varsym-or-cons-cell printer varsym mailbuf reporter-dump-variable] 3] ")\n" insert-buffer] 3) ((error (byte-code "\301\302\303\"\304\261\207" [fault "State could not be dumped due to the following error:\n\n" format "%s" "\n\nYou should still send this bug report."] 4))) post-hooks] 4]) (defalias 'reporter-compose-outgoing #[nil "\303N\211\203\304\n!\204/\305\305\303N\211\203 \304\n!\204'\306\307!\210\202/\310 \210\311\312\"\210\n \210 *\207" [mail-user-agent agent compose composefunc functionp sendmail-user-agent error "Could not find a valid `mail-user-agent'" ding message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'"] 4]) (defalias 'reporter-submit-bug-report #[(address pkgname varlist &optional pre-hooks post-hooks salutation) "p\306\211\307\310\205\311;\203\202\312!\313 p\306()*+\314\315!\210\306\211,-\316\n!\210.\203>\317+!\210*eb\210\320\321!\210/c\210\203b\f\203b0\203b\320\322!\2100\323\f\261\210\324 \210\325y\210`)1\203w\3261\327\261\210\330\216\331 *\327c\210\3320234$\210*b\210)\212db\210\333\306x\210)`{5) \301N\211\203\260\334 !\210\335 \336\"\210\337 \340N\306\341#6\337 \342N\306\341#76\203\316\3436!\202\317\34487\203\335\3437!\202\336\3459\346\34789#. \207" [reporter-prompt-for-summary-p hookvar mailbuf agent problem reporter-status-count nil "Formatting bug report buffer..." 0 read-string "(Very) brief summary of problem: " reporter-compose-outgoing require sendmail pop-to-buffer display-buffer mail-position-on-field "to" "subject" "; " mail-text 1 "\n" "\n\n" ((byte-code "\301\211\223\207" [final-resting-place nil] 3)) point-marker reporter-dump-state " \n" make-variable-buffer-local add-hook reporter-bug-hook where-is-internal sendfunc t abortfunc key-description "C-c C-c" "M-x kill-buffer" message "Please enter your report. Type %s to send, %s to abort." reporter-status-message after-sep-pos final-resting-place reporter-eval-buffer same-window-regexps same-window-buffer-names pop-up-windows address pkgname salutation varlist pre-hooks post-hooks reporter-initial-text sendkey-whereis abortkey-whereis sendkey abortkey] 9]) (defalias 'reporter-bug-hook #[nil "\212\302 \210\303y\210`)\212db\210\304\305x\210`Z GU\205&`{ \230\205&\306\307!*\207" [after-sep-pos reporter-initial-text rfc822-goto-eoh 1 " \n" nil error "Empty bug report cannot be sent"] 2]) (provide 'reporter)