;ELC
;;; Compiled by root@revel.ossh.com on Sun Oct 23 11:01:35 2005
;;; from file /home/lcandell/emacs-w3m-1.4.4/w3m.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.el' was compiled for Emacs 20 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@49 Title of a page visiting in the current buffer.
(defvar w3m-current-title nil (#$ . 603))
#@49 A url of a page visiting in the current buffer.
(defvar w3m-current-url nil (#$ . 699))
(byte-code "\303\304!\210\303\305!\210\306\307!\203 \303\310!\210\202\217 \311Y\203d \306\312!\204\217 \313\314!\205) \314J\313\315!\2051 \315J\316\317!E\320\n\203` \n\211A@\211;\2038 \320\321\322\217\203T \320\211\2029 \n\2048 \323\324\"\210\2028 *\202\217 \325Y\203q \303\326!\210\202\217 \327U\203~ \303\330!\210\202\217 \313\331!\203\213 \303\332!\210\202\217 \303\333!\210\303\334!\210\303\335!\210\336\337\340\320\341$\207" [emacs-major-version file files require w3m-util w3m-proc featurep xemacs w3m-xmas 23 w3m-e23 boundp byte-compile-current-file load-file-name locate-library "w3m" nil (byte-code "\301\302\303\304!\"\305\306#\207" [file load expand-file-name "w3m-e23" file-name-directory nil t] 5) ((error)) error "Emacs-w3m of this version does not support Emacs %d; try the development version" 21 w3m-e21 20 w3m-e20 MULE w3m-om w3m-e19 w3m-hist timezone autoload w3m-bookmark-view "w3m-bookmark" t] 6)
#@41 Add a link under point to the bookmark.
(autoload 'w3m-bookmark-add-this-url "w3m-bookmark" '(#$ . 1722) t)
#@57 Add a link address of the current page to the bookmark.
(autoload 'w3m-bookmark-add-current-url "w3m-bookmark" '(#$ . 1836) t)
#@37 Search a word using search engines.
(autoload 'w3m-search "w3m-search" '(#$ . 1969) t)
(autoload 'w3m-search-uri-replace "w3m-search")
#@27 Display a weather report.
(autoload 'w3m-weather "w3m-weather" '(#$ . 2110) t)
(autoload 'w3m-about-weather "w3m-weather")
#@30 Report changes of web sites.
(autoload 'w3m-antenna "w3m-antenna" '(#$ . 2239) t)
#@65 Add a link address of the current page to the antenna database.
(autoload 'w3m-antenna-add-current-url "w3m-antenna" '(#$ . 2327) t)
(autoload 'w3m-about-antenna "w3m-antenna")
#@27 Display a directory tree.
(autoload 'w3m-dtree "w3m-dtree" '(#$ . 2510) t)
(autoload 'w3m-about-dtree "w3m-dtree")
#@27 Search files with Namazu.
(autoload 'w3m-namazu "w3m-namazu" '(#$ . 2631) t)
(autoload 'w3m-about-namazu "w3m-namazu")
#@21 View Perl documents
(autoload 'w3m-perldoc "w3m-perldoc" '(#$ . 2756) t)
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\304\"\210\300\306\304\"\210\300\307\304\"\210\300\310\304\"\210\300\311\304\"\210\300\312\313\"\210\300\314\315\"\210\300\316\315\"\210\300\317\320\"\210\300\321\320\"\210\300\322\320\"\210\300\323\320\"\210\300\324\320\325\326$\210\300\327\330\325\326$\210\300\331\332\325\326$\210\300\333\334\325\326$\207" [autoload w3m-about-perldoc "w3m-perldoc" w3m-fontify-forms "w3m-form" w3m-fontify-textareas w3m-form-textarea-file-cleanup w3m-form-textarea-files-remove w3m-form-kill-buffer w3m-form-set-number w3m-filter "w3m-filter" w3m-setup-tab-menu "w3m-tabmenu" w3m-switch-buffer w3m-cookie-set "w3m-cookie" w3m-cookie-get w3m-cookie w3m-about-cookie w3m-cookie-shutdown nil t report-emacs-w3m-bug "w3m-bug" w3m-replace-symbol "w3m-symbol" widget-forward "wid-edit"] 5)
#@33 Version number of this package.
(defconst emacs-w3m-version "1.4.4" (#$ . 3662))
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\301\310\311&\207" [custom-declare-group w3m nil "Emacs-w3m - the web browser of choice." :group hypermedia w3m-face "Faces used for emacs-w3m." :prefix "w3m-"] 8)
#@600 *Name of the executable file of the w3m command.
You normally don't have to specify the value, since emacs-w3m looks
for the existing commands in order of w3m, w3mmee and w3m-m17n in the
`exec-path' directories in order if it is nil in the beginning.
If you want to use the other w3m command, specify the value of this
variable explicitly in the .emacs file or customize the value and save
it. In this case, you need to restart Emacs and emacs-w3m. That is,
there is currently no way to apply the changing of the w3m command to
all the emacs-w3m programs safely after loading the w3m.elc module.
(custom-declare-variable 'w3m-command 'nil '(#$ . -3976) :group 'w3m :type '(radio (const :format "Not specified " nil) (string :format "Command: %v\n" :size 0)))
#@84 Type of the w3m command.
The valid values include `w3m', `w3mmee', and `w3m-m17n'.
(defvar w3m-type nil (#$ . 4744))
#@54 Compile options that the w3m command was built with.
(defvar w3m-compile-options nil (#$ . 4867))
#@36 Version string of the w3m command.
(defvar w3m-version nil (#$ . 4971))
(byte-code "\203
\204\361 \306\202\361 \203 \n\203 \203 \f\204\361 \206\204 \306\306;\205? \307
!\2038 \310
!\2038
\202? \311
!\312\313\215)\206\204 \314\314;\205a \307
!\203Z \310
!\203Z
\202a \311
!\312\313\215)\206\204 \315\315;\205\203 \307
!\203| \310
!\203|
\202\203 \311
!\312\313\215)\211\203\360
\316\317\320!!'\321\216r'q\210\322
\323\324\323\325%\210eb\210\326\327\323\324#\203\315 \330\331!\332\224\203\271 \333\202\314 \334\224\203\302 \335\202\314 \331\224\203\313 \336\202\314 \337\326\340\323\324#\203\357 \341\342\225\212\323\210`){\343\"\206\346 \323C\344\f\235\203\357 \335+) ;\204\372 \345\346!\210\323\207" [noninteractive w3m-command w3m-type w3m-version w3m-compile-options command "w3m" file-name-absolute-p file-executable-p file-name-nondirectory found-command (byte-code "\305 \305\211\2031 @\306\307\f\n\"\211!\204% \306\307\f\310P\n\"\211!\203* \311\312\"\210A\211\204\n +\305\207" [bin exec-path dir #:--dolist-temp--54710 command nil file-executable-p expand-file-name ".exe" throw found-command] 5) "w3mmee" "w3m-m17n" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) call-process nil t "-version" re-search-forward "version \\(w3m/0\\.[3-9]\\(\\.[0-9\\]\\)*\\(rc[0-9]+\\)?\\(-stable\\|\\(\\+cvs\\(-[0-9]+\\.[0-9]+\\)?\\)\\)?\\(-inu\\|\\(-m17n\\|\\(\\+mee\\)\\)\\)?[^,]*\\)" match-string 1 9 w3mmee 8 w3m-m17n w3m other "options +" split-string 0 "," "m17n" error "Install w3m command in `exec-path' or set `w3m-command' variable correctly" #1#] 7)
#@71 String used for the User-Agent field. See also `w3m-add-user-agent'.
(custom-declare-variable 'w3m-user-agent '(concat "Emacs-w3m/" emacs-w3m-version " " w3m-version) '(#$ . 6666) :group 'w3m :type '(string :size 0))
#@121 Non-nil means add the User-Agent field to the request header.
The value of `w3m-user-agent' is used for the field body.
(custom-declare-variable 'w3m-add-user-agent 't '(#$ . 6891) :group 'w3m :type 'boolean)
#@54 *Your preferred language used in emacs-w3m sessions.
(custom-declare-variable 'w3m-language '(if (or (and (boundp 'current-language-environment) (string= "Japanese" (symbol-value 'current-language-environment))) (boundp 'MULE)) "Japanese") '(#$ . -7106) :group 'w3m :type '(radio (const :format "%v " "Japanese") (const :tag "Other" nil)) :get (lambda (symbol) (let ((value (format "%s" (default-value symbol))) (case-fold-search t)) (prog1 (setq value (if (string-match "\\`japan" value) "Japanese")) (set-default symbol value)))) :set (lambda (symbol value) (set-default symbol (if (equal value "Japanese") "Japanese"))))
#@99 *List of the default arguments passed to the w3m command.
See also `w3m-command-arguments-alist'.
(custom-declare-variable 'w3m-command-arguments '(if (eq w3m-type 'w3mmee) '("-o" "concurrent=0" "-F") nil) '(#$ . -7736) :group 'w3m :type '(repeat (string :format "Argument: %v\n" :size 0)))
#@847 *Alist of regexps matching urls and additional arguments passed to w3m.
A typical usage of this variable is to specify whether to use the proxy
server for the particular hosts. The first match made will be used.
Here is an example of how to set this variable:
(setq w3m-command-arguments-alist
'(;; Don't use the proxy server to visit local web pages.
("^http://\\([^/]*\\.\\)*your-company\\.com\\(/\\|$\\)"
"-no-proxy")
;; Use the proxy server to visit any foreign urls.
(""
"-o" "http_proxy=http://proxy.your-company.com:8080/")))
Where the first element matches the url that the scheme is "http" and
the hostname is either "your-company.com" or a name ended with
".your-company.com", and the proxy server is not used for those hosts.
If you are a novice on the regexps, you can use the
`w3m-no-proxy-domains' variable instead.
(custom-declare-variable 'w3m-command-arguments-alist 'nil '(#$ . -8034) :group 'w3m :type '(repeat (cons :format "%v" :indent 4 (regexp :format "%t: %v\n" :size 0) (repeat :tag "Arguments passed to w3m command" (string :format "Arg: %v\n" :size 0)))))
#@186 *List of domain names with which emacs-w3m will not use a proxy server.
Each element should be exactly a domain name which means the latter
common part of the host names, not a regexp.
(custom-declare-variable 'w3m-no-proxy-domains 'nil '(#$ . -9140) :group 'w3m :type '(repeat (string :format "Domain name: %v\n" :size 0)))
#@62 *Alist of environment variables for subprocesses to inherit.
(custom-declare-variable 'w3m-command-environment '(delq nil (list (if (eq w3m-type 'w3mmee) (cons "W3MLANG" "ja_JP.kterm")) (if (eq system-type 'windows-nt) (cons "CYGWIN" "binmode tty")))) '(#$ . -9471) :group 'w3m :type '(repeat (cons :format "%v" :indent 4 (string :format "Name: %v\n" :size 0) (string :format " Value: %v\n" :size 0))))
#@342 *Integer used as the value for `fill-column' in emacs-w3m buffers.
If it is positive, pages will be displayed within the columns of that
number. If it is zero or negative, the number of columns which
subtracted that number from the window width is applied to the maximum
width of pages. Note that XEmacs does not always obey this setting.
(custom-declare-variable 'w3m-fill-column '-1 '(#$ . -9884) :group 'w3m :type '(integer :size 0))
#@207 *Function used to handle the `mailto' urls.
Function is called with one argument, just a url. If it is nil, a
function specified by the `mail-user-agent' variable will be used for
composing mail messages.
(custom-declare-variable 'w3m-mailto-url-function 'nil '(#$ . -10330) :group 'w3m :type '(radio (const :tag "Not specified" nil) (function :format "%t: %v\n" :size 0)))
#@428 *Alist of (MAJOR-MODE . FUNCTION) pairs used to pop to a mail buffer up.
If a user clicks on a `mailto' url and a mail buffer is composed by
`mail-user-agent' with the MAJOR-MODE, FUNCTION will be called with a
mail buffer as an argument. Note that the variables
`special-display-buffer-names', `special-display-regexps',
`same-window-buffer-names' and `same-window-regexps' will be bound to
nil while popping to a buffer up.
(custom-declare-variable 'w3m-mailto-url-popup-function-alist ''((cmail-mail-mode . pop-to-buffer) (mail-mode . pop-to-buffer) (message-mode . pop-to-buffer) (mew-draft-mode . pop-to-buffer) (mh-letter-mode . pop-to-buffer) (wl-draft-mode . pop-to-buffer)) '(#$ . -10712) :group 'w3m :type '(repeat (cons :format "%v" :indent 11 (symbol :format "Major-mode: %v\n" :size 0) (function :format "%t: %v\n" :size 0))))
#@60 *Non-nil means use the multi-script support with Mule-UCS.
(custom-declare-variable 'w3m-use-mule-ucs '(and (eq w3m-type 'w3m) (featurep 'un-define)) '(#$ . -11559) :group 'w3m :type 'boolean :require 'w3m-ucs)
(byte-code "\203 \301\302\303\217\210\301\207" [w3m-use-mule-ucs nil (byte-code "\300\301!\207" [require w3m-ucs] 2) ((error (byte-code "\301\301\207" [w3m-use-mule-ucs nil] 1)))] 3)
#@72 *Non-nil means that `ange-ftp' or `efs' is used to access FTP servers.
(custom-declare-variable 'w3m-use-ange-ftp 'nil '(#$ . -11962) :group 'w3m :type 'boolean)
#@202 *If non-nil, imitate the widget buttons on link (anchor) buttons.
It is useful for moving about in a Gnus article buffer using TAB key.
It can also be any Lisp form that should return a boolean value.
(custom-declare-variable 'w3m-imitate-widget-button ''(eq major-mode 'gnus-article-mode) '(#$ . -12131) :group 'w3m :type '(sexp :size 0))
#@489 *Non-nil means let w3m mind the ratio of the size of images and text.
If it is non-nil, the w3m command will make a halfdump which reserves
rectangle spaces in which images will be put, and also `alt' texts
will be truncated or padded with spaces so that their display width
will be the same as the width of images.
See also `w3m-pixels-per-character' and `w3m-pixels-per-line'. Those
values will be passed to the w3m command in order to compute columns
and lines which images occupy.
(custom-declare-variable 'w3m-treat-image-size 't '(#$ . -12478) :group 'w3m :type 'boolean)
#@357 *Integer used for the `-ppl' argument of the w3m command.
If nil, the height of the default face is used. It is valid only when
`w3m-treat-image-size' is non-nil. Note that a small value may not
induce a good result. If you want to use emacs-w3m in a character
terminal and make `w3m-treat-image-size' effective, you need to set
this variable properly.
(custom-declare-variable 'w3m-pixels-per-line '64 '(#$ . -13066) :group 'w3m :type '(choice (const :tag "Auto Detect" nil) (integer :tag "Specify Pixels")))
#@301 *Integer used for the `-ppc' argument of the w3m command.
If nil, the width of the default face is used. It is valid only when
`w3m-treat-image-size' is non-nil. If you want to use emacs-w3m in a
character terminal and make `w3m-treat-image-size' effective, you need
to set this variable properly.
(custom-declare-variable 'w3m-pixels-per-character 'nil '(#$ . -13586) :group 'w3m :type '(radio (const :tag "Auto Detect" nil) (integer :format "Specify Pixels: %v\n" :size 0)))
#@65 Non-nil means that the w3m command accepts Japanese characters.
(defvar w3m-accept-japanese-characters (byte-code "?\205P \306\307!\205P \310>\206P \311\312\313\314!!\315\216rq\210\316\317!\210\nc\210\320\211\211\211B\321ed\322\211\317\323\324\325& \210eb\210\326\327\330\331\332\333$\317\322#\205N \322.\207" [noninteractive w3m-type str #1=#:temp-buffer default-process-coding-system coding-system-for-read featurep mule (w3mmee w3m-m17n) "
$B4A;z(B\n" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-buffer-multibyte nil binary call-process-region t "-T" "text/html" "-halfdump" re-search-forward string 180 193 187 250 coding-system-for-write w3m-command] 10) (#$ . 14071))
#@66 *Default coding system used to communicate with the w3m command.
(custom-declare-variable 'w3m-coding-system '(if (featurep 'mule) (if (eq w3m-type 'w3mmee) 'iso-2022-7bit-ss2 'iso-2022-7bit) 'iso-8859-1) '(#$ . -15017) :group 'w3m :type '(coding-system :size 0))
#@275 *Default coding system used when writing to w3m processes.
It is just a default value to set process' coding system initially.
(This variable name is analogically derived from the behavior of the
w3m command which accepts data from Emacs just like reads from the
terminal.)
(custom-declare-variable 'w3m-terminal-coding-system '(if w3m-accept-japanese-characters 'euc-japan 'iso-8859-1) '(#$ . -15288) :group 'w3m :type '(coding-system :size 0))
#@54 *Coding system used when reading from w3m processes.
(custom-declare-variable 'w3m-output-coding-system '(cond ((not (featurep 'mule)) 'iso-8859-1) ((eq w3m-type 'w3mmee) 'ctext) ((eq w3m-type 'w3m-m17n) (cond ((and (equal "Japanese" w3m-language) (featurep 'w3m-e21) (not (featurep 'un-define)) (fboundp 'utf-translate-cjk-mode)) 'utf-8) ((equal "Japanese" w3m-language) 'iso-2022-7bit-ss2) ((w3m-find-coding-system 'utf-8) 'utf-8) (t 'iso-2022-7bit-ss2))) (w3m-accept-japanese-characters 'w3m-euc-japan) (t 'w3m-iso-latin-1)) '(#$ . -15740) :group 'w3m :type '(coding-system :size 0))
#@196 *Coding system used when writing to w3m processes.
It overrides `coding-system-for-write' if it is not `binary'.
Otherwise, the value of the `w3m-current-coding-system' variable is
used instead.
(custom-declare-variable 'w3m-input-coding-system '(if (memq w3m-type '(w3mmee w3m-m17n)) w3m-output-coding-system (if w3m-accept-japanese-characters (if w3m-use-mule-ucs 'w3m-euc-japan-mule-ucs (if (featurep 'w3m-e21) 'w3m-euc-japan 'euc-japan)) (if w3m-use-mule-ucs 'w3m-iso-latin-1-mule-ucs (if (featurep 'w3m-e21) 'w3m-iso-latin-1 'iso-8859-1)))) '(#$ . -16334) :group 'w3m :type '(coding-system :size 0))
#@119 *Coding system used when writing configuration files.
This value will be referred to by the `w3m-save-list' function.
(custom-declare-variable 'w3m-file-coding-system '(if (featurep 'mule) 'iso-2022-7bit 'iso-8859-1) '(#$ . -16946) :group 'w3m :type '(coding-system :size 0))
#@214 *Coding system used when reading configuration files.
It is strongly recommended that you do not set this variable if there
is no particular reason. The value will be referred to by the
`w3m-load-list' function.
(defvar w3m-file-coding-system-for-read nil (#$ . -17229))
#@73 *Coding system used to convert pathnames when emacs-w3m accesses files.
(custom-declare-variable 'w3m-file-name-coding-system '(if (memq system-type '(windows-nt OS/2 emx)) 'shift_jis 'euc-japan) '(#$ . -17507) :group 'w3m :type '(coding-system :size 0))
#@66 *Default coding system used to encode url strings and post-data.
(custom-declare-variable 'w3m-default-coding-system '(if (equal "Japanese" w3m-language) 'shift_jis 'iso-8859-1) '(#$ . -17768) :group 'w3m :type '(coding-system :size 0))
#@67 *Coding systems in order of priority used for emacs-w3m sessions.
(custom-declare-variable 'w3m-coding-system-priority-list '(if (equal "Japanese" w3m-language) '(shift_jis)) '(#$ . -18011) :group 'w3m :type '(repeat (coding-system :format "%t: %v\n" :size 0)))
#@156 *Type of key binding set used in emacs-w3m sessions.
The valid values include `info' which provides Info-like keys, and
nil which provides Lynx-like keys.
(custom-declare-variable 'w3m-key-binding 'nil '(#$ . -18280) :group 'w3m :type '(choice (const :tag "Use Info-like key mapping." info) (const :tag "Use Lynx-like key mapping." nil)) :set (lambda (symbol value) (prog1 (set-default symbol value) (if (or noninteractive (not (featurep 'w3m))) nil (if (and (boundp 'w3m-mode-map) (boundp 'w3m-info-like-map) (boundp 'w3m-lynx-like-map)) (eval '(setq w3m-mode-map (if (eq value 'info) w3m-info-like-map w3m-lynx-like-map) w3m-minor-mode-map (w3m-make-minor-mode-keymap)))) (let ((buffers (buffer-list))) (save-excursion (while buffers (set-buffer (car buffers)) (if (eq major-mode 'w3m-mode) (condition-case nil (progn (use-local-map (symbol-value 'w3m-mode-map)) (w3m-setup-toolbar) (w3m-setup-menu)) (error))) (setq buffers (cdr buffers)))))))))
#@74 *If non-nil, use the /cygdrive/ rule when performing `expand-file-name'.
(custom-declare-variable 'w3m-use-cygdrive '(eq system-type 'windows-nt) '(#$ . -19235) :group 'w3m :type 'boolean)
#@44 Say whether the system uses drive letters.
(defconst w3m-treat-drive-letter (memq system-type '(windows-nt OS/2 emx)) (#$ . 19430))
#@70 *Directory where emacs-w3m config files are loaded from or saved to.
(custom-declare-variable 'w3m-profile-directory '(concat "~/." (file-name-sans-extension (file-name-nondirectory w3m-command))) '(#$ . -19568) :group 'w3m :type '(directory :size 0))
#@314 *Your emacs-w3m startup file name.
If a file with the `.el' or `.elc' suffixes exists, it will be read
instead.
Note: This file is used as the startup configuration *NOT* for the w3m
command but for emacs-w3m. In order to modify configurations for the
w3m command, edit the file named "~/.w3m/config" normally.
(custom-declare-variable 'w3m-init-file '"~/.emacs-w3m" '(#$ . -19827) :group 'w3m :type '(file :size 0))
#@61 *Default directory where downloaded files will be saved to.
(custom-declare-variable 'w3m-default-save-directory '(concat "~/." (file-name-sans-extension (file-name-nondirectory w3m-command))) '(#$ . -20252) :group 'w3m :type '(directory :size 0))
#@186 *List of acceptable languages in descending order of priority.
The default value is set according to the accept_language entry of the
w3m configuration file (normally "~/.w3m/config").
(custom-declare-variable 'w3m-accept-languages '(let ((file (expand-file-name "config" w3m-profile-directory))) (or (when (file-readable-p file) (with-temp-buffer (insert-file-contents file) (goto-char (point-min)) (when (re-search-forward "^accept_language[ ]+\\(.+\\)$" nil t) (delete "" (split-string (match-string 1) "[
\f\n]*,[
\f\n]*"))))) (when (string= w3m-language "Japanese") '("ja" "en")))) '(#$ . -20507) :group 'w3m :type '(repeat (string :format "Lang: %v\n" :size 0)))
#@72 *Non-nil means display two or more continuous empty lines into single.
(custom-declare-variable 'w3m-delete-duplicated-empty-lines 't '(#$ . -21187) :group 'w3m :type 'boolean)
#@400 Internal variable controls whether to show images in emacs-w3m buffers.
This variable is buffer-local which defaults to the value of
`w3m-default-display-inline-images'. Don't set it directly; modify
the `w3m-default-display-inline-images' variable or use the `\\[w3m-toggle-inline-images]' command
to change the appearance of images.
See also `w3m-toggle-inline-images-permanently'.
(defvar w3m-display-inline-images nil (#$ . 21371))
(make-variable-buffer-local 'w3m-display-inline-images)
#@210 *Non-nil means display images inline in emacs-w3m buffers.
You can toggle the visibility of images by the `\\[w3m-toggle-inline-images]' command.
See also `w3m-toggle-inline-images-permanently'.
(custom-declare-variable 'w3m-default-display-inline-images 'nil '(#$ . -21885) :group 'w3m :type 'boolean)
#@502 *Non-nil means let the visibility of images continue permanently.
The visibility of images is initialized according to
`w3m-default-display-inline-images' at the first time, and except that
it may be toggled by the `\\[w3m-toggle-inline-images]' command, it does not change hereafter, if
it is non-nil. Otherwise, whether images are visible is initialized
according to `w3m-default-display-inline-images' whenever you visit a
new page or reload the current page in an emacs-w3m buffer.
(custom-declare-variable 'w3m-toggle-inline-images-permanently 't '(#$ . -22209) :group 'w3m :type 'boolean)
#@52 *Directory where emacs-w3m should find icon files.
(custom-declare-variable 'w3m-icon-directory '(let (dir) (or (catch 'found-dir (let* ((path (locate-library "w3m")) (paths (if path (cons (file-name-directory path) load-path) load-path))) (while paths (setq path (car paths) paths (cdr paths)) (if path (progn (if (file-directory-p (setq dir (expand-file-name "../../etc/images/w3m/" path))) (throw 'found-dir dir)) (if (file-directory-p (setq dir (expand-file-name "../etc/images/w3m/" path))) (throw 'found-dir dir)) (if (file-directory-p (setq dir (expand-file-name "../../etc/w3m/icons/" path))) (throw 'found-dir dir)) (if (file-directory-p (setq dir (expand-file-name "../etc/w3m/icons/" path))) (throw 'found-dir dir))))))) (and (fboundp 'locate-data-directory) (or (locate-data-directory "images/w3m") (locate-data-directory "w3m"))) (and (file-directory-p (setq dir (expand-file-name "images/w3m/" data-directory))) dir) (and (file-directory-p (setq dir (expand-file-name "w3m/icons/" data-directory))) dir))) '(#$ . -22825) :group 'w3m :type '(radio (const :tag "Not specified") (directory :format "%t: %v\n" :size 0)))
#@412 *Set it to t if the proxy server seems not to work properly in caching.
Note that this may be the double-edged sword; setting it to t will
likely be harmful if the proxy server sends bad requests (e.g., not
including the Host header, see RFC2616 section 14.23) to foreign
servers when the w3m command specifies the "no-cache" directive. Also
note that it may not be effective if you are using old w3m command.
(custom-declare-variable 'w3m-broken-proxy-cache 'nil '(#$ . -23963) :group 'w3m :type 'boolean)
#@348 *Non-nil means let emacs-w3m start quickly w/o requiring confirmation.
When you invoke the `w3m' command, it attempts to visit the page of a
string like url around the cursor or the value of `w3m-home-page'.
You won't be asked for the confirmation then if this value is non-nil.
Otherwise, you will be prompted for that url with the editing form.
(custom-declare-variable 'w3m-quick-start 't '(#$ . -24478) :group 'w3m :type 'boolean)
#@142 *This variable specifies the url string to open when emacs-w3m starts.
Don't say HP, which is the abbreviated name of a certain company. ;-)
(custom-declare-variable 'w3m-home-page '(or (getenv "HTTP_HOME") (getenv "WWW_HOME") "about:") '(#$ . -24920) :group 'w3m :type '(list :convert-widget (lambda (widget) `(radio :args ,(append (if (getenv "HTTP_HOME") (list (list 'const :format "HTTP_HOME: \"%v\"\n" (getenv "HTTP_HOME")))) (if (getenv "WWW_HOME") (list (list 'const :format "WWW_HOME: \"%v\"\n" (getenv "WWW_HOME")))) '((const :tag "About emacs-w3m" "about:") (const :tag "Blank page" "about:blank") (string :format "URL: %v\n" :size 0)))))))
#@54 *Name of the file to keep the arrived URLs database.
(custom-declare-variable 'w3m-arrived-file '(expand-file-name ".arrived" w3m-profile-directory) '(#$ . -25577) :group 'w3m :type '(file :size 0))
#@64 *Maximum number of URLs which the arrived URLs database keeps.
(custom-declare-variable 'w3m-keep-arrived-urls '500 '(#$ . -25782) :group 'w3m :type '(integer :size 0))
#@72 *Non-nil means that cached contents are used without checking headers.
(custom-declare-variable 'w3m-prefer-cache 'nil '(#$ . -25957) :group 'w3m :type 'boolean)
#@53 *Maximum number of pages to be cached in emacs-w3m.
(custom-declare-variable 'w3m-keep-cache-size '300 '(#$ . -26125) :group 'w3m :type '(integer :size 0))
#@279 *Maximum number of redirections which emacs-w3m honors and follows.
If nil, redirections are followed by the w3m command. Don't set it to
nil if you allow to use cookies (i.e., you have set `w3m-use-cookies'
to non-nil) since cookies may be shared among many redirected pages.
(custom-declare-variable 'w3m-follow-redirection '9 '(#$ . -26288) :group 'w3m :type '(radio (const :format "Ignore redirections " nil) (integer :size 0)))
#@457 *If non-nil, use the GET method after redirection.
It controls how emacs-w3m works when a server responds the code 301 or
302. Here is an extract from RFC2616:
Note: RFC 1945 and RFC 2068 specify that the client is not allowed
to change the method on the redirected request. However, most
existing user agent implementations treat 302 as if it were a 303
response, performing a GET on the Location field-value regardless
of the original request method.
(custom-declare-variable 'w3m-redirect-with-get 't '(#$ . -26729) :group 'w3m :type 'boolean)
#@56 *Number of steps in percent used when resizing images.
(custom-declare-variable 'w3m-resize-image-scale '50 '(#$ . -27285) :group 'w3m :type '(integer :size 0))
(byte-code "\306\307\310\311\312\313%\210\306\314\315\316\312\313%\210\306\317\320\321\312\313%\210\306\322\323\324\312\313%\210\306\325\326\327\330!\203- \331\202. \332\333B\334\211\211\335\336!\210\f
\334\"\f\314\334\"\203m @\211\337>\204a \340\n \211/A@)#\211/AA)\211\204L \341\n.DC\342\312\313%\210\306\343\341\3440\345\"DC\346\312\313%\210\306\347\341\3440\350\"DC\351\312\313%\210\306\352\341\3440\327\330!\203\246 \353\202\247 \354\355B\"DC\356\312\313%\207" [features attribute attributes base-attributes fn base custom-declare-face w3m-anchor-face ((((class color) (background light)) (:foreground "blue")) (((class color) (background dark)) (:foreground "cyan")) (t (:underline t))) "Face used for displaying anchors." :group w3m-face w3m-arrived-anchor-face ((((class color) (background light)) (:foreground "navy")) (((class color) (background dark)) (:foreground "LightSkyBlue")) (t (:underline t))) "Face used for displaying anchors which have already arrived." w3m-current-anchor-face ((t (:underline t :bold t))) "Face used to highlight the current anchor." w3m-image-face ((((class color) (background light)) (:foreground "ForestGreen")) (((class color) (background dark)) (:foreground "PaleGreen")) (t (:underline t))) "Face used for displaying alternate strings of images." w3m-history-current-url-face secondary-selection featurep xemacs face-custom-attributes-get custom-face-attributes-get font nil require wid-edit (:foreground :underline) plist-put t "Face used to highlight the current url in the \"about://history/\" page." w3m-bold-face append (:bold t) "Face used for displaying bold text." w3m-underline-face (:underline t) "Face used for displaying underlined text." w3m-strike-through-face :strikethru :strike-through (t) "Face used for displaying strike-through text." x w3m-default-face-colors] 9)
#@71 Non-nil means use `strike-through' attribute to display deleted text.
(defvar w3m-fontify-strike-through (byte-code "\300\301!\206 \300\302!\207" [featurep w3m-e21 w3m-xmas] 2) (#$ . 29305))
#@95 *Hook run after `w3m-mode' initialization.
This hook is evaluated by the `w3m-mode' function.
(custom-declare-variable 'w3m-mode-hook 'nil '(#$ . -29503) :group 'w3m :type 'hook)
#@109 *Hook run when starting to fontify emacs-w3m buffers.
This hook is evaluated by the `w3m-fontify' function.
(custom-declare-variable 'w3m-fontify-before-hook 'nil '(#$ . -29689) :group 'w3m :type 'hook)
#@101 *Hook run after fontifying emacs-w3m buffers.
This hook is evaluated by the `w3m-fontify' function.
(custom-declare-variable 'w3m-fontify-after-hook 'nil '(#$ . -29899) :group 'w3m :type 'hook)
#@171 *Hook run after displaying pages in emacs-w3m buffers.
Each function is called with a url string as the argument. This hook
is evaluated by the `w3m-goto-url' function.
(custom-declare-variable 'w3m-display-hook ''(w3m-move-point-for-localcgi w3m-history-highlight-current-url) '(#$ . -30100) :group 'w3m :type 'hook :initialize 'w3m-custom-hook-initialize)
#@162 *Hook run each time after the cursor moves in emacs-w3m buffers.
This hook is called by the `w3m-check-current-position' function by
way of `post-command-hook'.
(custom-declare-variable 'w3m-after-cursor-move-hook ''(w3m-highlight-current-anchor w3m-print-this-url w3m-auto-show) '(#$ . -30466) :group 'w3m :type 'hook :initialize 'w3m-custom-hook-initialize)
#@51 *Hook run when every emacs-w3m buffer is deleted.
(custom-declare-variable 'w3m-delete-buffer-hook ''(w3m-pack-buffer-numbers) '(#$ . -30832) :group 'w3m :type 'hook :initialize 'w3m-custom-hook-initialize)
#@58 *Hook run when a different emacs-w3m buffer is selected.
(custom-declare-variable 'w3m-select-buffer-hook 'nil '(#$ . -31045) :group 'w3m :type 'hook)
#@73 *Non-nil means execute the w3m command asynchronously in Emacs process.
(custom-declare-variable 'w3m-async-exec 't '(#$ . -31202) :group 'w3m :type 'boolean)
#@72 *Value for `process-connection-type' used when communicating with w3m.
(custom-declare-variable 'w3m-process-connection-type '(not (or (and (memq system-type '(darwin macos)) (let ((ver (shell-command-to-string "uname -r"))) (and (string-match "^\\([0-9]+\\)\\." ver) (< (string-to-number (match-string 1 ver)) 7)))) (and (featurep 'xemacs) (string-match "solaris" system-configuration)))) '(#$ . -31367) :group 'w3m :type 'boolean)
#@60 *Default value assumed as the content type of local files.
(custom-declare-variable 'w3m-default-content-type '"text/html" '(#$ . -31806) :group 'w3m :type '(string :size 0))
#@186 *Command used to view image files externally.
Note that this option is installed temporally. It will be abolished
when we implement the mailcap parser to set `w3m-content-type-alist'.
(defvar w3m-image-viewer (byte-code "\301\301;\205 \302!\203 \303!\203 \202 \304!\305\306\215)\206\205 \307\307;\205@ \302!\2039 \303!\2039 \202@ \304!\305\306\215)\206\205 \310\310;\205b \302!\203[ \303!\203[ \202b \304!\305\306\215)\206\205 \311\311;\205\204 \302!\203} \303!\203} \202\204 \304!\305\306\215)\207" [command "display" file-name-absolute-p file-executable-p file-name-nondirectory found-command (byte-code "\305 \305\211\2031 @\306\307\f\n\"\211!\204% \306\307\f\310P\n\"\211!\203* \311\312\"\210A\211\204\n +\305\207" [bin exec-path dir #1=#:--dolist-temp--54710 command nil file-executable-p expand-file-name ".exe" throw found-command] 5) "eeyes" "xloadimage" "xv"] 2) (#$ . -31988))
#@44 *Alist of file suffixes and content types.
(custom-declare-variable 'w3m-content-type-alist '(let* ((fiber-viewer (when (and (eq system-type 'windows-nt) (w3m-which-command "fiber")) (list "fiber.exe" "-s" 'file))) (external-browser (if (and (eq system-type 'windows-nt) (w3m-which-command "fiber")) 'w3m-w32-browser-with-fiber (or (when (condition-case nil (require 'browse-url) (error nil)) (if (or (not (boundp 'browse-url-browser-function)) (eq 'w3m-browse-url (symbol-value 'browse-url-browser-function))) (cond ((fboundp 'browse-url-default-browser) 'browse-url-default-browser) ((fboundp 'browse-url-netscape) 'browse-url-netscape)) (symbol-value 'browse-url-browser-function))) (when (w3m-which-command "netscape") (list "netscape" 'url))))) (image-viewer (or fiber-viewer (when w3m-image-viewer (list w3m-image-viewer 'file)))) (video-viewer (or fiber-viewer (when (w3m-which-command "mpeg_play") (list "mpeg_play" 'file)))) (ps-viewer (or fiber-viewer (cond ((w3m-which-command "gv") (list "gv" 'file)) ((w3m-which-command "gs") (list "gs" 'file))))) (pdf-viewer (or fiber-viewer (cond ((w3m-which-command "xpdf") (list "xpdf" 'file)) ((w3m-which-command "acroread") (list "acroread" 'file)))))) `(("text/plain" "\\.\\(txt\\|tex\\|el\\)\\'" nil nil) ("text/html" "\\.s?html?\\'" ,external-browser nil) ("text/xml" "\\.xml\\'" nil "text/plain") ("image/jpeg" "\\.jpe?g\\'" ,image-viewer nil) ("image/png" "\\.png\\'" ,image-viewer nil) ("image/gif" "\\.gif\\'" ,image-viewer nil) ("image/tiff" "\\.tif?f\\'" ,image-viewer nil) ("image/x-xwd" "\\.xwd\\'" ,image-viewer nil) ("image/x-xbm" "\\.xbm\\'" ,image-viewer nil) ("image/x-xpm" "\\.xpm\\'" ,image-viewer nil) ("image/x-bmp" "\\.bmp\\'" ,image-viewer nil) ("video/mpeg" "\\.mpe?g\\'" ,video-viewer nil) ("video/quicktime" "\\.mov\\'" ,video-viewer nil) ("application/postscript" "\\.e?ps\\'" ,ps-viewer nil) ("application/pdf" "\\.pdf\\'" ,pdf-viewer nil) ("application/xml" "\\.xml\\'" nil "text/plain") ("application/rdf+xml" "\\.rdf\\'" nil "text/plain") ("application/rss+xml" "\\.rss\\'" nil "text/plain") ("application/xhtml+xml" nil nil "text/html"))) '(#$ . -32920) :group 'w3m :type '(repeat (group :indent 2 (string :format "Type: %v\n" :size 0) (radio :format "%{Regexp%}: %v" :extra-offset 8 :sample-face underline (const :tag "Not specified" nil) (regexp :format "String: %v\n" :size 0)) (radio :format "%{Viewer%}: %v" :extra-offset 8 :sample-face underline (const :tag "Not specified" nil) (cons :tag "External viewer" :extra-offset 2 (string :format "Command: %v\n" :size 0) (repeat :format "Arguments:\n%v%i\n" :extra-offset 2 (restricted-sexp :format "%v\n" :match-alternatives (stringp 'file 'url) :size 0))) (function :format "%t: %v\n" :size 0)) (radio :format "%{Filter%}: %v" :extra-offset 8 :sample-face underline (const :tag "Not specified" nil) (string :format "Equivalent type: %v\n" :size 0) (function :format "Function: %v\n" :size 0)))))
#@53 *Alist of file suffixes and content encoding types.
(custom-declare-variable 'w3m-encoding-type-alist ''(("\\.gz\\'" . "gzip") ("\\.bz2?\\'" . "bzip")) '(#$ . -35858) :group 'w3m :type '(repeat (cons :format "%v" :indent 14 (string :format "Regexp of Suffixes: %v\n" :size 0) (string :format "Encoding Type: %v\n" :size 0))))
#@59 Alist of encoding types, decoder commands, and arguments.
(custom-declare-variable 'w3m-decoder-alist '`((gzip "gzip" ("-d")) (bzip "bzip2" ("-d")) (deflate ,(if (not noninteractive) (let ((exec-path (let ((prefix (file-name-directory (directory-file-name (file-name-directory (w3m-which-command w3m-command)))))) (list (expand-file-name "libexec/w3m" prefix) (expand-file-name "lib/w3m" prefix))))) (w3m-which-command "inflate"))) nil)) '(#$ . 36190) :group 'w3m :type '(repeat (group :indent 4 (radio :format "Encoding: %v" (const :format "%v " gzip) (const :format "%v " bzip) (const deflate)) (string :format "Command: %v\n" :size 0) (repeat :tag "Arguments" :extra-offset 2 (string :format "%v\n" :size 0)))))
#@94 Alist of MIME charsets and coding systems.
Both charsets and coding systems must be symbols.
(custom-declare-variable 'w3m-charset-coding-system-alist '(let ((rest '((us_ascii . raw-text) (us-ascii . raw-text) (gb2312 . cn-gb-2312) (cn-gb . cn-gb-2312) (iso-2022-jp-2 . iso-2022-7bit-ss2) (iso-2022-jp-3 . iso-2022-7bit-ss2) (tis-620 . tis620) (windows-874 . tis-620) (cp874 . tis-620) (x-ctext . ctext) (unknown . undecided) (x-unknown . undecided) (windows-1250 . cp1250) (windows-1251 . cp1251) (windows-1252 . cp1252) (windows-1253 . cp1253) (windows-1254 . cp1254) (windows-1255 . cp1255) (windows-1256 . cp1256) (windows-1257 . cp1257) (windows-1258 . cp1258) (euc-jp . euc-japan) (shift-jis . shift_jis) (shift_jis . shift_jis) (sjis . shift_jis) (x-euc-jp . euc-japan) (x-shift-jis . shift_jis) (x-shift_jis . shift_jis) (x-sjis . shift_jis))) dest) (while rest (or (w3m-find-coding-system (car (car rest))) (setq dest (cons (car rest) dest))) (setq rest (cdr rest))) dest) '(#$ . 36911) :group 'w3m :type '(repeat (cons :format "%v" :indent 2 (symbol :format "%t: %v\n" :size 0) (coding-system :format "%t: %v\n" :size 0))))
#@57 Alist of MIME charsets; strange ones and standard ones.
(custom-declare-variable 'w3m-correct-charset-alist ''(("windows-874" . "tis-620") ("cp874" . "tis-620") ("cp1250" . "windows-1250") ("cp1251" . "windows-1251") ("cp1252" . "windows-1252") ("cp1253" . "windows-1253") ("cp1254" . "windows-1254") ("cp1255" . "windows-1255") ("cp1256" . "windows-1256") ("cp1257" . "windows-1257") ("cp1258" . "windows-1258") ("shift-jis" . "shift_jis") ("sjis" . "shift_jis") ("x-euc-jp" . "euc-jp") ("x-shift-jis" . "shift_jis") ("x-shift_jis" . "shift_jis") ("x-sjis" . "shift_jis")) '(#$ . 38051) :group 'w3m :type '(repeat (cons :format "%v" :indent 11 (string :format "From: %v\n" :size 0) (string :format "To: %v\n" :size 0))))
#@72 *Number of steps in columns used when scrolling a window horizontally.
(custom-declare-variable 'w3m-horizontal-scroll-columns '10 '(#$ . -38779) :group 'w3m :type '(integer :size 0))
#@121 *Number of steps in columns used when shifting a window horizontally.
The term `shifting' means a fine level scrolling.
(custom-declare-variable 'w3m-horizontal-shift-columns '2 '(#$ . -38970) :group 'w3m :type '(integer :size 0))
#@72 *Non-nil means make it possible to use form extensions. (EXPERIMENTAL)
(custom-declare-variable 'w3m-use-form 't '(#$ . -39207) :group 'w3m :type 'boolean :require 'w3m-form)
#@65 *Non-nil means enable emacs-w3m to use cookies. (EXPERIMENTAL)
(custom-declare-variable 'w3m-use-cookies 'nil '(#$ . -39388) :group 'w3m :type 'boolean)
#@90 *Non-nil means use filter programs to convert web contents.
See also `w3m-filter-rules'.
(custom-declare-variable 'w3m-use-filter 'nil '(#$ . -39548) :group 'w3m :type 'boolean :require 'w3m-filter)
#@162 *Non-nil means replace symbols that the <_SYMBOL> tags lead into.
It is meaningful only when the w3m-m17n command is used and (X)Emacs
handles unicode charsets.
(custom-declare-variable 'w3m-use-symbol '(and (featurep 'mule) (eq w3m-type 'w3m-m17n) (or (not (eq w3m-output-coding-system 'utf-8)) (and (w3m-mule-unicode-p) (>= emacs-major-version 21) (or window-system (eq (terminal-coding-system) 'utf-8)))) t) '(#$ . -39754) :group 'w3m :type 'boolean :require 'w3m-symbol)
#@138 *Function used for editing local files.
It is used when either `w3m-edit-current-url' or `w3m-edit-this-url'
is invoked for local pages.
(custom-declare-variable 'w3m-edit-function ''find-file '(#$ . -40236) :group 'w3m :type '(radio (const :tag "Edit it in the current window" find-file) (const :tag "Edit it in another window" find-file-other-window) (const :tag "Edit it in another frame" find-file-other-frame) (const :tag "View it in another window" view-file-other-window) (function :format "Other function: %v\n" :size 0 :value view-file)))
#@287 *Alist of functions used for editing pages.
This option is refered to decide which function shouled be used to
edit a specified page, when either `w3m-edit-current-url' or
`w3m-edit-this-url' is invoked. When no suitable function is found
from this alist, `w3m-edit-function' is used.
(custom-declare-variable 'w3m-edit-function-alist ''(("\\`[^?]+/hiki\\.cgi\\?" . hiki-edit-url)) '(#$ . -40791) :group 'w3m :type '(repeat (cons :format "%v" :indent 3 (regexp :format "URL: %v\n" :size 0) (function))))
#@368 *Alist of URLs and local directories.
If directory names of a given URL and the car of an element are the
same, emacs-w3m assumes that the file exists in the local directory
where the cdr of an element points to. The default value will be set
to a value of the `yahtml-path-url-alist' variable which exchanged the
car and the cdr in each element if it is available.
(custom-declare-variable 'w3m-url-local-directory-alist '(when (boundp 'yahtml-path-url-alist) (mapcar (lambda (pair) (cons (cdr pair) (car pair))) (symbol-value 'yahtml-path-url-alist))) '(#$ . -41303) :type '(repeat (cons :format "%v" :indent 3 (string :format "URL: %v\n" :size 0) (directory :format "%t: %v\n" :size 0))) :group 'w3m)
#@822 *Whether to track the mouse and message the url under the mouse.
This feature does not work under Emacs or XEmacs versions prior to 21.
See also `show-help-function' if you are using Emacs 21 or later.
A tip for XEmacs users:
You can also use the `balloon-help' feature by the
`M-x balloon-help-mode' command with arg 1. If the window manager
decorates the balloon-help frame, and that is not to your taste, you
may strip it off with the following directives:
For ol[v]wm use this in .Xdefaults:
olvwm.NoDecor: balloon-help
or
olwm.MinimalDecor: balloon-help
For fvwm version 1 use this in your .fvwmrc:
NoTitle balloon-help
or
Style "balloon-help" NoTitle, NoHandles, BorderWidth 0
For twm use this in your .twmrc:
NoTitle { "balloon-help" }
See the balloon-help.el file for more information.
(custom-declare-variable 'w3m-track-mouse 't '(#$ . -42015) :group 'w3m :type 'boolean)
#@1026 *Non-nil means show decoded URIs in the echo area, the balloon, etc.
This variable can take one of the following five kinds of forms:
1. t
Decode URIs using the encoding guessed from the value of
`w3m-coding-system-priority-list'.
2. Coding system
Decode URIs using this value.
3. List of coding systems:
Decode URIs using the encoding assumed based on this list.
4. Alist of predicates and forms described below:
Each element looks like the `(PREDICATE . ENCODING)' form. PREDICATE
should be a regexp, a function or a Lisp form, and ENCODING should be
one of the forms described here excluding this form. If PREDICATE is
a regexp, it will be tested whether it matches to the target url.
If it is a function, it will be called with the target url. If it
is a Lisp form, it will be simply evaluated. Elements are tested in
turn until the result of the test of the predicate is true and the
encoding which is associated to the predicate is used for decoding
URIs.
5. nil
Don't decode URIs.
(custom-declare-variable 'w3m-show-decoded-url ''(("\\`http://\\([^./?#]+\\.\\)*wikipedia\\.org/" . utf-8) (t . t)) '(#$ . -42932) :group 'w3m :type '(choice :format "%{%t%}: %[Value Menu%]\n %v" (coding-system :tag "Specify encoding" :format "Use this encoding: %v" :match (lambda (widget value) (w3m-find-coding-system value))) (const :tag "Prefer the encoding of the current page" :format "%t: %{t%}\n" :sample-face widget-field-face t) (group :tag "List of prefered encodings" :match (lambda (widget value) (and (car-safe value) (symbolp (car-safe value)))) (repeat :format "List of prefered encodings:\n%v%i\n" :inline t (coding-system :tag "Encoding"))) (group :tag "Rules to select an encoding of URIs on the current page" :match (lambda (widget value) value) (repeat :format "Rules to select an encoding of URIs on the current page:\n%v%i\n" :inline t (cons :format "%v" :indent 2 (choice :format "\n %[Value Menu for the car%]\n %v" (regexp :tag "Regexp matches the current page") (function :tag "Predicate checks for the current page") (sexp :tag "Expression checks for the current page")) (choice :format "%[Value Menu for the cdr%]\n %v" (coding-system :tag "Specify encoding" :format "Use this encoding: %v" :match (lambda (widget value) (if (featurep 'xemacs) nil (or (and (< emacs-major-version 21) (not value)) (w3m-find-coding-system value))))) (const :tag "Prefer the encoding of the current page" :format "%t: %{t%}\n" :sample-face widget-field-face t) (group :tag "List of prefered encodings" (repeat :tag "List of prefered encodings" :inline t :extra-offset 4 (coding-system :tag "Encoding"))) (const :tag "Don't decode URIs" :format "%t: %{nil%}\n" :sample-face widget-field-face nil))))) (const :tag "Don't decode URIs" :format "%t: %{nil%}\n" :sample-face widget-field-face nil)))
#@285 Non-nil means make emacs-w3m a tab browser.
It makes it possible to show all emacs-w3m buffers in a single window
with the tabs line, and you can choose one by clicking a mouse on it.
Unfortunately, users of Emacs 20 and less cannot enjoy the benefit.
See also `w3m-use-tab-menubar'.
(custom-declare-variable 'w3m-use-tab 't '(#$ . 45777) :group 'w3m :type 'boolean)
#@364 Non-nil means use the TAB pull-down menu in the menubar.
It makes it possible to show all emacs-w3m buffers in a single window,
and you can choose one by clicking a mouse on it. This feature
requires that Emacs has been built to be able to display multilingual
text in the menubar if you often visit web sites written in non-ascii
text. See also `w3m-use-tab'.
(custom-declare-variable 'w3m-use-tab-menubar 't '(#$ . 46151) :group 'w3m :type 'boolean)
#@359 *Non-nil means making new emacs-w3m buffers when visiting new pages.
If it is non-nil and there are already emacs-w3m buffers, the `w3m'
command makes a new emacs-w3m buffer if a user specifies a url string
in the minibuffer, and the `w3m-safe-view-this-url' command also makes
a new buffer if a user invokes it in a buffer not being running the
`w3m-mode'.
(custom-declare-variable 'w3m-make-new-session 'nil '(#$ . -46612) :group 'w3m :type 'boolean)
#@163 *Non-nil means show favicon images if they are available.
It will be set to nil automatically if ImageMagick's `convert' program
does not support the ico format.
(custom-declare-variable 'w3m-use-favicon '(featurep 'w3m-image) '(#$ . -47072) :get (lambda (symbol) (and (not noninteractive) (default-value symbol) (featurep 'w3m-image) (w3m-favicon-usable-p))) :set (lambda (symbol value) (set-default symbol (and (not noninteractive) value (featurep 'w3m-image) (w3m-favicon-usable-p)))) :group 'w3m :type 'boolean)
#@165 Non-nil means show graphic status indicators in the mode-line.
If it is nil, also the favicon won't be shown in the mode-line even if
`w3m-use-favicon' is non-nil.
(custom-declare-variable 'w3m-show-graphic-icons-in-mode-line 't '(#$ . 47595) :set (lambda (symbol value) (prog1 (set-default symbol value) (if (and (not noninteractive) (featurep 'w3m) (fboundp 'w3m-initialize-graphic-icons)) (w3m-initialize-graphic-icons)))) :group 'w3m :type 'boolean)
#@223 Non-nil means show graphic status indicators in the header-line.
If it is nil, also the favicon won't be shown in the header-line even
if `w3m-use-favicon' is non-nil. This variable is currently
meaningless under XEmacs.
(custom-declare-variable 'w3m-show-graphic-icons-in-header-line 't '(#$ . 48056) :group 'w3m :type 'boolean)
#@396 Non-nil means split the windows when a new emacs-w3m session is created.
This variable is similar to `pop-up-windows' and quite overridden by
`w3m-pop-up-frames' as if `pop-up-frames' influences. Furthermore, if
`w3m-use-tab' is non-nil or there is the buffers selection window (for
the `w3m-select-buffer' feature), this variable is ignored when
creating the second or more emacs-w3m session.
(custom-declare-variable 'w3m-pop-up-windows 't '(#$ . 48394) :group 'w3m :type 'boolean)
#@333 Non-nil means pop to a new frame up for an emacs-w3m session.
This variable is similar to `pop-up-frames' and does override
`w3m-pop-up-windows'. If `w3m-use-tab' is non-nil or there is the
buffers selection window (for the `w3m-select-buffer' feature), this
variable is ignored when creating the second or more emacs-w3m session.
(custom-declare-variable 'w3m-pop-up-frames 'nil '(#$ . 48886) :group 'w3m :type 'boolean)
#@382 Run `w3m-view-this-url' without switching to the newly created buffer.
It is useful if you enabled the tabs line or the buffers selection
window for the `w3m-select-buffer' feature. Note that it is meaningful
only when specifying a prefix argument to the `w3m-view-this-url'
command or using the `w3m-view-this-url-new-session' command in order
to create a new emacs-w3m session.
(custom-declare-variable 'w3m-view-this-url-new-session-in-background 'nil '(#$ . 49316) :group 'w3m :type 'boolean)
#@132 Alist of frame parameters used when creating a new emacs-w3m frame.
It allows not only the alist form but also XEmacs' plist form.
(custom-declare-variable 'w3m-popup-frame-parameters 'nil '(#$ . 49821) :group 'w3m :type '(choice (group :inline t :tag "Frame Parameters (Emacs)" (repeat :inline t :tag "Frame Parameters (Emacs)" (cons :format "%v" :indent 3 (symbol :format "Parameter: %v\n" :size 0) (sexp :format "%t: %v\n" :size 0)))) (group :inline t :tag "Frame Plist (XEmacs)" (repeat :inline t :tag "Frame Plist (XEmacs)" (group :indent 2 :inline t (symbol :format "Property: %v\n" :size 0) (sexp :format "%t: %v\n" :size 0))))))
#@417 *Non-nil means provide the ability to horizontally scroll the window.
Automatic horizontal scrolling is made when the point gets away from
both ends of the window, but nothing occurs if `truncate-lines' is set
to nil.
This feature works with the specially made program in emacs-w3m; usual
`auto-hscroll-mode', `automatic-hscrolling', `auto-show-mode' or
`hscroll-mode' will all be invalidated in emacs-w3m buffers.
(custom-declare-variable 'w3m-auto-show 't '(#$ . -50465) :group 'w3m :type 'boolean)
#@742 *Integer used by the program making the point certainly visible.
The cursor definitely does not go missing even when it has been driven
out of the window while wandering around anchors and forms in an
emacs-w3m buffer.
Suppose that the value of this variable is N. When the point is
outside the left of the window, emacs-w3m scrolls the window so that
the point may be displayed on the position within 1/N of the width of
the window from the left. Similarly, when the point is outside the
right of the window, emacs-w3m scrolls the window so that the point
may be displayed on the position of 1/N of the width of the window
from the right.
This feature doesn't work if `w3m-auto-show' is nil. The value must
be a larger integer than 1.
(custom-declare-variable 'w3m-horizontal-scroll-division '4 '(#$ . -50974) :group 'w3m :type '(integer :size 0) :set (lambda (symbol value) (set-default symbol (if (and (integerp value) (> value 1)) value 4))))
#@141 *Non-nil means show an error information as a web page.
Page is made when the foreign server doesn't respond to a request to
retrieve data.
(custom-declare-variable 'w3m-show-error-information 't '(#$ . -51933) :group 'w3m :type 'boolean)
#@167 *Non-nil means honor the REFRESH attribute in META tags.
Emacs-w3m arbitrarily takes you to a url specified by that attribute.
Note that they may be malicious traps.
(custom-declare-variable 'w3m-use-refresh 't '(#$ . -52179) :group 'w3m :type 'boolean)
#@179 *Name of the "mbconv" command provided by the "libmoe" package.
The "libmoe" package is used when you use the w3mmee command instead
of the w3m command. See also `w3m-command'.
(custom-declare-variable 'w3m-mbconv-command '"mbconv" '(#$ . -52440) :group 'w3m :type '(string :size 0))
#@644 *Cons of two regexps matching and not matching with local file names.
If a url of the `file:' scheme in which you entered matches the first
form and does not match the latter form, it will be opened by the
function specified by the `w3m-local-find-file-function' variable.
Nil for the regexp matches any file names.
For instance, the value `(nil . "\\.html?\\'")' allows
"file:///some/where/w3m.el", not "file:///any/where/index.html", to
open by the function specified by `w3m-local-find-file-function'. The
latter will be opened as a normal web page.
It is effective only when the `w3m-local-find-file-function' variable
is set properly.
(custom-declare-variable 'w3m-local-find-file-regexps ''(nil . "\\.html?\\'") '(#$ . -52732) :group 'w3m :type '(cons (radio :tag "Match" (const :format "All " nil) (regexp :format "%t: %v\n" :size 0)) (radio :tag "Nomatch" (const :format "All " nil) (regexp :format "%t: %v\n" :size 0))))
#@392 *Function used to open local files.
If a url of the `file:' scheme in which you entered agrees with the
rule of the `w3m-local-find-file-regexps' variable (which see), it is
used to open the file.
Function should take one argument, the string naming the local file.
It can also be any Lisp form returning a function. Set this to nil if
you want to always use emacs-w3m to see local files.
(custom-declare-variable 'w3m-local-find-file-function ''(if (w3m-popup-frame-p) 'find-file-other-frame 'find-file-other-window) '(#$ . -53672) :group 'w3m :type '(sexp :size 0))
#@226 *Symbol of the method to view a local directory tree.
The valid values include `w3m-cgi' using the CGI program specified by
the `w3m-dirlist-cgi-program' variable (which see), and `w3m-dtree'
using the w3m-dtree Lisp module.
(custom-declare-variable 'w3m-local-directory-view-method ''w3m-cgi '(#$ . -54249) :group 'w3m :type '(radio (const :format "Dirlist CGI " w3m-cgi) (const :tag "Directory tree" w3m-dtree)))
#@123 *Name of the CGI program to list a local directory.
If it is nil, the dirlist.cgi module of the w3m command will be used.
(custom-declare-variable 'w3m-dirlist-cgi-program '(cond ((eq system-type 'windows-nt) "c:/usr/local/lib/w3m/dirlist.cgi") ((memq system-type '(OS/2 emx)) (expand-file-name "dirlist.cmd" (getenv "W3M_LIB_DIR"))) (t nil)) '(#$ . -54672) :group 'w3m :type `(radio (const :tag "w3m internal CGI" nil) (file :format "path of 'dirlist.cgi': %v\n" :size 0 :value ,(if (not noninteractive) (expand-file-name (concat "../lib/" (file-name-nondirectory w3m-command) "/dirlist.cgi") (file-name-directory (w3m-which-command w3m-command)))))))
#@1103 *Rule of sending referers.
There are five choices as the valid values of this option.
(1) nil: this means that emacs-w3m never send referers.
(2) t: this means that emacs-w3m always send referers.
(3) lambda: this means that emacs-w3m send referers only when both
the current page and the target page are provided by the same
server.
(4) a cons cell keeping two regular expressions: this means that
emacs-w3m send referers when the url of the current page matches
the first regular expression and does not match the second regular
expression. Nil for the regexp matches any url.
(5) a function: emacs-w3m send referers when this function which has
two arguments, URL and REFERER, returns non-nil.
If you become nervous about leak of your private WEB browsing history,
set `nil' or `lambda' to this option. When your computer belongs to a
secret network, you may set a pair of regular expressions to inhibit
sending referers which will disclose your private informations, as
follows:
(setq w3m-add-referer
'("\\`http:"
. "\\`http://\\([^./]+\\.\\)*example\\.net/"))
(custom-declare-variable 'w3m-add-referer '(if (boundp 'w3m-add-referer-regexps) (symbol-value 'w3m-add-referer-regexps) (cons "\\`http:" "\\`http://\\(localhost\\|127\\.0\\.0\\.1\\)/")) '(#$ . -55333) :group 'w3m :type '(choice (const :tag "Never send referers" nil) (const :tag "Always send referers" t) (const :tag "Send referers when accessing the same server" lambda) (cons :tag "Send referers when URI matches:" (list :inline t :format "%v" (radio :indent 2 :sample-face underline :tag "Allow" (regexp :format "%t: %v\n" :size 0) (const :tag "Don't allow all" nil)) (radio :indent 2 :sample-face underline :tag "Don't allow" (regexp :format "%t: %v\n" :size 0) (const :tag "Allow all" nil)))) (function :tag "Send referers when your function returns non-nil")))
#@146 *Name of the executable file of the touch command.
Note that the command is required to be able to modify file's
timestamp with the `-t' option.
(custom-declare-variable 'w3m-touch-command '(w3m-which-command "touch") '(#$ . -57210) :group 'w3m :type '(string :size 0))
#@992 *Alist of regexps matching URIs, and some types of replacements.
It can be used universally to replace URI strings in the local rule to
the valid forms in the Internet.
Each element looks like the `(REGEXP FUNCTION OPTIONS...)' form.
FUNCTION takes one or more arguments, a uri and OPTIONS. You can use
the grouping constructs "\\(...\\)" in REGEXP, and they can be
referred by the "\N" forms in a replacement (which is one of OPTIONS).
Here are some predefined functions which can be used for those ways:
`w3m-pattern-uri-replace'
Replace a URI using PATTERN (which is just an OPTION). It is
allowed that PATTERN contains the "\N" forms in the same manner
of `replace-match'.
`w3m-search-uri-replace'
Generate the valid forms to query words to some specified search
engines. For example, the element
("\\`gg:" w3m-search-uri-replace "google")
makes it possible to replace the URI "gg:emacs" to the form to
query the word "emacs" to the Google site.
(custom-declare-variable 'w3m-uri-replace-alist ''(("\\`gg:" w3m-search-uri-replace "google") ("\\`ggg:" w3m-search-uri-replace "google groups") ("\\`ya:" w3m-search-uri-replace "yahoo") ("\\`al:" w3m-search-uri-replace "altavista") ("\\`bts:" w3m-search-uri-replace "debian-bts") ("\\`dpkg:" w3m-search-uri-replace "debian-pkg") ("\\`archie:" w3m-search-uri-replace "iij-archie") ("\\`urn:ietf:rfc:\\([0-9]+\\)" w3m-pattern-uri-replace "http://www.ietf.org/rfc/rfc\\1.txt")) '(#$ . -57487) :group 'w3m :type '(repeat (list :convert-widget (lambda (widget) (require 'w3m-search) (list 'choice :format "%[Value Menu%] %v" :tag "Replacing URI with" :args (append '((list :indent 4 :tag "Replacement Using Pattern" (regexp :format "%t: %v\n" :size 0) (function-item :format "" w3m-pattern-uri-replace) (string :format "Pattern: %v\n" :size 0))) '((list :format "%t:\n%v" :indent 4 :tag "Quick Search" (regexp :format "Prefix URI %t: %v\n" :size 0 :value "") (function-item :format "" w3m-search-uri-replace) (string :format "Quick Search Engine: %v\n" :size 0 :value ""))) (mapcar (lambda (elem) (let ((engine (car elem)) prefix) (setq prefix (mapconcat 'identity (split-string (downcase engine)) "-")) (list 'list :format "Quick Search:\n%v" :tag (concat "Quick Search: " prefix) (list 'regexp :tag "Prefix URL Regexp" (concat "\\`" (regexp-quote prefix) ":")) '(function-item :format "" w3m-search-uri-replace) (list 'string :tag "Quick Search Engine" engine)))) w3m-search-engine-alist) '((list :indent 4 :tag "User Defined Function" (regexp :format "%t: %v\n" :size 0) (function :format "%t: %v\n" :size 0 :value-to-internal (lambda (widget value) (if (stringp value) (if (string-match "\\`\".*\"\\'" value) (substring value 1 -1) value) (prin1-to-string value)))) (repeat :extra-offset 2 :tag "Options" (sexp :format "%t: %v\n" :size 0))))))))))
#@71 *Rules to estimate relationships between a retrieved page and others.
(custom-declare-variable 'w3m-relationship-estimate-rules '`((w3m-relationship-simple-estimate "\\`http://\\(www\\|groups\\)\\.google\\.[^/]+/\\(search\\|groups\\)" ,(concat "’¼¡’¤Î’¥Ú’¡¼’¥¸") ,(concat "’Á°’¤Î’¥Ú’¡¼’¥¸") nil nil) (w3m-relationship-magicpoint-estimate)) '(#$ . -60332) :group 'w3m :type '(repeat (choice (group :tag "Estimate relationships from anchors matching" (function :format "" w3m-relationship-simple-estimate) (regexp :tag "URL") (regexp :tag "Next") (regexp :tag "Previous") (regexp :tag "Start") (regexp :tag "Contents")) (list :tag "Estimate with a user defined function" function (repeat :tag "Arguments" sexp)))))
#@46 Alist of html character entities and values.
(defconst w3m-entity-alist (byte-code "\306\307\310 \2058 \311\312\313\314\315\316\317\320\321\306\322\306\323\324\306
\f\n &\"\"\323\325\"\". \"\207" [suit miscellaneous-technical mathematical-operators arrows letterlike-symbols greek append (("nbsp" . " ") ("gt" . ">") ("lt" . "<") ("amp" . "&") ("quot" . "\"") ("apos" . "'") ("circ" . "^") ("tilde" . "~") ("iexcl" . "¡") ("cent" . "¢") ("pound" . "£") ("curren" . "¤") ("yen" . "¥") ("brvbar" . "¦") ("sect" . "§") ("uml" . "¨") ("copy" . "©") ("ordf" . "ª") ("laquo" . "«") ("not" . "¬") ("shy" . "") ("reg" . "®") ("macr" . "¯") ("deg" . "°") ("plusmn" . "±") ("sup2" . "²") ("sup3" . "³") ("acute" . "´") ("micro" . "µ") ("para" . "¶") ("middot" . "·") ("cedil" . "¸") ("sup1" . "¹") ("ordm" . "º") ("raquo" . "»") ("frac14" . "¼") ("frac12" . "½") ("frac34" . "¾") ("iquest" . "¿") ("Agrave" . "À") ("Aacute" . "Á") ("Acirc" . "Â") ("Atilde" . "Ã") ("Auml" . "Ä") ("Aring" . "Å") ("AElig" . "Æ") ("Ccedil" . "Ç") ("Egrave" . "È") ("Eacute" . "É") ("Ecirc" . "Ê") ("Euml" . "Ë") ("Igrave" . "Ì") ("Iacute" . "Í") ("Icirc" . "Î") ("Iuml" . "Ï") ("ETH" . "Ð") ("Ntilde" . "Ñ") ("Ograve" . "Ò") ("Oacute" . "Ó") ("Ocirc" . "Ô") ("Otilde" . "Õ") ("Ouml" . "Ö") ("times" . "×") ("Oslash" . "Ø") ("Ugrave" . "Ù") ("Uacute" . "Ú") ("Ucirc" . "Û") ("Uuml" . "Ü") ("Yacute" . "Ý") ("THORN" . "Þ") ("szlig" . "ß") ("agrave" . "à") ("aacute" . "á") ("acirc" . "â") ("atilde" . "ã") ("auml" . "ä") ("aring" . "å") ("aelig" . "æ") ("ccedil" . "ç") ("egrave" . "è") ("eacute" . "é") ("ecirc" . "ê") ("euml" . "ë") ("igrave" . "ì") ("iacute" . "í") ("icirc" . "î") ("iuml" . "ï") ("eth" . "ð") ("ntilde" . "ñ") ("ograve" . "ò") ("oacute" . "ó") ("ocirc" . "ô") ("otilde" . "õ") ("ouml" . "ö") ("divide" . "÷") ("oslash" . "ø") ("ugrave" . "ù") ("uacute" . "ú") ("ucirc" . "û") ("uuml" . "ü") ("yacute" . "ý") ("thorn" . "þ") ("yuml" . "ÿ") ("Alpha" . "†Á") ("Beta" . "†Â") ("Gamma" . "†Ã") ("Delta" . "†Ä") ("Epsilon" . "†Å") ("Zeta" . "†Æ") ("Eta" . "†Ç") ("Theta" . "†È") ("Iota" . "†É") ("Kappa" . "†Ê") ("Lambda" . "†Ë") ("Mu" . "†Ì") ("Nu" . "†Í") ("Xi" . "†Î") ("Omicron" . "†Ï") ("Pi" . "†Ð") ("Rho" . "†Ñ") ("Sigma" . "†Ó") ("Tau" . "†Ô") ("Upsilon" . "†Õ") ("Phi" . "†Ö") ("Chi" . "†×") ("Psi" . "†Ø") ("Omega" . "†Ù") ("alpha" . "†á") ("beta" . "†â") ("gamma" . "†ã") ("delta" . "†ä") ("epsilon" . "†å") ("zeta" . "†æ") ("eta" . "†ç") ("theta" . "†è") ("iota" . "†é") ("kappa" . "†ê") ("lambda" . "†ë") ("mu" . "†ì") ("nu" . "†í") ("xi" . "†î") ("omicron" . "†ï") ("pi" . "†ð") ("rho" . "†ñ") ("sigmaf" . "†ò") ("sigma" . "†ó") ("tau" . "†ô") ("upsilon" . "†õ") ("phi" . "†ö") ("chi" . "†÷") ("psi" . "†ø") ("omega" . "†ù")) w3m-mule-unicode-p ((32 ("OElig" . 114) ("oelig" . 115)) (33 ("Scaron" . 32) ("scaron" . 33) ("Yuml" . 56))) ((33 ("fnof" . 82))) ((114 ("ensp" . 98) ("emsp" . 99) ("thinsp" . 105) ("zwnj" . 108) ("zwj" . 109) ("lrm" . 110) ("rlm" . 111) ("ndash" . 115) ("mdash" . 116) ("lsquo" . 120) ("rsquo" . 121) ("sbquo" . 122) ("ldquo" . 124) ("rdquo" . 125) ("bdquo" . 126)) (115 ("dagger" . 32) ("Dagger" . 33) ("permil" . 48) ("lsaquo" . 57) ("rsaquo" . 58) ("bull" . 34) ("hellip" . 38) ("prime" . 50) ("Prime" . 51) ("oline" . 62) ("frasl" . 68)) (116 ("euro" . 76))) ((39 ("thetasym" . 81) ("upsih" . 82) ("piv" . 86))) ((117 ("weierp" . 88) ("image" . 81) ("real" . 92) ("trade" . 98) ("alefsym" . 117))) ((118 ("larr" . 112) ("uarr" . 113) ("rarr" . 114) ("darr" . 115) ("harr" . 116)) (119 ("crarr" . 53) ("lArr" . 80) ("uArr" . 81) ("rArr" . 81) ("dArr" . 83) ("hArr" . 84))) ((120 ("forall" . 32) ("part" . 34) ("exist" . 35) ("empty" . 37) ("nabla" . 39) ("isin" . 40) ("notin" . 41) ("ni" . 43) ("prod" . 47) ("sum" . 49) ("minus" . 50) ("lowast" . 55) ("radic" . 58) ("prop" . 61) ("infin" . 62) ("ang" . 64) ("and" . 71) ("or" . 72) ("cap" . 73) ("cup" . 74) ("int" . 75) ("there4" . 84) ("sim" . 92) ("cong" . 101) ("asymp" . 104)) (121 ("ne" . 32) ("equiv" . 33) ("le" . 36) ("ge" . 37) ("sub" . 66) ("sup" . 67) ("nsub" . 68) ("sube" . 70) ("supe" . 71) ("oplus" . 85) ("otimes" . 87) ("perp" . 101)) (122 ("sdot" . 37))) ((122 ("lceil" . 104) ("rceil" . 105) ("lfloor" . 106) ("rfloor" . 107)) (123 ("lang" . 41) ("rang" . 42))) (("loz" 34 . 42) ("spades" 35 . 96) ("clubs" 35 . 99) ("hearts" 35 . 101) ("diams" 35 . 102)) apply mapcar #[(entities) "@\302\303A\")\207" [entities code1 mapcar #[(entity) "@\302\303\304\305!\306H A#!B\207" [entity code1 char-to-string make-char-internal charset-info mule-unicode-0100-24ff 0] 6]] 3] #[(entity) "@\301\302\303\304!\305HA@AA#!B\207" [entity char-to-string make-char-internal charset-info mule-unicode-2500-33ff 0] 6] general-punctuation latin-extended-b latin-extended-a] 16) (#$ . 61396))
#@42 Regexp matching html character entities.
(defconst w3m-entity-regexp "&\\([a-z][a-z0-9]*\\|#[0-9]+\\|#x[0-9a-f]+\\)\\(;\\)?" (#$ . 66298))
#@84 Hash table of `w3m-entity-alist'.
The nil value means it has not been initialized.
(defvar w3m-entity-db nil (#$ . 66443))
#@26 Size of `w3m-entity-db'.
(defconst w3m-entity-db-size 13 (#$ . 66572))
#@113 Alist of content encoding types and decoder symbols.
Decoders are specified by `w3m-decoder-alist' (which see).
(defconst w3m-encoding-alist '(("gzip" . gzip) ("x-gzip" . gzip) ("compress" . gzip) ("x-compress" . gzip) ("x-bzip" . bzip) ("bzip" . bzip) ("bzip2" . bzip) ("x-deflate" . deflate) ("deflate" . deflate)) (#$ . 66650))
#@261 A small image to be displayed in the about: page.
It is encoded in the optimized interlaced endlessly animated gif format
and base64. Emacs can display only the 1st frame of an animation, but
XEmacs can fully display it with the help of the gifsicle program.
(defconst w3m-emacs-w3m-icon "R0lGODlhUwAOAPIFAP///38AvwAAv1Uq/AC/AL9/Af8AAAAAACH/C05FVFNDQVBFMi4wAwEA\nAAAh+QQEIQD/ACwAAAAAUwAOAEADwgi63P4wykldCBYDIRT33RYOQ0ScU1EAKrs2hqHEswzQ\nynUte78vnA9DQGKQihIUQNliNGlQXGVKrVqv2Oy06Zr+vpqfcDgqAZDHCvPVVHFxcJsOAAbZ\nRWdkfn9GKSVtbC83NnE1WoiIblyJjY4KXIwSdXQ+GEKYIXtoZnoPa5CDoTUyMaVyOpRimkFC\nngtHZksntAQKBCstkiyFvYeVGXeZCpzEsgt/EYGjv4aEPHPCIWNEJXppyLQVy6RSzlKP4eIJ\nACH5BAQhAP8ALAAAAAABAAEAAAMCCAkAIfkEBCEA/wAsAQABAFEACwAAAx0Iutz+MMpJq704\n6827/2AojmRpnmiqrmzrvnBsJgAh+QQEIQD/ACwBAAQAEQAIAAADHAixAb6qMRgfZDbXHaem\nnBOKINmIpnSWqIe+TgIAIfkEBCEA/wAsCQAEABcACAAAAykYAcoNUEgBq1ALAxnp9tXzcFVX\nOtAITmS4fCYsuzHZnqhsg/geb7hKAgAh+QQEIQD/ACwXAAQAFAAIAAADJSgKzDKjAQjbYrXO\nuJ3AnEZZytdJoAZcKuqKIeduchaidjPOQAIAIfkEBCEA/wAsJgAEABUACAAAAyA4OtD+gJAm\nGVAQyodz3s5iRVI5RR/ordTJapP6OuacJQAh+QQEIQD/ACw2AAEAEAALAAADJgi6XO4sAqio\nnGU5ogjH0VZlYFN8VPoARAZZGviSlzpKdmneF5AAADs=" (#$ . 66988))
#@134 *Format used when displaying the progress of the external w3m process.
It shows a percentage of the data loaded from the web server.
(custom-declare-variable 'w3m-process-modeline-format '" loaded: %s" '(#$ . -68159) :group 'w3m :type '(choice (string :tag "Format") function))
#@133 Modeline control for displaying the status when the process is running.
The value will be modified for displaying the graphic icon.
(defvar w3m-modeline-process-status-on "" (#$ . 68444))
#@134 Modeline control to display the status when inline images are turned on.
The value will be modified for displaying the graphic icon.
(defvar w3m-modeline-image-status-on "[IMG]" (#$ . 68644))
#@121 Modeline control for displaying the status for the default.
The value will be modified for displaying the graphic icon.
(defvar w3m-modeline-status-off "[ - ]" (#$ . 68843))
#@132 Modeline control for displaying the status when images and SSL are on.
The value will be modified for displaying the graphic icon.
(defvar w3m-modeline-ssl-image-status-on "[IMG(SSL)]" (#$ . 69024))
#@127 Modeline control for displaying the status when SSL is turned on.
The value will be modified for displaying the graphic icon.
(defvar w3m-modeline-ssl-status-off "[SSL]" (#$ . 69230))
#@63 String used to separate a status and a title in the modeline.
(defvar w3m-modeline-separator " / " (#$ . 69420))
#@120 Modeline control for displaying a favicon.
This variable will be made buffer-local under Emacs 21 and later or
XEmacs.
(defvar w3m-modeline-favicon nil (#$ . 69540))
#@104 Favicon image of the page.
This variable will be made buffer-local under Emacs 21 and later or
XEmacs.
(defvar w3m-favicon-image nil (#$ . 69713))
#@114 Flag used to say whether the external process is running in the buffer.
This variable will be made buffer-local.
(defvar w3m-current-process nil (#$ . 69867))
(make-variable-buffer-local 'w3m-current-process)
#@171 Variable used to keep a timer object for refreshing a page.
It will be supplied by the REFRESH attribute in the META tag, and made
buffer-local in each emacs-w3m buffer.
(defvar w3m-refresh-timer nil (#$ . 70083))
(make-variable-buffer-local 'w3m-refresh-timer)
#@70 URL specified by tag in element of the page source.
(defvar w3m-current-base-url nil (#$ . 70351))
#@68 Variable used to keep forms data for the current emacs-w3m buffer.
(defvar w3m-current-forms nil (#$ . 70473))
#@64 Coding system used when decoding the current emacs-w3m buffer.
(defvar w3m-current-coding-system nil (#$ . 70590))
#@70 Content charset of the page specified by the server or the META tag.
(defvar w3m-current-content-charset nil (#$ . 70711))
#@127 Cons of icon data and its image-type for the current emacs-w3m buffer.
It is used for favicon data. The type is often `ico'.
(defvar w3m-icon-data nil (#$ . 70841))
#@58 URL as the next document in the author-defined sequence.
(defvar w3m-next-url nil (#$ . 71013))
#@62 URL as the previous document in the author-defined sequence.
(defvar w3m-previous-url nil (#$ . 71115))
#@59 URL as the first document in the author-defined sequence.
(defvar w3m-start-url nil (#$ . 71225))
#@52 URL as the table of contents for the current page.
(defvar w3m-contents-url nil (#$ . 71329))
#@60 Maximum number of the anchor sequence in the current page.
(defvar w3m-max-anchor-sequence nil (#$ . 71429))
#@73 Cons of number of seconds and a url specified by the REFRESH attribute.
(defvar w3m-current-refresh nil (#$ . 71544))
#@63 SSL certification indicator for the current emacs-w3m buffer.
(defvar w3m-current-ssl nil (#$ . 71668))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\300\316!\207" [make-variable-buffer-local w3m-current-url w3m-current-base-url w3m-current-title w3m-current-forms w3m-current-coding-system w3m-current-content-charset w3m-icon-data w3m-next-url w3m-previous-url w3m-start-url w3m-contents-url w3m-max-anchor-sequence w3m-current-refresh w3m-current-ssl] 2)
(defalias 'w3m-clear-local-variables #[nil "\306\306\306\306\306\306\306\306\306 \306\n\306\306\f\306\211
\207" [w3m-current-url w3m-current-base-url w3m-current-title w3m-current-coding-system w3m-current-content-charset w3m-icon-data nil w3m-next-url w3m-previous-url w3m-start-url w3m-contents-url w3m-max-anchor-sequence w3m-current-refresh w3m-current-ssl] 2])
(put 'w3m-clear-local-variables 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'w3m-copy-local-variables #[(from-buffer) "\306\211\211\211\211\211\211\211\211\211\211\211\211 \n\f
rq\210
\f\n )
\f\n
\f\n \211.
\207" [ssl refresh hseq toc start prev nil next icon char cs title base url from-buffer w3m-current-url w3m-current-base-url w3m-current-title w3m-current-coding-system w3m-current-content-charset w3m-icon-data w3m-next-url w3m-previous-url w3m-start-url w3m-contents-url w3m-max-anchor-sequence w3m-current-refresh w3m-current-ssl] 13])
(put 'w3m-copy-local-variables 'byte-optimizer 'byte-compile-inline-expand)
#@159 *Flag controls whether to log messages in the *Messages* buffer.
If it is nil, a lot of messages issued by emacs-w3m will be displayed
only in the echo area.
(defvar w3m-verbose nil (#$ . -73382))
#@55 Regexp matching urls which are considered to be safe.
(defvar w3m-safe-url-regexp nil (#$ . 73585))
(byte-code "\301B\306\301!\204\f \307\302B\306\302!\204 \307\303B\306\303!\204$ \307\304B\306\304!\2040 \307\305B\306\305!\204<