;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:26 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/w3m-bug.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`w3m-bug.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@46 *Address of mailing list for emacs-w3m bugs. (defvar report-emacs-w3m-bug-address "emacs-w3m@namazu.org" (#$ . -637)) #@76 *If non-nil, suppress the explanations given for the sake of novice users. (defvar report-emacs-w3m-bug-no-explanations nil (#$ . -761)) #@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-use-mule-ucs)) (#$ . 904)) (byte-code "\301\302!\203 \303\304!\210\202#\305\306!\204#\301\300!\203#\307U\203#\303\310!\210\301\207" [emacs-major-version boundp MULE require w3m-om featurep xemacs 19 w3m-e19] 2) #@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\321\232\203Y\325c\210\326`\327c\210`\330\331$\210\332c\210\202v\333c\210\326`\334c\210`\330\335$\210\336c\210\326`\337c\210`\330\335$\210\340c\210\324c\210\341c\210`\342\306\211\21112345\343c\210r\f\206\224pq\2106\3067\2118\203\3648@7\3447!3B3\3453B3\3467!\203\305\344\347\350\351\217!\202\34079\203\324\344\347\352\353\217!\202\3407:\205\340\344\347\354\355\217!3B3\3563B38A\2118\204\241+\357\3603\237\"\2105b-\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" "’¤³’¤Î’¥Ð’¥°’¥ê’¥Ý’¡¼’¥È’¤Ï 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" "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=#:--dolist-temp--94967] 5 (#$ . 1663) (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))])