;ELC ;;; Compiled by nelhage@mit.edu on Sat Dec 16 21:49:52 2006 ;;; from file /home/nelhage/.elisp/site/emacs-w3m/w3m-bug.el ;;; in Emacs version 23.0.0.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters ;;; and therefore cannot be loaded into Emacs 21 or earlier. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "23"))) (error "`w3m-bug.el' was compiled for Emacs 23 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@46 *Address of mailing list for emacs-w3m bugs. (defvar report-emacs-w3m-bug-address "emacs-w3m@namazu.org" (#$ . -586)) #@76 *If non-nil, suppress the explanations given for the sake of novice users. (defvar report-emacs-w3m-bug-no-explanations nil (#$ . -710)) #@72 List of the system informations. Users should NEVER modify the value. (defconst report-emacs-w3m-bug-system-informations (eval '`(emacs-w3m-version emacs-version ,@(if (or (boundp 'mule-version) (functionp 'mule-version)) '(mule-version)) ,@(cond ((featurep 'xemacs) '((featurep 'mule) (featurep 'file-coding))) ((or (boundp 'Meadow-version) (functionp 'Meadow-version)) '(Meadow-version))) system-type w3m-version w3m-type w3m-compile-options w3m-language w3m-command-arguments w3m-command-arguments-alist w3m-command-environment w3m-input-coding-system w3m-output-coding-system w3m-use-mule-ucs)) (#$ . 853)) #@83 Report a bug in emacs-w3m. Prompts for bug subject. Leaves you in a mail buffer. (defalias 'report-emacs-w3m-bug #[(topic &optional buffer) "\306\307\310!\210)\311 \n\"\210eb\210\312\313\314 !\315Q!\210\316y\210\f\2045\317\320!\2030\320J\321\232\2030\322\2021\323\324\261\210 \204y\317\320!\203Y\320J\325\232\203Y\326c\210\327`\330c\210`\331\332$\210\333c\210\202v\334c\210\327`\335c\210`\331\336$\210\337c\210\327`\340c\210`\331\336$\210\341c\210\342c\210\343c\210`\344\306\211\21134567\345c\210r\f\206\224pq\2108\3069\211:\203\364:@9\3469!5B5\3475B5\3509!\203\305\346\351\352\353\217!\202\34099\203\324\346\351\354\355\217!\202\3409:\205\340\346\351\356\357\217!5B5\3605B5:A\211:\204\241+\361\3625\237\"\2107b-\207" [after-load-alist report-emacs-w3m-bug-address topic mail-header-separator buffer report-emacs-w3m-bug-no-explanations nil load "w3m-bug" compose-mail re-search-forward "^" regexp-quote "$" 1 boundp w3m-language "Japanese" "もし可能なら emacs-w3m を起動してからやり直して下さい。\n" "It is if possible, please redo after starting emacs-w3m.\n" "================================================================\n" "Japanese" "このバグリポートは emacs-w3m 開発チームに送られます。\n" put-text-property "あなたのローカルサイトの管理者宛てではありません!!" face underline "\n\nできるだけ簡潔に述べて下さい:\n - 何が起きましたか?\n - 本当はどうなるべきだったと思いますか?\n - そのとき何をしましたか? (正確に)\n\nもし Lisp のバックトレースがあれば添付して下さい。\n" "This bug report will be sent to the emacs-w3m development team,\n" " not to your local site managers!!" italic "\nPlease write in " "simple" " English, because the emacs-w3m developers\naren't good at English reading. ;-)\n\nPlease describe as succinctly as possible:\n - What happened.\n - What you thought should have happened.\n - Precisely what you were doing at the time.\n\nPlease also include any Lisp back-traces that you may have.\n" "================================================================\n" "Dear Bug Team!\n\n" t "\n\n================================================================\n\nSystem Info to help track down your bug:\n---------------------------------------\n" prin1-to-string "\n => " functionp code (funcall info) ((error code)) (symbol-value info) ((error code)) (eval info) ((error code)) "\n" apply insert print-level print-length infos print-escape-newlines user-point report-emacs-w3m-bug-system-informations info #1=#:--cl-dolist-temp--] 5 (#$ . 1471) (let* ((buffer (current-buffer)) (buffers (cons buffer (delq buffer (buffer-list)))) (inhibit-point-motion-hooks t) keymap) (save-excursion (while buffers (setq buffer (car buffers) buffers (cdr buffers)) (set-buffer buffer) (save-restriction (widen) (if (or (eq major-mode 'w3m-mode) (and (keymapp (setq keymap (or (get-text-property (max (1- (point-max)) (point-min)) 'keymap) (get-text-property (max (1- (point-max)) (point-min)) 'local-map))))) (where-is-internal 'w3m-print-current-url keymap)) (setq buffers nil) (setq buffer nil))))) (list (read-string "Bug Subject: ") buffer))])