;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@46 *Address of mailing list for emacs-w3m bugs. (defvar report-emacs-w3m-bug-address "emacs-w3m@namazu.org" (#$ . -87)) #@76 *If non-nil, suppress the explanations given for the sake of novice users. (defvar report-emacs-w3m-bug-no-explanations nil (#$ . -210)) #@72 List of the system informations. Users should NEVER modify the value. (defconst report-emacs-w3m-bug-system-informations (eval '`(emacs-w3m-git-revision emacs-w3m-version emacs-version ,@(if (boundp 'mule-version) '(mule-version)) system-type (featurep 'gtk) (featurep 'w3m-load) 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)) (#$ . 353)) #@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\311\211#\210\307\312!\210)\313 \n\306\314$\210eb\210\315\316\317 !\320Q!\210\321y\210\f\204=\322\323!\2038\323J\324\232\2038\325\2029\326\327\261\210 \204\201\322\323!\203a\323J\324\232\203a\330c\210\331`\332c\210`\333\334$\210\335c\210\202~\336c\210\331`\337c\210`\333\340$\210\341c\210\331`\342c\210`\333\340$\210\343c\210\327c\210\344c\210`\311\211\306\211\211123456\345c\210r\f\206\237pq\2107\3068\2119\203\f9@8\3468!3B3\3473B3\3508!\203\324\346\3511\3208 0!\202\37089\203\347\346\3521\3438J0!\202\3708:\205\370\346\3531\367\3548!0!3B3\3553B39A\2119\204\254+\356\3573\237\"\2106b\210\360\306!.\207" [after-load-alist report-emacs-w3m-bug-address topic mail-header-separator buffer report-emacs-w3m-bug-no-explanations nil load "w3m-load" t "w3m-bug" compose-mail new 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" "\n\n================================================================\n\nSystem Info to help track down your bug:\n---------------------------------------\n" prin1-to-string "\n => " functionp (error) (error) (error) eval "\n" apply insert set-buffer-modified-p print-level print-length infos print-quoted print-escape-newlines user-point report-emacs-w3m-bug-system-informations info --dolist-tail--] 7 (#$ . 831) (let* ((buffer (current-buffer)) (buffers (cons buffer (delq buffer (buffer-list)))) (inhibit-point-motion-hooks t) keymap) (save-current-buffer (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))])