;ELC ;;; compiled by jwz@thalidomide on Mon Nov 8 12:22:47 1993 ;;; from file /th/jwz/emacs19/lisp/utils/reporter.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.20; 20-oct-93. ;;; 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 "This file was compiled for Emacs 19.")) (defvar reporter-mailer '(vm-mail mail) "\ *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.") (defvar reporter-eval-buffer nil "\ 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.") (fset 'reporter-dump-variable #[(varsym) "ŠqˆÁ\n!)Ã\n!ÄÈÉÊ>«ƒËª‘<«ƒÌª‰9«ƒÌªËÍ!α+‡" [reporter-eval-buffer eval varsym symbol-name t print-escape-newlines sym val " " " " (t nil) "" "'" prin1-to-string "\n"] 6 "\ Pretty-print the value of the variable in symbol VARSYM."]) (fset 'reporter-dump-state #[(pkgname varlist pre-hooks post-hooks) "p‰qˆÁ à űˆÆÇ!ˆÈcˆÉÊ \"ˆÌcˆÆÍ!)‡" [buffer "Emacs : " emacs-version "\nPackage: " pkgname "\n" run-hooks pre-hooks "\ncurrent state:\n==============\n(setq\n" mapcar #[(varsym-or-cons-cell) "¢®£®Á\n !*‡" [varsym-or-cons-cell reporter-dump-variable printer varsym] 2] varlist " )\n" post-hooks] 6 "\ Dump the state of the mode specific variables. PKGNAME contains the name of the mode as it will appear in the bug report (you must explicitly concat any version numbers). VARLIST is the list of variables to dump. Each element in VARLIST can be a variable symbol, or a cons cell. If a symbol, this will be passed to `reporter-dump-variable' for insertion into the mail buffer. If a cons cell, the car must be a variable symbol and the cdr must be a function which will be `funcall'd with the symbol. Use this to write your own custom variable value printers for specific variables. Note that the global variable `reporter-eval-buffer' will be bound to the buffer in which `reporter-submit-bug-report' was invoked. If you want to print the value of a buffer local variable, you should wrap the `eval' call in your custom printer inside a `set-buffer' (and probably a `save-excursion'). `reporter-dump-variable' handles this properly. PRE-HOOKS is run after the emacs-version and PKGNAME are inserted, but before the VARLIST is dumped. POST-HOOKS is run after the VARLIST is dumped."]) (fset 'reporter-submit-bug-report #[(address pkgname varlist &optional pre-hooks post-hooks salutation) "pÀ <¬ƒ ª¥ ‰«”Å @!«ˆ @‰ªp A‰¬l ¬…ÆÇÈ\"ˆ *!ˆp \nËÌ!ˆÍ\n!ˆÍ !ˆebˆŠÎÏÐÑÒÓÔ!EÖ#×QÂØ#ˆÙ”Ù•{)ÚÛ!ˆcˆÚÝ!ˆÞ±ˆÎdØ#ˆàyˆ!«‡â!㱈ä`!ˆãcˆå&'($ˆé ˆ)ê+ìíÂî#‰/«†ð/!ªñ2óô+2#-‡" [call-interactively reporter-mailer nil mailer mlist commandp error "variable `%s' does not contain a command for mailing." "reporter-mailer" mailbuf reporter-eval-buffer require sendmail pop-to-buffer re-search-forward "^\\(" mapconcat identity "[ ]*" "-+" regexp-quote mail-header-separator "\\|" "\\)$" move 0 mail-position-on-field "to" address "subject" "Report on package " pkgname 1 salutation "\n" "\n\n" set-mark reporter-dump-state varlist pre-hooks post-hooks exchange-point-and-mark "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."] 9 "\ Submit a bug report via mail. ADDRESS is the email address for the package's maintainer. PKGNAME is the name of the mode (you must explicitly concat any version numbers). VARLIST is the list of variables to dump (do a `\\[describe-function] reporter-dump-state' for details). Optional PRE-HOOKS and POST-HOOKS are passed to `reporter-dump-state'. Optional SALUTATION is inserted at the top of the mail buffer, and point is left after the saluation. The mailer used is described in the variable `reporter-mailer'."]) (provide 'reporter)