;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \210\304\320\306\307\321DD\322\312\313\314\323&\210\304\324\306\307\325DD\326\312\313\314\315\316\327& \210\300\330!\210\331\320\332\"\210\300\333!\210\300\334!\210\300\335!\210\300\336!\210\300\337!\207" [require cl-lib w3m-util w3m-proc custom-declare-variable w3m-use-tab funcall function #[0 "\300\207" [t] 1] "Use emacs-w3m in \"Tabbed\" display mode.\nThis variable is now DEPRECATED! Please use `w3m-display-mode'\ninstead. When non-nil, emacs-w3m will make a reasonable effort to\ndisplay all its buffers in a single window, which has a clickable\ntab bar along the top.\nSee also `w3m-use-tab-line' and `w3m-use-tab-menubar'." :group w3m :type boolean :set #[514 "\302\"\303\300!\203/\203$\203$\304\305\306\307#\210\303\301!\203/\310\301\311\"\210\207\303\301!\203/\312\311 \"\207" [w3m-use-tab-line tab-line-exclude-modes custom-set-default boundp require tab-line nil t add-to-list w3m-mode delq] 7 "\n\n(fn SYMBOL VALUE)"] w3m-select-buffer-hook #[0 "\300\207" [nil] 1] "Hook run when a different emacs-w3m buffer is selected." hook w3m-use-tab-line #[0 "\300\301!\207" [boundp tab-line-format] 2] "Use `tab-line-format' instead of `header-line-format' to display tabs.\nSee also `w3m-use-tab'." #[514 "\304\305!\205\211\211\262\304!\203\214J\232\204\221\306\"\210\307\310!\203\221A@\203-\311\202.\312\240\210\313 \314 B\315\211\316\317!)\211\203\207\211@r\211q\210\320 \210\321\317!\210\322\323\"\211\262\203\324\325\"\216\326\327!!\210\330\317\"\210\331\332\317\"r\211q\210\324\333\"\216\334p!\210\335\336!\210*\210))A\266\202\202<\266\202\221\306\"\210\203\251\n\203\251\337\311!\210\304\303!\203\264\340\303\341\"\210\207\304\303!\203\264\342\341 \"\207" [w3m-tab-separator-map w3m-fb-mode w3m-use-tab tab-line-exclude-modes boundp tab-line-format custom-set-default featurep w3m-ems tab-line header-line selected-frame selected-window nil w3m-list-buffers t w3m-setup-tab-line w3m-tab-make-keymap get-buffer-window visible make-closure #[0 "\301\300@!\210\302\300A!\207" [V0 select-frame select-window] 2] select-frame window-frame select-window generate-new-buffer " *temp*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] switch-to-buffer sit-for 0 require add-to-list w3m-mode delq] 11 "\n\n(fn SYMBOL VALUE)"] w3m-ems add-hook w3m-set-buffer-seen bookmark-w3m w3m-fb w3m-hist timezone image-mode] 10) #@22 Display the bookmark (autoload 'w3m-bookmark-view "w3m-bookmark" '(#$ . 2581) t) #@39 Display the bookmark on a new session (autoload 'w3m-bookmark-view-new-session "w3m-bookmark" '(#$ . 2668) t) #@41 Add a link under point to the bookmark. (autoload 'w3m-bookmark-add-this-url "w3m-bookmark" '(#$ . 2784) t) #@48 Add a url of the current page to the bookmark. (autoload 'w3m-bookmark-add-current-url "w3m-bookmark" '(#$ . 2898) t) #@54 Add urls of all pages being visited to the bookmark. (autoload 'w3m-bookmark-add-all-urls "w3m-bookmark" '(#$ . 3022) t) #@22 Add URL to bookmark. (autoload 'w3m-bookmark-add "w3m-bookmark" '(#$ . 3149)) #@36 Iteration bookmark groups/entries. (autoload 'w3m-bookmark-iterator "w3m-bookmark" '(#$ . 3233)) #@37 Search a word using search engines. (autoload 'w3m-search "w3m-search" '(#$ . 3336) t) #@54 Search a word using search engines in a new session. (autoload 'w3m-search-new-session "w3m-search" '(#$ . 3429) t) (autoload 'w3m-search-uri-replace "w3m-search") #@27 Display a weather report. (autoload 'w3m-weather "w3m-weather" '(#$ . 3599) t) (autoload 'w3m-about-weather "w3m-weather") #@30 Report changes of web sites. (autoload 'w3m-antenna "w3m-antenna" '(#$ . 3728) t) #@65 Add a link address of the current page to the antenna database. (autoload 'w3m-antenna-add-current-url "w3m-antenna" '(#$ . 3816) t) (autoload 'w3m-about-antenna "w3m-antenna") #@27 Display a directory tree. (autoload 'w3m-dtree "w3m-dtree" '(#$ . 3999) t) (autoload 'w3m-about-dtree "w3m-dtree") #@27 Search files with Namazu. (autoload 'w3m-namazu "w3m-namazu" '(#$ . 4120) t) (autoload 'w3m-about-namazu "w3m-namazu") #@21 View Perl documents (autoload 'w3m-perldoc "w3m-perldoc" '(#$ . 4245) 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\304\"\210\300\313\304\"\210\300\314\304\"\210\300\315\316\"\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-form-expand-form w3m-form-unexpand-form w3m-form-make-form-data w3m-filter "w3m-filter"] 3) #@71 Toggle whether to modify html source by the filters before rendering. (autoload 'w3m-toggle-filtering "w3m-filter" '(#$ . 4828) t) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\302\"\210\300\306\307\"\210\300\310\307\"\210\300\311\307\"\210\300\312\307\"\210\300\313\307\314\315$\210\300\316\317\314\315$\210\300\320\321\314\315$\210\300\322\323\314\315$\210\300\324\325\314\315$\210\300\326\325\314\315$\210\300\327\325\314\315$\210\300\330\325\314\315$\210\300\331\325\314\315$\210\300\332\325\314\315$\210\300\333\325\314\315$\210\300\334\325\314\315$\210\300\335\325\314\315$\210\300\336\325\314\315$\210\300\337\325\314\315$\210\300\340\325\314\315$\210\300\341\325\314\315$\207" [autoload w3m-setup-tab-menu "w3m-tabmenu" w3m-setup-bookmark-menu "w3m-bookmark" 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" w3m-mail "w3m-mail" w3m-lnum-mode "w3m-lnum" w3m-lnum-follow w3m-lnum-goto w3m-lnum-universal w3m-lnum-toggle-inline-image w3m-lnum-view-image w3m-lnum-external-view-this-url w3m-lnum-edit-this-url w3m-lnum-print-this-url w3m-lnum-download-this-url w3m-lnum-bookmark-add-this-url w3m-lnum-zoom-in-image w3m-lnum-zoom-out-image] 5) #@35 Select session from session list. (autoload 'w3m-session-select "w3m-session" '(#$ . 6121) t) #@33 Save list of displayed session. (autoload 'w3m-session-save "w3m-session" '(#$ . 6221) t) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\207" [autoload w3m-setup-session-menu "w3m-session" w3m-session-automatic-save w3m-session-deleted-save w3m-session-last-autosave-session w3m-session-goto-session w3m-session-crash-recovery-save w3m-session-last-crashed-session] 3) #@51 Save the current page and its image data locally. (autoload 'w3m-save-buffer "w3m-save" '(#$ . 6684)) #@72 Version number of this package. Not to be confused with `w3m-version'. (defconst emacs-w3m-version "1.4.632" (#$ . 6792)) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\301\310\311&\210\312\313\314\315\316DD\317\304\301\320\321&\210\312\322\314\315\323DD\324\304\301\320\325&\207" [custom-declare-group w3m nil "Emacs-w3m - the web browser of choice." :group hypermedia w3m-face "Faces used for emacs-w3m." :prefix "w3m-" custom-declare-variable w3m-command funcall function #[0 "\300\207" [nil] 1] "Name of the executable file of the w3m command.\nYou normally don't have to specify the value, since emacs-w3m looks\nfor the existing commands in order of w3m, w3mmee and w3m-m17n in the\n`exec-path' directories in order if it is nil in the beginning.\n\nIf you want to use the other w3m command, specify the value of this\nvariable explicitly in the .emacs file or customize the value and save\nit. In this case, you need to restart Emacs and emacs-w3m. That is,\nthere is currently no way to apply the changing of the w3m command to\nall the emacs-w3m programs safely after loading the w3m.elc module." :type (radio (const :format "Not specified " nil) (string :format "Command: %v")) w3m-display-ins-del #[0 "\300\207" [auto] 1] "Value of `display_ins_del' option." (radio (const :format "Delect automatically " auto) (const :format "Use fontify\n" fontify) (const :format "Use tag " tag) (const :format "No have option" nil))] 8) #@84 Type of the w3m command. The valid values include `w3m', `w3mmee', and `w3m-m17n'. (defvar w3m-type nil (#$ . 8253)) #@54 Compile options that the w3m command was built with. (defvar w3m-compile-options nil (#$ . 8376)) #@91 Version string of the external w3m command. Not to be confused with `emacs-w3m-version'. (defvar w3m-version nil (#$ . 8480)) (byte-code "\203 \204\230\305\202\230 \203\n\203 \203\f\204\230 \2060\306\305!\2060\306\307!\2060\306\310!\211\203\227\211\311\312\313\"r\211q\210\314\315\"\216\316\317\313\317\320%\210eb\210\321\322\317\313#\203w\323\324!\325\224\203c\326\202v\327\224\203l\330\202v\324\224\203u\331\202v\332\321\333\317\313#\203\225\334\335\225\336 {\337\"\206\214\317C\340\f\235\203\225\330*\210\210 ;\204\241\341\342!\210\343\344\345\346\347DD\350\351\331\352\353&\210\343\354\345\346\355DD\356\351\331\352\357&\207" [noninteractive w3m-command w3m-type w3m-version w3m-compile-options "w3m" w3m-which-command "w3mmee" "w3m-m17n" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil "-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 3 w3mmee 2 w3m-m17n w3m other "options +" split-string 0 point-at-eol "," "m17n" error "Install w3m command in `exec-path' or set `w3m-command' variable correctly" custom-declare-variable w3m-user-agent funcall function #[0 "\302\303 R\207" [emacs-w3m-version w3m-version "Emacs-w3m/" " "] 4] "String used for the User-Agent field. See also `w3m-add-user-agent'." :group :type string w3m-add-user-agent #[0 "\300\207" [t] 1] "Non-nil means add the User-Agent field to the request header.\nThe value of `w3m-user-agent' is used for the field body." boolean] 8) #@200 An default alist of user agent strings. This is used when offering the user the opportunity to change user agent strings. This should normally not be modified; instead modify `w3m-user-agent-alist'. (defvar w3m-user-agent-default-alist (byte-code "\302\303\304\305 RBD\207" [emacs-w3m-version w3m-version ("Emacs-w3m (user default)" . w3m-user-agent) "Emacs-w3m (package default)" "Emacs-w3m/" " "] 6) (#$ . 10174)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\310\325&\210\300\326\302\303\327DD\330\306\307\310\331&\210\300\332\302\303\333DD\334\306\307\310\335&\210\300\336\302\303\337DD\340\306\307\310\341&\210\300\342\302\303\343DD\344\306\307\310\345&\210\300\346\302\303\347DD\350\306\307\310\351&\210\300\352\302\303\353DD\354\306\307\310\355&\210\300\356\302\303\357DD\360\306\307\310\361&\210\300\362\302\303\363DD\364\306\307\310\365&\210\366\367\370\371#\210\372\211\203\334\211@\367N\203\325\370N\204\325\373\370\367N#\210A\266\202\202\273\210\374\367\370\375#\210\376\367\370\371#\210\377\367\370\375#\210\300\370\302\303\201@DD\201A\306\307\310\201B&\210\300\201C\302\303\201DDD\201E\306\307\310\361&\210\300\201F\302\303\201GDD\201H\306\307\310\201I&\210\300\201J\302\303\201KDD\201L\306\307\310\201M&\210\300\201N\302\303\201ODD\201P\306\307\310\201Q&\207" [custom-declare-variable w3m-user-agent-alist funcall function #[0 "\300\207" [(("Android Webkit" . "Mozilla/5.0 (Linux; U; Android 4.0.3; ko-kr; LG-L160L Build/IML74K) AppleWebkit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30") ("Firefox 57" . "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:57.0) Gecko/20100101 Firefox/57.0") ("IE Mobile" . "Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0)") ("Opera Mini 9.80" . "Opera/9.80 (J2ME/MIDP; Opera Mini/9.80 (S60; SymbOS; Opera Mobi/23.348; U; en) Presto/2.5.25 Version/10.54") ("Opera Mobile 12" . "Opera/12.02 (Android 4.1; Linux; Opera Mobi/ADR-1111101157; U; en-US) Presto/2.9.201 Version/12.02") ("Chrome 51" . "Mozilla/5.0 (Linux; Android 5.1.1; VS810PP Build/LMY47V) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.81 Mobile Safari/537.36"))] 1] "An alist of user agent strings.\nEach entry should be a cons of a short descriptive string and\nthe user agent string." :group w3m :type (repeat (cons :format "%v" :indent 2 (string :tag "Short Description") (string :tag "User Agent string"))) w3m-user-agent-site-specific-alist #[0 "\300\207" [nil] 1] "An alist of user-agent strings to be used for specific URLs.\nEach entry should be a cons of a regexp for the URLs to be\ncovered by the rule, and a user-agent string to be used." (repeat (cons :format "%v" :indent 2 (string :tag "URL regexp") (string :tag "User Agent string"))) w3m-language #[0 "\301\232\205\301\207" [current-language-environment "Japanese"] 2] "Your preferred language used in emacs-w3m sessions." (radio :value-to-internal (lambda (_widget value) (if (and (stringp value) (let ((case-fold-search t)) (string-match "\\`japan" value))) "Japanese")) :value-to-external (lambda (_widget value) (if (equal value "Japanese") "Japanese")) (const :format "%v " "Japanese") (const :tag "Other" nil)) w3m-command-arguments #[0 "\301=\205\302\207" [w3m-type w3mmee ("-o" "concurrent=0" "-F")] 2] "List of the default arguments passed to the w3m command.\nSee also `w3m-command-arguments-alist'." (repeat (string :format "Argument: %v")) w3m-command-arguments-alist #[0 "\300\207" [nil] 1] "Alist of regexps matching urls and additional arguments passed to w3m.\nA typical usage of this variable is to specify whether to use the proxy\nserver for the particular hosts. The first match made will be used.\nHere is an example of how to set this variable:\n\n(setq w3m-command-arguments-alist\n \\='(;; Don't use the proxy server to visit local web pages.\n (\"\\\\`http://\\\\(?:[^/]*\\\\.\\\\)*your-company\\\\.com\\\\(?:/\\\\|\\\\'\\\\)\"\n \"-no-proxy\")\n ;; Use the proxy server to visit any foreign urls.\n (\"\"\n \"-o\" \"http_proxy=http://proxy.your-company.com:8080/\")))\n\nWhere the first element matches the url that the scheme is \"http\" and\nthe hostname is either \"your-company.com\" or a name ended with\n\".your-company.com\", and the proxy server is not used for those hosts.\nIf you are a novice on the regexps, you can use the\n`w3m-no-proxy-domains' variable instead." (repeat (cons :format "%v" :indent 4 (regexp :format "%t: %v") (repeat :tag "Arguments passed to w3m command" (string :format "Arg: %v")))) w3m-no-proxy-domains #[0 "\300\207" [nil] 1] "List of domain names with which emacs-w3m will not use a proxy server.\nEach element should be exactly a domain name which means the latter\ncommon part of the host names, not a regexp." (repeat (string :format "Domain name: %v")) w3m-command-environment #[0 "\302\303\304=\205 \305\306B \307=\205\310\311B\312\313BE\"\207" [w3m-type system-type delq nil w3mmee "W3MLANG" "ja_JP.kterm" cygwin "CYGWIN" "binmode" "LC_ALL" "C"] 6] "Alist of environment variables for subprocesses to inherit." (repeat (cons :format "%v" :indent 4 (string :format "Name: %v") (string :format " Value: %v"))) w3m-fill-column #[0 "\300\207" [-1] 1] "Integer used as the value for `fill-column' in emacs-w3m buffers.\nIf it is positive, pages will be displayed within the columns of that\nnumber. If it is zero or negative, the number of columns which\nsubtracted that number from the window width is applied to the maximum\nwidth of pages." integer w3m-mailto-url-function #[0 "\300\207" [nil] 1] "Function used to handle the `mailto' urls.\nFunction is called with one argument, just a url. If it is nil, a\nfunction specified by the `mail-user-agent' variable will be used for\ncomposing mail messages." (radio (const :tag "Not specified" nil) (function :format "%t: %v")) w3m-mailto-url-popup-function-alist #[0 "\300\207" [((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))] 1] "Alist of (MAJOR-MODE . FUNCTION) pairs used to pop to a mail buffer up.\nIf a user clicks on a `mailto' url and a mail buffer is composed by\n`mail-user-agent' with the MAJOR-MODE, FUNCTION will be called with\na mail buffer as an argument.\nNote that the variables `display-buffer-alist',\n`same-window-buffer-names' and `same-window-regexps' will be bound to\nnil while popping to a buffer up." (repeat (cons :format "%v" :indent 11 (symbol :format "Major-mode: %v") (function :format "%t: %v"))) w3m-use-ange-ftp #[0 "\300\207" [nil] 1] "Non-nil means that `ange-ftp' or `efs' is used to access FTP servers." boolean w3m-doc-view-content-types #[0 "\3001 \301\302\303\304\305\"\"0\207\210\302\207" [(error) delq nil mapcar #[257 "\300!\205\n\301\302\"\207" [doc-view-mode-p format "application/%s"] 4 "\n\n(fn TYPE)"] (dvi postscript pdf)] 5] "List of content types for which to use `doc-view-mode' to view contents.\nThis overrides `w3m-content-type-alist'." (repeat (string :tag "Type" :value "application/")) defvaralias w3m-imitate-widget-button w3m-handle-non-anchor-buttons nil (saved-value saved-variable-comment) put make-obsolete-variable "sometime" defalias make-obsolete #[0 "\300\207" [(derived-mode-p 'gnus-article-mode)] 1] "If non-nil, regard non anchor buttons as anchor buttons.\nIt is useful for moving about in a Gnus article buffer using TAB key.\nThe value may be a boolean, or a list that will be `eval'd." (radio (const :format "%v " nil) (const :format "%v \n" t) (sexp :format "Sexp to be eval'd: %v")) w3m-treat-image-size #[0 "\300\207" [t] 1] "Non-nil means let w3m mind the ratio of the size of images and text.\n\nIf it is non-nil, the w3m command will make a halfdump which reserves\nrectangle spaces in which images will be put, and also `alt' texts\nwill be truncated or padded with spaces so that their display width\nwill be the same as the width of images.\n\nSee also `w3m-pixels-per-character' and `w3m-pixels-per-line'. Those\nvalues will be passed to the w3m command in order to compute columns\nand lines which images occupy." w3m-pixels-per-line #[0 "\300\207" [64] 1] "Integer used for the `-ppl' argument of the w3m command.\nIf nil, the height of the default face is used. It is valid only when\n`w3m-treat-image-size' is non-nil. Note that a small value may not\ninduce a good result. If you want to use emacs-w3m in a character\nterminal and make `w3m-treat-image-size' effective, you need to set\nthis variable properly." (choice (const :tag "Auto Detect" nil) (integer :tag "Specify Pixels")) w3m-pixels-per-character #[0 "\300\207" [nil] 1] "Integer used for the `-ppc' argument of the w3m command.\nIf nil, the width of the default face is used. It is valid only when\n`w3m-treat-image-size' is non-nil. If you want to use emacs-w3m in a\ncharacter terminal and make `w3m-treat-image-size' effective, you need\nto set this variable properly." (radio (const :tag "Auto Detect" nil) (integer :format "Specify Pixels: %v")) w3m-image-default-background #[0 "\300\207" [nil] 1] "Color name used as transparent color of image.\nNil means to use the background color of the Emacs frame. Note that\nthis value is effective only to xbm and monochrome pbm images in Emacs\n22 and greater." (radio (string :format "Color: %v" :match (lambda (widget value) (and (stringp value) (> (length value) 0)))) (const :tag "Use the background color of the Emacs frame" nil) (const :tag "Null string" ""))] 8) #@65 Non-nil means that the w3m command accepts Japanese characters. (defvar w3m-accept-japanese-characters (byte-code "?\205H \306>\206H\307\310\311\"r\211q\210\312\313\"\216\314\315!\210\316c\210\317\211\211\211B\320ed \311\211\315\321\322\323& \210eb\210\324\325\326\327\330\331$\315\311#\205E\311-\262\207" [noninteractive w3m-type default-process-coding-system coding-system-for-read coding-system-for-write w3m-command (w3mmee w3m-m17n) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil "$B4A;z(B\n" binary call-process-region "-T" "text/html" "-halfdump" re-search-forward string 180 193 187 250] 11) (#$ . 19871)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\210\300\320\302\303\321DD\322\306\307\310\311&\210\300\323\302\303\324DD\325\306\307\310\311&\207" [custom-declare-variable w3m-coding-system funcall function #[0 "\301=\203\302\207\303\207" [w3m-type w3mmee iso-2022-7bit-ss2 iso-2022-7bit] 2] "Default coding system used to communicate with the w3m command." :group w3m :type coding-system w3m-terminal-coding-system #[0 "\203\301\207\302\207" [w3m-accept-japanese-characters euc-japan iso-8859-1] 1] "Default coding system used when writing to w3m processes.\nIt is just a default value to set process' coding system initially.\n(This variable name is analogically derived from the behavior of the\nw3m command which accepts data from Emacs just like reads from the\nterminal.)" w3m-output-coding-system #[0 "\301=\203\302\207\303\207" [w3m-type w3mmee ctext utf-8] 2] "Coding system used when reading from w3m processes." w3m-input-coding-system #[0 "\207" [w3m-output-coding-system] 1] "Coding system used when writing to w3m processes.\nIt overrides `coding-system-for-write' if it is not `binary'.\nOtherwise, the value of the `w3m-current-coding-system' variable is\nused instead." w3m-file-coding-system #[0 "\300\207" [iso-2022-7bit] 1] "Coding system used when writing configuration files.\nThis value will be referred to by the `w3m-save-list' function."] 8) #@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 (#$ . -22238)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\320&\210\300\321\302\303\322DD\323\306\307\310\324&\210\300\325\302\303\326DD\327\306\307\310\330\331\332& \210\300\333\302\303\334DD\335\306\307\310\336&\207" [custom-declare-variable w3m-file-name-coding-system funcall function #[0 "\301>\203\302\207\303\207" [system-type (windows-nt OS/2 emx) shift_jis euc-japan] 2] "Coding system used to convert pathnames when emacs-w3m accesses files." :group w3m :type coding-system w3m-default-coding-system #[0 "\301\232\203\302\207\303\207" [w3m-language "Japanese" shift_jis iso-8859-1] 2] "Default coding system used to encode url strings and post-data." w3m-coding-system-priority-list #[0 "\301\232\205\302\207" [w3m-language "Japanese" (shift_jis)] 2] "Coding systems in order of priority used for emacs-w3m sessions." (repeat (coding-system :format "%t: %v")) w3m-url-coding-system-alist #[0 "\300\207" [(("\\`https?://\\(?:[^./?#]+\\.\\)+google\\(?:\\.[^./?#]+\\)+/" lambda (url) (if (string-match "&ie=\\([^&]+\\)" url) (w3m-charset-to-coding-system (match-string 1 url)))) (nil . utf-8))] 1] "Alist of url regexps and coding systems used to encode url to retrieve.\nThe form looks like:\n ((\"REGEXP\" . CODING) (\"REGEXP\" . CODING)...(nil . CODING))\n\nWhere REGEXP is a regular expression that matches a url. REGEXP nil\nmeans any url; element of which the car is nil, that is the default,\nhas to be the last item of this alist.\nCODING is a coding system used to encode a url that REGEXP matches.\nCODING nil means using the coding system corresponding to a charset\nused to encode the current page. CODING may also be a function that\ntakes one argument URL and returns a coding system.\n\nIf the example.com site requires a browser to use `shift_jis' to encode\nurl for example, you can add it to this variable as follows:\n\n(add-to-list\n \\='w3m-url-coding-system-alist\n \\='(\"\\\\\\=`https?://\\\\(?:[^./?#]+\\\\.\\\\)*example\\\\.com/\" . shift_jis))" (repeat (cons :format "\n%v" :indent 2 (radio :format "nil or regexp:\n %v" (const :format "Any " nil) regexp) (radio :format "coding-system or function:\n %v" (const :format "Page's coding system " nil) coding-system function))) w3m-key-binding #[0 "\300\207" [nil] 1] "Type of key binding set used in emacs-w3m sessions.\nThe valid values include `info' which provides Info-like keys, and\nnil which provides Lynx-like keys." (choice (const :tag "Use Info-like key mapping." info) (const :tag "Use Lynx-like key mapping." nil)) :set #[514 "\302\"\204c\303\304!\203c\305\306!\2035\305\307!\2035\305\310!\2035\311\312\306\313\314\315D\316BB\317BB\320BBB!\210\321 r\211\203a\211@q\210 \322=\203Z\3231Y\324\306J!\210\325 \210\326 0\210\202Z\210\211A\262\2028)\210\207" [noninteractive major-mode custom-set-default featurep w3m boundp w3m-mode-map w3m-info-like-map w3m-lynx-like-map eval setq if eq quote ('info) (w3m-info-like-map w3m-lynx-like-map) (w3m-minor-mode-map (w3m-make-minor-mode-keymap)) buffer-list w3m-mode (error) use-local-map w3m-setup-toolbar w3m-setup-menu] 10 "\n\n(fn SYMBOL VALUE)"] w3m-use-cygdrive #[0 "\301=\207" [system-type cygwin] 2] "If non-nil, use /cygdrive/ prefix when performing `expand-file-name'." boolean] 10) #@44 Say whether the system uses drive letters. (defconst w3m-treat-drive-letter (memq system-type '(windows-nt OS/2 emx)) (#$ . 25864)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\311&\210\300\321\302\303\322DD\323\306\307\310\311&\210\300\324\302\303\325DD\326\306\307\310\327&\210\300\330\302\303\331DD\332\306\307\310\333&\210\300\334\302\303\335DD\336\306\307\310\337&\210\300\340\302\303\341DD\342\306\307\310\343&\207" [custom-declare-variable w3m-profile-directory funcall function #[0 "\301\302\303!!P\207" [w3m-command "~/." file-name-sans-extension file-name-nondirectory] 4] "Directory where emacs-w3m config files are loaded from or saved to." :group w3m :type directory w3m-init-file #[0 "\300\207" [#1="~/.emacs-w3m"] 1 #1#] "Your emacs-w3m startup file name.\nIf a file with the `.el' or `.elc' suffixes exists, it will be read\ninstead. Nil means no init file will be loaded.\n\nNote: This file is used as the startup configuration *NOT* for the w3m\ncommand but for emacs-w3m. In order to modify configurations for the\nw3m command, edit the file named \"~/.w3m/config\" normally." (radio file (const :format "None " nil)) w3m-default-save-directory #[0 "\301\302\303!!P\207" [w3m-command "~/." file-name-sans-extension file-name-nondirectory] 4] "Default directory where downloaded files will be saved to." w3m-external-view-temp-directory #[0 "\207" [w3m-profile-directory] 1] "Directory where files are saved for the external file viewer." w3m-default-directory #[0 "\300\207" [nil] 1] "Directory used as the current directory in emacs-w3m buffers.\nThe valid values include a string specifying an existing directory,\na symbol of which the value specifies an existing directory,\na function which takes a url as an argument and returns a directory,\nand nil. If the specified directory does not exist or it is nil,\nthe value of `w3m-profile-directory' is used.\n\nNote that there is an exception: if a page visits a local file or\nvisits a remote file using ftp, the directory in which the file exists\nis used as the current directory instead." (radio (directory :format "%{%t%}: %v" :value "~/") (symbol :format "%{%t%}: %v" :match (lambda (widget value) value) :value default-directory) (function :format "%{%t%}: %v") (const nil)) w3m-queries-log-file #[0 "\301\302\"\207" [w3m-profile-directory expand-file-name "emacs-w3m-queries_log.txt"] 3] "File in which to log URL queries." file w3m-accept-languages #[0 "\302\303\"\304!\2035\305\306\307\"r\211q\210\310\311\"\216\312!\210eb\210\313\314\315\307#\205/\316\317\320\321\322!\323\"\"*\262\206< \324\230\205<\325\207" [w3m-profile-directory w3m-language expand-file-name "config" file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^accept_language[ ]+\\(.+\\)$" nil delete "" split-string match-string 1 "[ \f\n]*,[ \f\n]*" "Japanese" ("ja" "en")] 7] "List of acceptable languages in descending order of priority.\nThe default value is set according to the accept_language entry of the\nw3m configuration file (normally \"~/.w3m/config\")." (repeat (string :format "Lang: %v")) w3m-delete-duplicated-empty-lines #[0 "\300\207" [t] 1] "Non-nil means display two or more continuous empty lines into single." boolean] 8) #@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 (#$ . 29310)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\313&\210\302\317\304\305\320DD\321\310\311\312\322&\210\302\323\304\305\324DD\325\310\311\312\313&\210\302\326\304\305\327DD\330\310\311\312\313&\210\302\331\304\305\332DD\333\310\311\312\334&\210\302\335\304\305\336DD\337\310\311\312\340&\210\302\341\304\305\342DD\343\310\311\312\344&\210\302\345\304\305\346DD\347\310\311\312\313&\210\302\350\304\305\351DD\352\310\311\312\344&\210\302\353\304\305\354DD\355\310\311\312\356&\210\302\357\304\305\360DD\361\310\311\312\313&\210\302\362\304\305\363DD\364\310\311\312\344&\210\365\366\367\370\310\371%\210\365\372\373\374\310\371%\210\365\375\376\377\310\371%\210\365\201@\201A\201B\310\371%\210\365\201C\201D\201E\310\371%\210\365\201F\201G\201H\201I\"\201G\372\201I\"\201I\2037@\262\211\201J>\204/\201KA@#\262AA\262\202\201LDC\266\203\201M\310\371%\210\365\201N\201O\201P\310\371%\210\365\201Q\201R\201S\310\371%\210\365\201T\201U\201V\310\371%\210\365\201W\201X\201Y\310\371%\210\365\201Z\201[\201\\\310\371%\210\302\201]\304\305\201^DD\201_\310\311\312\201`&\210\302\201a\304\305\201bDD\201c\310\311\312\201`&\210\302\201d\304\305\201eDD\201f\310\311\312\201`&\210\302\201g\304\305\201hDD\201i\310\311\312\201`\201j\201k& \210\302\201l\304\305\201mDD\201n\310\311\312\201`\201j\201k& \210\302\201o\304\305\201pDD\201q\310\311\312\201`\201j\201k& \210\302\201r\304\305\201sDD\201t\310\311\312\313&\210\302\201u\304\305\201vDD\201w\310\311\312\313&\210\302\201x\304\305\201yDD\201z\310\311\312\201{&\210\201|\201}!\210\201~ \207" [make-variable-buffer-local w3m-display-inline-images custom-declare-variable w3m-default-display-inline-images funcall function #[0 "\300\207" [nil] 1] "Non-nil means display images inline in emacs-w3m buffers.\nYou can toggle the visibility of images by the `\\\\[w3m-toggle-inline-images]' command.\nSee also `w3m-toggle-inline-images-permanently'." :group w3m :type boolean w3m-toggle-inline-images-permanently #[0 "\300\207" [t] 1] "Non-nil means let the visibility of images continue permanently.\nThe visibility of images is initialized according to\n`w3m-default-display-inline-images' at the first time, and except that\nit may be toggled by the `\\\\[w3m-toggle-inline-images]' command, it does not change hereafter, if\nit is non-nil. Otherwise, whether images are visible is initialized\naccording to `w3m-default-display-inline-images' whenever you visit a\nnew page or reload the current page in an emacs-w3m buffer." w3m-icon-directory #[0 "\302\3032o\304\305!\211\203\306!B\202\211\205l\211@\262\211A\262\203\307\310\311\"\211\262!\2036\312\303\"\210\307\310\313\"\211\262!\203G\312\303\"\210\307\310\314\"\211\262!\203X\312\303\"\210\307\310\315\"\211\262!\203\312\303\"\210\202\266\2020\206\217\307\310\316 \"\211\262!\203\202\211\206\217\307\310\317 \"\211\262!\205\217\211\207" [load-path data-directory nil found-dir locate-library "w3m" file-name-directory file-directory-p expand-file-name "../../etc/images/w3m/" throw "../etc/images/w3m/" "../../etc/w3m/icons/" "../etc/w3m/icons/" "images/w3m/" "w3m/icons/"] 7] "Directory where emacs-w3m should find icon files." (radio (const :tag "Not specified") (directory :format "%t: %v")) w3m-broken-proxy-cache #[0 "\300\207" [nil] 1] "Set it to t if the proxy server seems not to work properly in caching.\nNote that this may be the double-edged sword; setting it to t will\nlikely be harmful if the proxy server sends bad requests (e.g., not\nincluding the Host header, see RFC2616 section 14.23) to foreign\nservers when the w3m command specifies the \"no-cache\" directive. Also\nnote that it may not be effective if you are using old w3m command." w3m-quick-start #[0 "\300\207" [t] 1] "Non-nil means let emacs-w3m start quickly w/o requiring confirmation.\nWhen you invoke the `w3m' command, it attempts to visit the page of a\nstring like url around the cursor or the value of `w3m-home-page'.\nYou won't be asked for the confirmation then if this value is non-nil.\nOtherwise, you will be prompted for that url with the editing form." w3m-home-page #[0 "\300\301!\206 \300\302!\206 \303\207" [getenv "HTTP_HOME" "WWW_HOME" "about:"] 2] "This variable specifies the url string to open when emacs-w3m starts.\nDon't say HP, which is the abbreviated name of a certain company. ;-)" (radio :convert-widget w3m-widget-type-convert-widget `(,@(if (getenv "HTTP_HOME") `((const :format "HTTP_HOME: \"%v\"\n" ,(getenv "HTTP_HOME")))) ,@(if (getenv "WWW_HOME") `((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"))) w3m-arrived-file #[0 "\301\302\"\207" [w3m-profile-directory expand-file-name ".arrived"] 3] "Name of the file to keep the arrived URLs database." file w3m-keep-arrived-urls #[0 "\300\207" [500] 1] "Maximum number of URLs which the arrived URLs database keeps." integer w3m-prefer-cache #[0 "\300\207" [nil] 1] "Non-nil means that cached contents are used without checking headers." w3m-keep-cache-size #[0 "\300\207" [300] 1] "Maximum number of pages to be cached in emacs-w3m." w3m-follow-redirection #[0 "\300\207" [9] 1] "Maximum number of redirections which emacs-w3m honors and follows.\nIf nil, redirections are followed by the w3m command. Don't set it to\nnil if you allow to use cookies (i.e., you have set `w3m-use-cookies'\nto non-nil) since cookies may be shared among many redirected pages." (radio (const :format "Ignore redirections " nil) integer) w3m-redirect-with-get #[0 "\300\207" [t] 1] "If non-nil, use the GET method after redirection.\nIt controls how emacs-w3m works when a server responds the code 301 or\n302. Here is an extract from RFC2616:\n\nNote: RFC 1945 and RFC 2068 specify that the client is not allowed\nto change the method on the redirected request. However, most\nexisting user agent implementations treat 302 as if it were a 303\nresponse, performing a GET on the Location field-value regardless\nof the original request method." w3m-resize-image-scale #[0 "\300\207" [50] 1] "Number of steps in percent used when resizing images." custom-declare-face w3m-anchor ((((class color) (background light)) (:foreground "blue" :bold t :underline t)) (((class color) (background dark)) (:foreground "cyan" :bold t :underline t)) (t (:bold t) (:underline t))) "Face used for displaying anchors." w3m-face w3m-arrived-anchor ((((class color) (background light)) (:foreground "navy" :bold t :underline t)) (((class color) (background dark)) (:foreground "LightSkyBlue" :bold t :underline t)) (t (:bold t) (:underline t))) "Face used for displaying anchors which have already arrived." w3m-current-anchor ((t (:underline (:style wave)))) "Face used to highlight the current anchor." w3m-image ((((class color) (background light)) (:foreground "ForestGreen")) (((class color) (background dark)) (:foreground "PaleGreen")) (t (:underline t))) "Face used for displaying alternate strings of images." w3m-image-anchor ((((class color) (background light)) (:background "light yellow")) (((class color) (background dark)) (:background "dark green")) (t (:underline t))) "Face used for displaying alternate strings of images which are in anchors." w3m-history-current-url custom-face-attributes-get secondary-selection nil (:foreground :underline) plist-put t "Face used to highlight the current url in the \"about://history/\" page." w3m-bold ((t (:bold t))) "Face used for displaying bold text." w3m-italic ((((type nil)) (:underline t)) (t (:italic t))) "Face used for displaying italic text.\nBy default it will be a underline face on a non-window system." w3m-underline ((t (:underline t))) "Face used for displaying underlined text." w3m-strike-through ((((class color)) (:strike-through t)) (t (:underline t))) "Face used for displaying strike-through text." w3m-insert ((((class color) (background light)) (:foreground "purple")) (((class color) (background dark)) (:foreground "orchid")) (t (:underline t))) "Face used for displaying insert text." w3m-mode-hook #[0 "\300\207" [nil] 1] "Hook run after `w3m-mode' initialization.\nThis hook is evaluated by the `w3m-mode' function." hook w3m-fontify-before-hook #[0 "\300\207" [nil] 1] "Hook run when starting to fontify emacs-w3m buffers.\nThis hook is evaluated by the `w3m-fontify' function." w3m-fontify-after-hook #[0 "\300\207" [nil] 1] "Hook run after fontifying emacs-w3m buffers.\nThis hook is evaluated by the `w3m-fontify' function." w3m-display-hook #[0 "\300\207" [(w3m-move-point-for-localcgi w3m-history-highlight-current-url w3m-db-history-fix-indentation)] 1] "Hook run after displaying pages in emacs-w3m buffers.\nEach function is called with a url string as the argument. This hook\nis evaluated by the `w3m-goto-url' function." :initialize w3m-custom-hook-initialize w3m-after-cursor-move-hook #[0 "\300\207" [(w3m-highlight-current-anchor w3m-show-form-hint w3m-print-this-url)] 1] "Hook run each time after the cursor moves in emacs-w3m buffers.\nThis hook is called by the `w3m-check-current-position' function by\nway of `post-command-hook'." w3m-delete-buffer-hook #[0 "\300\207" [(w3m-pack-buffer-numbers)] 1] "Hook run when every emacs-w3m buffer is deleted." w3m-async-exec #[0 "\300\207" [t] 1] "Non-nil means execute the w3m command asynchronously in Emacs process." w3m-process-connection-type #[0 "\301>\205\302\303!\304\305\"\205\306\307\310\"!\311W\262?\207" [system-type (darwin macos) shell-command-to-string "uname -r" string-match "\\`\\([0-9]+\\)\\." string-to-number match-string 1 7] 5] "Value for `process-connection-type' used when communicating with w3m." w3m-default-content-type #[0 "\300\207" [#1="text/html"] 1 #1#] "Default value assumed as the content type of local files." string require mailcap mailcap-parse-mimetypes] 10) #@1204 *Alist of content types, regexps, commands to view, and filters. Each element is a list which consists of the following data: 1. Content type. 2. Regexp matching a url or a file name. 3. Method to view contents. The following four types may be used: a. Lisp function which takes the url to view as an argument. b. ("COMMAND" [ARG...]) -- where "COMMAND" is the external command and ARG's are the arguments passed to the command if any. The symbols `file' and `url' that appear in ARG's will be replaced respectively with the name of a temporary file which contains the contents and the string of the url to view. c. nil which means to download the url into the local file. d. (mailcap-mime-info "Content-Type") -- it will be replaced with the return value that is gotten by evaluatiing this form. Value may be one of the above three types. 4. Content type that overrides the one specified by `1. Content type'. Valid values include: a. Lisp function that takes three arguments URL, CONTENT-TYPE, and CHARSET, and returns a content type. b. String that specifies a content type. c. nil that means not to override the content type. (defvar w3m-content-type-alist (byte-code "\302\303!\304\211\211\211\211\211\211\211A\262 \242\211\262\203v@\262A\262G\305U\204 C\262\306 \"\211\262\203W@G\305U\204M@\235\204M@B\262\307 \"\262\202-A\203c\310!\202g\311!\312P\313D\304FB\262\202 \211\203\314\211@\211A\211\203\304\211@\314\315@\"\204\275\316A\236A\262 \317A\236A\262\314\320\n\"\204\275\321 \"\204\275\304;\205\267\304FB\262A\266\202\202\210A\266\202\202w\210\211\211\203&\211@\211AA@\211\262\203:\203\352@\313=\204\322!\304\262\211\203\211@\211\323\230\203\324\202 \211\325\230\203\n\326\202 \211B\262A\266\202\202\360\210\211AA\237\240\210A\266\202\202\316\210\211\203N\211@\321@\"\211\262\203BA\241\210\202G\211B\262A\266\202\202)\210\211\237\207" [mailcap-mime-extensions mailcap-mime-data (("text/sgml" "\\.sgml?\\'" nil "text/plain") ("text/xml" "\\.xml\\'" nil "text/plain") ("text/x-markdown" "\\.md\\'" nil w3m-prepare-markdown-content) ("application/xml" "\\.xml\\'" nil w3m-detect-xml-type) ("application/rdf+xml" "\\.rdf\\'" nil "text/plain") ("application/rss+xml" "\\.rss\\'" nil "text/plain") ("application/xhtml+xml" nil nil "text/html") ("application/x-bzip2" "\\.bz2\\'" nil nil) ("application/x-gzip" "\\.gz\\'" nil nil)) copy-sequence nil 0 rassoc delq regexp-opt regexp-quote "\\'" mailcap-mime-info string-match "\\`\\.\\*\\'" type viewer "/\\*\\'" assoc split-string "%s" file "%u" url] 17) (#$ . -39809)) (byte-code "\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\317&\210\302\320\304\305\321DD\322\310\311\312\323&\210\302\324\304\305\325DD\326\310\311\312\327&\210\302\330\304\305\331DD\332\310\311\312\333&\210\302\334\304\305\335DD\336\310\311\312\333&\210\302\337\304\305\340DD\341\310\311\312\342&\210\302\343\304\305\344DD\345\310\311\312\346&\210\302\347\304\305\350DD\351\310\311\312\346\352\353& \210\302\354\304\305\355DD\356\310\311\312\346&\210\302\357\304\305\360DD\361\310\311\312\346&\210\302\362\304\305\363DD\364\310\311\312\346\352\365& \210\302\366\304\305\367DD\370\310\311\312\346\352\371& \210\302\372\304\305\373DD\374\310\311\312\375&\210\302\376\304\305\377DD\201@\310\311\312\201A&\210\302\201B\304\305\201CDD\201D\312\201E\310\311&\210\302\201F\304\305\201GDD\201H\310\311\312\346&\210\302\201I\304\305\201JDD\201K\310\311\312\346&\210\302\201L\304\305\201MDD\201N\310\311\312\346&\210\302\201O\304\305\201PDD\201Q\310\311\312\346\201R\201S& \210\302\201T\304\305\201UDD\201V\310\311\312\346&\210\302\201W\304\305\201XDD\201Y\310\311\312\346&\210\302\201Z\304\305\201[DD\201\\\310\311\312\201]&\210\302\201^\304\305\201_DD\201`\310\311\312\346&\210\302\201a\304\305\201bDD\201c\201d\201e\201R\201f\310\311\312\346& \210\302\201g\304\305\201hDD\201i\201R\201j\310\311\312\346& \210\201k\201l\201m\201n#\210\201o\211\203*\211@\201lN\203#\201mN\204#\201p\201m\201lN#\210A\266\202\202\377\210\201q\201l\201m\201r#\210\302\201m\304\305\201sDD\201t\310\311\312\346&\210\302\201u\304\305\201vDD\201w\310\311\312\346&\210\302\201x\304\305\201yDD\201z\310\311\312\346&\210\302\201{\304\305\201|DD\201}\310\311\312\346&\210\302\201~\304\305\201DD\201\200\310\311\312\201\201&\210\302\201\202\304\305\201\203DD\201\204\310\311\312\346&\210\302\201\205\304\305\201\206DD\201\207\310\311\312\346&\210\302\201\210\304\305\201\211DD\201\212\310\311\312\333&\210\302\201\213\304\305\201\214DD\201\215\310\311\312\201\216&\210\302\201\217\304\305\201\220DD\201\221\310\311\312\201\222&\210\302\201\223\304\305\201\224DD\201\225\310\311\312\201\226&\210\302\201\227\304\305\201\230DD\201\231\310\311\312\201\232&\210\302\201\233\304\305\201\234DD\201\235\310\311\312\201\236&\210\302\201\237\304\305\201\240DD\201\241\310\311\312\201\242\201\243\201\244\201\245\201\246\201\247?\205\227\201\250\201\251\201\252 !\201\253Q\201\254\201\255 !!\"\257E&\210\302\201\256\304\305\201\257DD\201\260\310\311\312\201\261&\210\302\201\262\304\305\201\263DD\201\264\310\311\312\201\216&\210\302\201\265\304\305\201\266DD\201\267\310\311\312\201\270&\210\302\201\271\304\305\201\272DD\201\273\310\311\312\201\274&\210\302\201\275\304\305\201\276DD\201\277\310\311\312\201\300&\210\302\201\301\304\305\201\302DD\201\303\310\311\312\346&\207" [noninteractive w3m-command custom-declare-variable w3m-encoding-type-alist funcall function #[0 "\300\207" [(("\\.gz\\'" . "gzip") ("\\.bz2?\\'" . "bzip"))] 1] "Alist of file suffixes and content encoding types." :group w3m :type (repeat (cons :format "%v" :indent 14 (string :format "Regexp of Suffixes: %v") (string :format "Encoding Type: %v"))) w3m-decoder-alist #[0 "\303\304\305?\205!\306\307\306\310 !!!!\311\312\"\311\313\"D\262\310\314!)\315BBE\207" [noninteractive w3m-command exec-path (gzip "gzip" ("-d")) (bzip "bzip2" ("-d")) deflate file-name-directory directory-file-name w3m-which-command expand-file-name "libexec/w3m" "lib/w3m" "inflate" (nil)] 8] "Alist of encoding types, decoder commands, and arguments." (repeat (group :format "\n%v" :indent 4 (radio :format "Encoding: %v" (const :format "%v " gzip) (const :format "%v " bzip) (const deflate)) (string :format "Command: %v") (repeat :tag "Arguments" :extra-offset 2 (string :format "%v")))) w3m-charset-coding-system-alist #[0 "\300\301\203\"@@\302!\205\211\262\204@B\262A\262\202\207" [((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)) nil coding-system-p] 5] "Alist of MIME charsets and coding systems.\nBoth charsets and coding systems must be symbols." (repeat (cons :format "%v" :indent 2 (symbol :format "%t: %v") (coding-system :format "%t: %v"))) w3m-correct-charset-alist #[0 "\300\207" [(("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"))] 1] "Alist of MIME charsets; strange ones and standard ones." (repeat (cons :format "%v" :indent 11 (string :format "From: %v") (string :format "To: %v"))) w3m-horizontal-scroll-columns #[0 "\300\207" [10] 1] "Number of steps in columns used when scrolling a window horizontally." integer w3m-horizontal-shift-columns #[0 "\300\207" [2] 1] "Number of steps in columns used when shifting a window horizontally.\nThe term `shifting' means a fine level scrolling." w3m-view-recenter #[0 "\300\207" [1] 1] "Argument passed to `recenter' that runs when jumping to an anchor.\nIf it is 1 for instance, show the anchor position on the second line\nof the window. t runs `recenter' with no arguments, and `nil' means\ndon't recenter, let the display follow point in the usual way." (radio (integer :format "%{%t%}: %v " :value 1 :size 1) (const :format "%v " t) (const :format "%v" nil)) w3m-clear-display-while-reading #[0 "\300\207" [t] 1] "If non-nil, clear the display while reading a new page." boolean w3m-use-form #[0 "\300\207" [t] 1] "Non-nil means make it possible to use form extensions. (EXPERIMENTAL)" :require w3m-form w3m-submit-form-safety-check #[0 "\300\207" [nil] 1] "Non-nil means ask you for confirmation when submitting a form." w3m-use-cookies #[0 "\300\207" [t] 1] "Non-nil means enable emacs-w3m to use cookies. (EXPERIMENTAL)" w3m-use-filter #[0 "\300\207" [t] 1] "Non-nil means use filter programs to convert web contents.\nSee also `w3m-filter-configuration'." w3m-filter w3m-use-symbol #[0 "\301=\207" [w3m-type w3m-m17n] 2] "Non-nil means replace symbols that the <_SYMBOL> tags lead into.\nIt is meaningful only when the w3m-m17n command is used and Emacs\nhandles unicode charsets." w3m-symbol w3m-edit-function #[0 "\300\207" [find-file] 1] "Function used for editing local files.\nIt is used when either `w3m-edit-current-url' or `w3m-edit-this-url'\nis invoked for local pages." (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" :value view-file)) w3m-edit-function-alist #[0 "\300\207" [(("\\`[^?]+/hiki\\.cgi\\?" . hiki-edit-url))] 1] "Alist of functions used for editing pages.\nThis option is referred to decide which function should be used to\nedit a specified page, when either `w3m-edit-current-url' or\n`w3m-edit-this-url' is invoked. When no suitable function is found\nfrom this alist, `w3m-edit-function' is used." (repeat (cons :format "%v" :indent 4 (regexp :format "URL: %v") (function :match-alternatives (functionp symbolp)))) w3m-url-local-directory-alist #[0 "\300\301!\205 \302\303\301J\"\207" [boundp yahtml-path-url-alist mapcar #[257 "\211A@B\207" [] 3 "\n\n(fn PAIR)"]] 3] "Alist of URLs and local directories.\nIf directory names of a given URL and the car of an element are the\nsame, emacs-w3m assumes that the file exists in the local directory\nwhere the cdr of an element points to. The default value will be set\nto a value of the `yahtml-path-url-alist' variable which exchanged the\ncar and the cdr in each element if it is available." (repeat (cons :format "%v" :indent 3 (string :format "URL: %v") (directory :format "%t: %v"))) w3m-track-mouse #[0 "\300\207" [t] 1] "Whether to track the mouse and message the url under the mouse.\nSee also `show-help-function'." w3m-use-title-buffer-name #[0 "\300\207" [nil] 1] "Non-nil means use name of buffer included current title." w3m-use-japanese-menu #[0 "\301\232\207" [w3m-language "Japanese"] 2] "Non-nil means use Japanese characters for Menu if possible." w3m-menu-on-forefront #[0 "\300\207" [nil] 1] "Non-nil means place the emacs-w3m menus on the forefront of the menu bar." :set #[514 "\301\"\204\f\302!\210\207" [noninteractive custom-set-default w3m-menu-on-forefront] 5 "\n\n(fn SYMBOL VALUE)"] w3m-add-tab-number #[0 "\300\207" [nil] 1] "Non-nil means put sequential number to a title on tab." w3m-use-tab-menubar #[0 "\300\207" [t] 1] "Non-nil means use the TAB pull-down menu in the menubar.\n\nThis feature makes it possible to see a llst of emacs-w3m buffers in a\nsingle window, and select one by clicking a mouse on it.\n\nFor web page titles written in non-ascii text, this feature\nrequires Emacs to have been built to be able to display\nmultilingual text in the menubar.\n\nSee also `w3m-display-mode'." w3m-new-session-url #[0 "\300\207" [#1="about:blank"] 1 #1#] "Default url to be opened in a tab or a session which is created newly." (radio :convert-widget w3m-widget-type-convert-widget `((const :tag "About emacs-w3m" "about:") (const :tag "Blank page" "about:blank") (const :tag "Bookmark" "about://bookmark/") (const :tag ,(format "Home page (%s)" w3m-home-page) ,w3m-home-page) (string :format "URL: %v" :value ,(if (equal w3m-language "Japanese") "https://emacs-w3m.github.io/index-ja.html" "https://emacs-w3m.github.io/index.html")))) w3m-make-new-session #[0 "\300\207" [nil] 1] "Non-nil means making new emacs-w3m buffers when visiting new pages.\nIf it is non-nil and there are already emacs-w3m buffers, the `w3m'\ncommand makes a new emacs-w3m buffer if a user specifies a url string\nin the minibuffer, and the `w3m-safe-view-this-url' command also makes\na new buffer if a user invokes it in a buffer not being running the\n`w3m-mode'." w3m-use-favicon #[0 "\300\207" [t] 1] "Non-nil means show favicon images if they are available.\nIt will be set to nil automatically if ImageMagick's `convert' program\ndoes not support the ico format." :get #[257 "?\205 \301!\205 \302 \207" [noninteractive default-value w3m-favicon-usable-p] 3 "\n\n(fn SYMBOL)"] #[514 "\301?\205 \205 \302 \"\207" [noninteractive custom-set-default w3m-favicon-usable-p] 5 "\n\n(fn SYMBOL VALUE)"] w3m-show-graphic-icons-in-mode-line #[0 "\300\207" [t] 1] "Non-nil means show graphic status indicators in the mode-line.\nIf it is nil, also the favicon won't be shown in the mode-line even if\n`w3m-use-favicon' is non-nil." #[514 "\301\"\204\302\303!\203\304\305!\203\305 \210\207" [noninteractive custom-set-default featurep w3m fboundp w3m-initialize-graphic-icons] 5 "\n\n(fn SYMBOL VALUE)"] defvaralias w3m-show-graphic-icons-in-header-line w3m-show-graphic-icons-in-tab-line nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1" #[0 "\300\207" [t] 1] "Non-nil means show graphic status indicators in the tab-line.\nIf it is nil, also the favicon won't be shown in the tab-line even\nif `w3m-use-favicon' is non-nil." w3m-pop-up-windows #[0 "\300\207" [t] 1] "Use emacs-w3m in dual-pane mode.\n\nThis variable is now DEPRECATED! Please use `w3m-display-mode'\ninstead.\n\nWhen non-nil, once more than one emacs-w3m buffer exists, a\nreasonable attempt is made to present emacs-w3m in two windows on\nthe same frame. Any action to open a new emacs-w3m buffer, such\nas `w3m-goto-url-new-session' or `w3m-search-new-session'\ndisplays the new buffer in the unfocused pane, and transfers\nfocus there.\n\nNote that this display mode setting is of the lowest priority, in\nthat if either `w3m-pop-up-frames' or `w3m-use-tab' is non-nil,\nthis setting will be ignored." w3m-pop-up-frames #[0 "\300\207" [nil] 1] "Use emacs-w3m in a dedicated frame mode.\n\nThis variable is now DEPRECATED! Please use `w3m-display-mode'\ninstead.\n\nWhen non-nil, emacs-w3m makes a reasonable attempt to display its\nbuffers in dedicated frames, although you can manually subvert\nthat if you insist.\n\nThere are actually two types of dedicated frame display modes,\nDEDICATED-FRAMES and TABBED-DEDICATED-FRAMES.\n\nDEDICATED-FRAMES mode creates a new single-window frame for each\nnew emacs-w3m buffer you create.\n\nTABBED-DEDICATED-FRAMES mode opens new emacs-w3m buffers in the\nsame window of the frame from which it was spawned, and those\nbuffers are not easily visible to emacs-w3m buffers associated\nwith other frames. The window includes a clickable tab bar along\nthe top. To enable this variant display mode under the old\nscheme, you need to set this variable and also variable\n`w3m-use-tab'. When using this display mode, you can still\nmanually create multiple emacs-w3m frames by using the basic\ncommand `w3m'." w3m-new-session-in-background #[0 "\300\207" [nil] 1] "Say whether not to focus on a new tab or a new session in target.\nIt influences only when a new emacs-w3m buffer is created." w3m-popup-frame-parameters #[0 "\300\207" [nil] 1] "Alist of frame parameters used when creating a new emacs-w3m frame." (repeat :format "Frame Parameters:\n%v%i\n" (cons :format "%v" :indent 3 (symbol :format "Parameter: %v") (sexp :format "%t: %v"))) w3m-show-error-information #[0 "\300\207" [t] 1] "Non-nil means show an error information as a web page.\nPage is made when the foreign server doesn't respond to a request to\nretrieve data." w3m-use-refresh #[0 "\300\207" [t] 1] "Non-nil means honor the REFRESH attribute in META tags.\nIf non-nil, emacs-w3m arbitrarily takes you to a url the attribute\nspecifies." w3m-refresh-minimum-interval #[0 "\300\207" [5] 1] "Number of seconds used to override the meta refresh a page specifies.\nIf the meta refresh seconds the page specifies is less than this value,\nthis will be used instead of that." w3m-mbconv-command #[0 "\300\207" [#2="mbconv"] 1 #2#] "Name of the \"mbconv\" command provided by the \"libmoe\" package.\nThe \"libmoe\" package is what is used when `w3m-command' is w3mmee." string w3m-markdown-converter #[0 "\300\301!\203\302\207\300\303!\205\304\207" [w3m-which-command "markdown" ("markdown") "grip" ("grip" "--quiet" "--title" #3="" "--export" "-")] 2] "Command used to convert a file that is markdown formed to html format.\nThe value is a list containing a command, and if necessary arguments." (radio (const :format "none\n") (cons :format "%v" (string :format "Command: %v") (repeat :format "Arguments:\n%v%i" (string :format "%v")))) w3m-local-find-file-regexps #[0 "\301\302\303\304\305\205\n\306\307\310!\205\311\307\312!\205\313\307\314!\205\315\307\316!\205&\317\307\320!\205-\321&!\322QB\207" [w3m-markdown-converter nil "\\." regexp-opt append ("htm" "html" "shtm" "shtml" "xhtm" "xhtml" "txt") ("md") w3m-image-type-available-p jpeg ("jpeg" "jpg") gif ("gif") png ("png") xbm ("xbm") xpm ("xpm") "\\'"] 12] "Cons of two regexps matching and not matching with local file names.\nIf a url of the `file:' scheme in which you entered matches the first\nform and does not match the latter form, it will be opened by the\nfunction specified by the `w3m-local-find-file-function' variable.\nNil for the regexp matches any file names.\n\nFor instance, the value `(nil . \"\\\\.[sx]?html?\\\\'\")' allows\n\"file:///some/where/w3m.el\", not \"file:///any/where/index.html\", to\nopen by the function specified by `w3m-local-find-file-function'. The\nlatter will be opened as a normal web page. Furthermore, if you would\nlike to view some types of contents in the local system using the\nviewers specified by the `w3m-content-type-alist' variable, you can\nadd regexps matching those file names to the second element of this\nvariable. For example:\n\n(setq w3m-local-find-file-regexps\n \\='(nil . \"\\\\.\\\\(?:[sx]?html?\\\\|dvi\\\\|ps\\\\|pdf\\\\)\\\\\\='\"))\n\nIt is effective only when the `w3m-local-find-file-function' variable\nis set properly." (cons (radio :tag "Match" (const :format "All " nil) (regexp :format "%t: %v")) (radio :tag "Nomatch" (const :format "All " nil) (regexp :format "%t: %v"))) w3m-local-find-file-function #[0 "\300\207" [(if (w3m-popup-frame-p) 'find-file-other-frame 'find-file-other-window)] 1] "Function used to open local files.\nIf a url of the `file:' scheme in which you entered agrees with the\nrule of the `w3m-local-find-file-regexps' variable (which see), it is\nused to open the file.\n\nFunction should take one argument, the string naming the local file.\nIt can also be any Lisp form returning a function. Set this to nil if\nyou want to always use emacs-w3m to see local files." sexp w3m-local-directory-view-method #[0 "\300\207" [w3m-cgi] 1] "Symbol of the method to view a local directory tree.\nThe valid values include `w3m-cgi' using the CGI program specified by\nthe `w3m-dirlist-cgi-program' variable (which see), and `w3m-dtree'\nusing the w3m-dtree Lisp module." (radio (const :format "Dirlist CGI " w3m-cgi) (const :tag "Directory tree" w3m-dtree)) w3m-dirlist-cgi-program #[0 "\301\267\202\302\207\303\304\305\306!\"\207\307\207" [system-type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (windows-nt 6 OS/2 8 emx 8)) "c:/usr/local/lib/w3m/dirlist.cgi" expand-file-name "dirlist.cmd" getenv "W3M_LIB_DIR" nil] 4] "Name of the CGI program used to list a local directory.\nIf it is nil, the dirlist.cgi module of the w3m command will be used." radio (const :tag "w3m internal CGI" nil) file :format "path of 'dirlist.cgi': %v" :value expand-file-name "../lib/" file-name-nondirectory "/dirlist.cgi" file-name-directory w3m-which-command w3m-add-referer #[0 "\300\207" [("\\`https?:" . "\\`https?://\\(?:localhost\\|127\\.0\\.0\\.1\\)/")] 1] "Rule of sending referers.\nThere are five choices as a valid value for this option.\n\n(1) nil: this means that emacs-w3m never send referers.\n(2) t: this means that emacs-w3m always send referers.\n(3) lambda: this means that emacs-w3m send referers only when both\n the current page and the target page are provided by the same\n server.\n(4) a cons cell keeping two regular expressions: this means that\n emacs-w3m send referers when the url of the current page matches\n the first regular expression and does not match the second regular\n expression. Nil for the regexp matches any url.\n(5) a function: emacs-w3m send referers when this function which takes\n two arguments, URL and REFERER, returns non-nil.\n\nIf you become nervous about leak of your private WEB browsing history,\nset `nil' or `lambda' to this option. When your computer belongs to a\nsecret network, you may set a pair of regular expressions to inhibit\nsending referers which will disclose your private informations, as\nfollows:\n\n(setq w3m-add-referer\n '(\"\\\\`https?:\"\n . \"\\\\`https?://\\\\(?:[^./]+\\\\.\\\\)*example\\\\.net/\"))\n" (choice :format "%{%t%}:\n%[Value Menu%] %v" (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") (const :tag "Don't allow all" nil)) (radio :indent 2 :sample-face underline :tag "Don't allow" (regexp :format "%t: %v") (const :tag "Allow all" nil)))) (function :tag "Function that takes two arguments" :format "Send referers when this function returns non-nil\n%v(Note: this function takes two argumants URL and REFERER)\n")) w3m-touch-command #[0 "\300\301!\207" [w3m-which-command "touch"] 2] "Name of the executable file of the touch command.\nNote that the command is required to be able to modify file's\ntimestamp with the `-t' option." w3m-puny-utf-16be #[0 "\300\207" [utf-16be] 1] "Coding system for PUNY coding. if nil, don't use PUNY code." (radio (coding-system :tag "UTF-16BE with no signature") (const "Don't use" nil)) w3m-uri-replace-alist #[0 "\300\207" [(("\\`gg:" w3m-search-uri-replace "google") ("\\`ya:" w3m-search-uri-replace "yahoo") ("\\`bts:" w3m-search-uri-replace "debian-bts") ("\\`dpkg:" w3m-search-uri-replace "debian-pkg") ("\\`alc:" w3m-search-uri-replace "alc") ("\\`urn:ietf:rfc:\\([0-9]+\\)" w3m-pattern-uri-replace "http://www.ietf.org/rfc/rfc\\1.txt"))] 1] "Alist of regexps matching URIs, and some types of replacements.\nThis alist is used universally to replace locally produced URI\nstrings (eg. via user input) to the valid internet forms.\n\nEach element should take the form (REGEXP FUNCTION ARGS).\nFUNCTION will be called with URI as its first argument and ARGS\nas its second.\n\nREGEXP may include grouping constructs \"\\(...\\)\", so that they can be\nreferred by the \"N\" forms in a replacement (which is one of OPTIONS).\n\n`Emacs-w3m' comes with two predefined functions for use with this alist:\n\n`w3m-pattern-uri-replace'\n Replace a URI using PATTERN (which is just an OPTION). It is\n allowed that PATTERN contains the \"\\N\" forms in the same manner\n of `replace-match'.\n\n`w3m-search-uri-replace'\n Generate the valid forms to query words to some specified search\n engines. For example, the element\n\n (\"\\\\`gg:\" w3m-search-uri-replace \"google\")\n\n makes it possible to replace the URI \"gg:emacs\" to the form to\n query the word \"emacs\" to the Google site.\n\nTwo additional forms for elements are available, but they are\ndeprecated and support for them are subject to being removed at\nany time:\n\n1. (REGEXP REPLACE-PATTERN) Function `w3m-pattern-uri-replace'\n will be called to perform the replacement.\n\n2. (REGEXP FUNCTION) FUNCTION will be called will URI as its\n argument to perform the replacement." (repeat :convert-widget w3m-widget-type-convert-widget `((choice :format "%[Value Menu%] %v" :tag "Replacing URI with" (list :indent 4 :tag "Replacement Using Pattern" (regexp :format "%t: %v") (function-item :format #3# w3m-pattern-uri-replace) (string :format "Pattern: %v")) (list :format "%t:\n%v" :indent 4 :tag "Quick Search" (regexp :format "Prefix URI %t: %v" :value #3#) (function-item :format #3# w3m-search-uri-replace) (string :format "Quick Search Engine: %v" :value #3#)) ,@(progn (require 'w3m-search) (mapcar (lambda (elem) (let* ((engine (car elem)) (prefix (mapconcat 'identity (split-string (downcase engine)) "-"))) `(list :format "Quick Search:\n%v" :indent 4 :tag ,(concat "Quick Search: " prefix) (regexp :tag "Prefix URL Regexp" ,(concat "\\`" (regexp-quote prefix) ":")) (function-item :format #3# w3m-search-uri-replace) (string :tag "Quick Search Engine" ,engine)))) w3m-search-engine-alist)) (list :indent 4 :tag "User Defined Function" (regexp :format "%t: %v\n") (function :format "%t: %v\n") (repeat :extra-offset 2 :tag "Options" (sexp :format "%t: %v\n")))))) w3m-relationship-estimate-rules #[0 "\301\302\303\304Q\303\305Q\306BBBB\301\307\303\310Q\303\311Q\312BBBB\301\313\314\315Q\314\316Q\317BBBB\301\320\314\321Q\314\322Q\323BBBB\324BBBB\207" [w3m-html-string-regexp w3m-relationship-simple-estimate "\\`https?://\\(?:www\\|blogsearch\\|groups\\|news\\|images\\)\\.google\\.[^/]+/\\(?:\\(?:blog\\|code\\)?search\\|groups\\|news\\|images\\|cse\\?cx=\\|custom\\?\\(?:q\\|hl\\)=\\)" "]+?href=" "[^>]*aria-label=\"\\(?:Next page\\|次のページ\\|下一页\\|다음 페이지\\)\"" "[^>]*aria-label=\"\\(?:Previous page\\|前のページ\\|上一页\\|이전 페이지\\)\"" (nil nil) "\\`https?://www\\.google\\.[^/]+/gwt/n\\?u=" "[ \n]+accesskey=\"3\">" "[ \n]+accesskey=\"1\">" (nil nil) "\\`http://beta\\.search\\.yahoo\\.co\\.jp/" "次のページ" ">前のページ" (nil nil) ((w3m-relationship-oddmuse-estimate) (w3m-relationship-magicpoint-estimate) (w3m-relationship-slashdot-estimate) (w3m-relationship-alc-estimate))] 9] "Rules to estimate relationships between a retrieved page and others.\n\nThis variable supports the emacs-w3m ability to navigate\nstructured websites, using shortcut keys, to a current page's\nparent page (`w3m-view-parent-page'), or next / previous\npages (`w3m-scroll-up-or-next-url', `w3m-scroll-down-or-previous-url').\n\nThe variable is a list of RULES. Each RULE is sequence in the\nform FUNCTION URL NEXT PREV START CONTENTS.\n\nFUNCTION is the method to to be used to evaluate the other\nfields. A FUNCTION should set variables `w3m-start-url',\n`w3m-next-url', `w3m-previous-url', `w3m-contents-url'. Emacs-w3m\nprovides functions `w3m-relationship-simple-estimate',\n`w3m-relationship-magicpoint-estimate',\n`w3m-relationship-oddmuse-estimate',\n`w3m-relationship-slashdot-estimate',\n`w3m-relationship-alc-estimate', but of course you can add your\nown.\n\nURL is a regex defining the urls for which to use this rule.\n\nNEXT, PREV, START and CONTENTS are regexs of html source code\nfrom which to extract the values of variables `w3m-next-url',\n`w3m-previous-url', `w3m-start-url', `w3m-contents-url'\nrespectively. The url to store should be defined as a regex\ncollection group." (repeat (choice :format "%[Value Menu%] %v" (list :tag "Estimate relationships from anchors matching" :indent 1 (const :format "Function: %v\n" w3m-relationship-simple-estimate) (regexp :tag "URL") (regexp :tag "Next") (regexp :tag "Prev") (radio :format "Start: %v" (const :format "%v " nil) regexp) (radio :format "Contents: %v" (const :format "%v " nil) regexp)) (list :tag "Estimate with a user defined function" :indent 1 function (repeat :tag "Args" :extra-offset 1 (sexp :format "%v"))))) w3m-enable-feeling-searchy #[0 "\300\207" [t] 1] "Non-nil enables you to enter any words as well as a url when prompted.\nIn that case, emacs-w3m uses the default search engine to search\nfor the words."] 18) #@46 Table of html character entities and values. (defconst w3m-entity-table (byte-code "\300\301\302\"\303\211\203\211@\304@A#\210A\266\202\202\210\305\211\2036\211@\304@\306\307\310A\"!#\210A\266\202\202\210\311\211\203R\211@\304@\306\307\312A\"!#\210A\266\202\2028\210\313 \203\311\314\315\316\317\320\321\322\323\324\325        &\211\203\245\211@\211@A\211\203\234\211@\304@\306\307\326A#!#\210A\266\202\202~\266A\266\202\202t\210\211\211\203\307\211@\304@\306\307\327A@AA#!#\210A\266\202\202\247\266\n\207" [make-hash-table :test equal (("nbsp" . " ") ("gt" . ">") ("lt" . "<") ("amp" . "&") ("quot" . "\"") ("apos" . "'") ("circ" . "^") ("tilde" . "~")) puthash (("iexcl" . 161) ("cent" . 162) ("pound" . 163) ("curren" . 164) ("yen" . 165) ("brvbar" . 166) ("sect" . 167) ("uml" . 168) ("copy" . 169) ("ordf" . 170) ("laquo" . 171) ("not" . 172) ("shy" . 173) ("reg" . 174) ("macr" . 175) ("deg" . 176) ("plusmn" . 177) ("sup2" . 178) ("sup3" . 179) ("acute" . 180) ("micro" . 181) ("para" . 182) ("middot" . 183) ("cedil" . 184) ("sup1" . 185) ("ordm" . 186) ("raquo" . 187) ("frac14" . 188) ("frac12" . 189) ("frac34" . 190) ("iquest" . 191) ("Agrave" . 192) ("Aacute" . 193) ("Acirc" . 194) ("Atilde" . 195) ("Auml" . 196) ("Aring" . 197) ("AElig" . 198) ("Ccedil" . 199) ("Egrave" . 200) ("Eacute" . 201) ("Ecirc" . 202) ("Euml" . 203) ("Igrave" . 204) ("Iacute" . 205) ("Icirc" . 206) ("Iuml" . 207) ("ETH" . 208) ("Ntilde" . 209) ("Ograve" . 210) ("Oacute" . 211) ("Ocirc" . 212) ("Otilde" . 213) ("Ouml" . 214) ("times" . 215) ("Oslash" . 216) ("Ugrave" . 217) ("Uacute" . 218) ("Ucirc" . 219) ("Uuml" . 220) ("Yacute" . 221) ("THORN" . 222) ("szlig" . 223) ("agrave" . 224) ("aacute" . 225) ("acirc" . 226) ("atilde" . 227) ("auml" . 228) ("aring" . 229) ("aelig" . 230) ("ccedil" . 231) ("egrave" . 232) ("eacute" . 233) ("ecirc" . 234) ("euml" . 235) ("igrave" . 236) ("iacute" . 237) ("icirc" . 238) ("iuml" . 239) ("eth" . 240) ("ntilde" . 241) ("ograve" . 242) ("oacute" . 243) ("ocirc" . 244) ("otilde" . 245) ("ouml" . 246) ("divide" . 247) ("oslash" . 248) ("ugrave" . 249) ("uacute" . 250) ("ucirc" . 251) ("uuml" . 252) ("yacute" . 253) ("thorn" . 254) ("yuml" . 255)) char-to-string make-char latin-iso8859-1 (("Alpha" . 65) ("Beta" . 66) ("Gamma" . 67) ("Delta" . 68) ("Epsilon" . 69) ("Zeta" . 70) ("Eta" . 71) ("Theta" . 72) ("Iota" . 73) ("Kappa" . 74) ("Lambda" . 75) ("Mu" . 76) ("Nu" . 77) ("Xi" . 78) ("Omicron" . 79) ("Pi" . 80) ("Rho" . 81) ("Sigma" . 83) ("Tau" . 84) ("Upsilon" . 85) ("Phi" . 86) ("Chi" . 87) ("Psi" . 88) ("Omega" . 89) ("alpha" . 97) ("beta" . 98) ("gamma" . 99) ("delta" . 100) ("epsilon" . 101) ("zeta" . 102) ("eta" . 103) ("theta" . 104) ("iota" . 105) ("kappa" . 106) ("lambda" . 107) ("mu" . 108) ("nu" . 109) ("xi" . 110) ("omicron" . 111) ("pi" . 112) ("rho" . 113) ("sigmaf" . 114) ("sigma" . 115) ("tau" . 116) ("upsilon" . 117) ("phi" . 118) ("chi" . 119) ("psi" . 120) ("omega" . 121)) greek-iso8859-7 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)) append mule-unicode-0100-24ff mule-unicode-2500-33ff] 22) (#$ . 69486)) #@90 *Alist of (numeric . string) pairs for numeric character reference other than ISO 10646. (defvar w3m-extra-numeric-character-reference (mapcar #[257 "\211@\300\301A!!B\207" [string w3m-ucs-to-char] 5 "\n\n(fn ITEM)"] '((13 . 32) (128 . 8364) (130 . 8218) (131 . 402) (132 . 8222) (133 . 8230) (134 . 8224) (135 . 8225) (136 . 710) (137 . 8240) (138 . 352) (139 . 8249) (140 . 338) (142 . 381) (145 . 8216) (146 . 8217) (147 . 8220) (148 . 8221) (149 . 8226) (150 . 8211) (151 . 8212) (152 . 732) (153 . 8482) (154 . 353) (155 . 8250) (156 . 339) (158 . 382) (159 . 376))) (#$ . -74218)) #@55 Revision table of html character entities and values. (defconst w3m-entity-reverse-table (byte-code "\301\302\303\"\304\305\306\"\"\210\207" [w3m-entity-table make-hash-table :test equal maphash make-closure #[514 "\301\300#\207" [V0 puthash] 6 "\n\n(fn KEY VAL)"]] 5) (#$ . 74812)) #@42 Regexp matching html character entities. (defconst w3m-entity-regexp (byte-code "\301C\302\303\304\"\"\210\305\306\242!\307Q\207" [w3m-entity-table nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn KEY VAL)"] "&\\(" regexp-opt "\\|#\\(?:[xX][0-9a-fA-F]+\\|[0-9]+\\)\\)\\(\\'\\|[^0-9a-zA-Z]\\)"] 5) (#$ . 75105)) #@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)) (#$ . 75449)) #@135 A small image to be displayed in the about: page. It is encoded in the optimized interlaced endlessly animated gif format and base64. (defconst w3m-emacs-w3m-icon "R0lGODlhUwAOAPIAAFUq/H8AvwC/AP8AAAAAv79/Af///wAAACH/C05FVFNDQVBFMi4wAwEA\nAAAh+QQAIQD/ACwAAAAAUwAOAAADxmi63P4wykmrvXiWvbP/4NIpY2ieUFlSQRssrRG7DGET\nDQEAzL5PAoEiSCo0RoOBIblkKmKyV/RFsymsBqzh99vyvBKiYbQaG5vKZFoZfUqhUO0C2613\ngUJzsVhy+tkuNG2DWjd0Xw0+iEGMYgJGHWVjbH8KTlAMcThZm1iHEYwakKMOlU2WgFKZUp6d\nm3YKdwtiEmRnfZS5qG5Ub6yuVzg+C1xfAES0EbZ7u6fOTlOqrcFzxcSyjRXLqGoLptAo4eLj\n5OUNCQAh+QQAIQD/ACwAAAAAUwAOAAADImi63P4wykmrvTjrzbv/YCiOZGmeaKqubOu+cCzP\ndG3fagIAIfkEACEA/wAsAAAAAFMADgAAAz5outz+MMpJq7046827/2AYBWSwkAZaimyFpiZs\nrm0tvXj82rxT0rmekLE7xYZIRVF5TA5XQWfyJ61ar9hsAgAh+QQAIQD/ACwAAAAAUwAOAAAD\nVmi63P4wykmrvTjrzbv/YBgFZLCQBloyREs0rxiiqVmba6voBi//tKCN5lsUf7OSUEGM9VxO\nZNLR3MV4R6mHxqg+rVrpavktZ8MgpfHKNqLf8Lh8XkkAACH5BAAhAP8ALAAAAABTAA4AAANw\naLrc/jDKSau9OOvNu/9gGAVksJAGWjJESzQEADCyLGJoaurm2io/Q9BgsxFnx5slx9zlhoug\ncWpULktNxfMFdHGrtJq1kmNsu2jhFznulE+7oHytoLY1q6w6/RPXZ1N3F1hRXHNRRWx+goyN\njo+QCQAh+QQAIQD/ACwAAAAAUwAOAAADhWi63P4wykmrvTjrzbv/YBgFZLCQBloyREs0BAAw\nsjwJgoKHaGr6plVLMTQUDTYbcraU7ESKnvTXOy6KyqzyloMCV77o7+jCMhu1M2797EJ7jOrL\nOC+aI2tvBX4a1/8KWoFnC096EitTRIB0S2dJTAA7hocjYI2YZJALNQxslaChoqOkDgkAIfkE\nACEA/wAsAAAAAFMADgAAA6doutz+MMpJq714lr2z/+DSKWNonlBZUkEbLK0RuwxhEw0BAMy+\nTwKBIkgqNFaSmOy1fNFsCqhBavj9qjyshGgYIZERpZippC6k1/QVKOwa3UVw2DVWlHHRG37d\n8y2CgFwCRh1gbxVKDHd5jFN7WQ+AGoSUJokwTFKajwpqDlwSXm9yLDNkmXibWJBWWQBEoBGi\nRSB0Z6m4Z60Lfn+SFLMowsPExcbFCQAh+QQAIQD/ACwAAAAAUwAOAAADxmi63P4wykmrvXiW\nvbP/4NIpY2ieUFlSQRssrRG7DGETDQEAzL5PAoEiSCo0RoOBIblkKmKyV/RFsymsBqzh99vy\nvBKiYbQaG5vKZFoZfUqhUO0C2613gUJzsVhy+tkuNG2DWjd0Xw0+iEGMYgJGHWVjbH8KTlAM\ncThZm1iHEYwakKMOlU2WgFKZUp6dm3YKdwtiEmRnfZS5qG5Ub6yuVzg+C1xfAES0EbZ7u6fO\nTlOqrcFzxcSyjRXLqGoLptAo4eLj5OUNCQA7" (#$ . 75787)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable w3m-process-modeline-format funcall function #[0 "\300\207" [#1=" loaded: %s"] 1 #1#] "Format used when displaying the progress of the external w3m process.\nThe value should be a format string or a function that takes a string.\nIt shows a percentage of the data loaded from the web server." :group w3m :type (choice :format "%{%t%}:\n%[Value Menu%] %v" (string :tag "Format") (function :format "%t: %v (Note: it takes a string)\n")) w3m-ignored-image-url-regexp #[0 "\300\207" [nil] 1] "Regexp matching image urls which you don't want to view.\nIt is effective even if `w3m-display-inline-images' is non-nil.\nFor instance, the value \"\\\\`https?://www\\.google\\.com/\" conceals\nGoogle's logo and navigation images, but display YouTube's\nthumbnail." (radio (const :format "Accept any image\n" nil) (regexp :format "URL regexp: %v"))] 8) #@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 "" (#$ . 78618)) #@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]" (#$ . 78818)) #@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 "[ - ]" (#$ . 79017)) #@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)]" (#$ . 79198)) #@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]" (#$ . 79404)) #@63 String used to separate a status and a title in the modeline. (defvar w3m-modeline-separator " / " (#$ . 79594)) #@85 Modeline control for displaying a favicon. This variable will be made buffer-local. (defvar w3m-modeline-favicon nil (#$ . 79713)) #@68 Favicon image of the page. This variable will be made buffer-local (defvar w3m-favicon-image nil (#$ . 79850)) #@156 List of external processes running in the buffer. Mainly used for a flag to say whether an external process runs. This variable will be made buffer-local. (defvar w3m-current-process nil (#$ . 79968)) (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 (#$ . 80226)) (make-variable-buffer-local 'w3m-refresh-timer) #@74 List of mail user agents that `w3m-mail' supports. See also w3m-mail.el. (defvar w3m-mail-user-agents '(gnus-user-agent message-user-agent mew-user-agent vm-user-agent wl-user-agent) (#$ . 80494)) #@70 URL specified by tag in element of the page source. (defvar w3m-current-base-url nil (#$ . 80697)) #@68 Variable used to keep forms data for the current emacs-w3m buffer. (defvar w3m-current-forms nil (#$ . 80819)) #@64 Coding system used when decoding the current emacs-w3m buffer. (defvar w3m-current-coding-system nil (#$ . 80936)) #@70 Content charset of the page specified by the server or the META tag. (defvar w3m-current-content-charset nil (#$ . 81057)) #@49 Title of a page visiting in the current buffer. (defvar w3m-current-title nil (#$ . 81186)) #@49 A url of a page visiting in the current buffer. (defvar w3m-current-url nil (#$ . 81284)) #@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 (#$ . 81381)) #@58 URL as the next document in the author-defined sequence. (defvar w3m-next-url nil (#$ . 81553)) #@62 URL as the previous document in the author-defined sequence. (defvar w3m-previous-url nil (#$ . 81655)) #@59 URL as the first document in the author-defined sequence. (defvar w3m-start-url nil (#$ . 81765)) #@52 URL as the table of contents for the current page. (defvar w3m-contents-url nil (#$ . 81869)) #@73 Cons of number of seconds and a url specified by the REFRESH attribute. (defvar w3m-current-refresh nil (#$ . 81969)) #@63 SSL certification indicator for the current emacs-w3m buffer. (defvar w3m-current-ssl nil (#$ . 82093)) #@65 List of the points of where `w3m-search-name-anchor' come from. (defvar w3m-name-anchor-from-hist nil (#$ . 82203)) (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-current-refresh w3m-current-ssl w3m-name-anchor-from-hist] 2) #@114 Variable that keeps the last window width of the w3m-mode window. `w3m-redisplay-pages-automatically' uses this. (defvar w3m-last-window-width nil (#$ . 82818)) (make-variable-buffer-local 'w3m-last-window-width) (defalias 'w3m-clear-local-variables #[0 "\306\211\306\211\306\211\306\211\306\211 \n\306\211 \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-current-refresh w3m-current-ssl w3m-name-anchor-from-hist] 3]) #@20 (fn FROM-BUFFER) (defalias 'w3m-copy-local-variables #[257 "\306\211\211\211\211\211\211\211\211\211\211\211r\fq\210\262\f \262 \n\262\n \262 \f\262 \262\262\262 \262\n\262 \262\f\262) \n  \n \211\211\f\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-current-refresh w3m-current-ssl] 15 (#$ . 83419)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-verbose funcall function #[0 "\300\207" [nil] 1] "If non-nil, `w3m-message' will log echo messages in *Messages* buffer.\nEcho messages will be displayed no matter what this variable is unless\n`w3m-message-silent' is not temprarily bound to a non-nil value." :group w3m :type boolean] 8) #@611 Regexp matching urls which are considered to be safe. The nil value means all urls are considered to be safe. Note: The value, that might be bound to a certain value while rendering contents, will be held by the `w3m-safe-url-regexp' text property that is set over the rendered contents in a buffer. So, programs that use the value to test whether a url of a link in a buffer is safe should use the value of the text property, not the value of this variable. See the function definitions of `w3m-toggle-inline-image', `w3m-toggle-inline-images', `w3m-safe-view-this-url', and `w3m-mouse-safe-view-this-url'. (defvar w3m-safe-url-regexp nil (#$ . 84306)) (defvar w3m-current-buffer nil) (defvar w3m-input-url-history nil) #@62 A buffer that keeps the caches of the web contents in order. (defvar w3m-cache-buffer nil (#$ . 85035)) #@177 An alist of url and pointer in cached order. The pointer is a cons of beg and end markers in `w3m-cache-buffer'. This variable will be made buffer-local in `w3m-cache-buffer'. (defvar w3m-cache-articles nil (#$ . 85146)) #@56 Hash table used to cache headers associated with urls. (defvar w3m-cache-hashtb nil (#$ . 85373)) #@29 Alist of HTTP status codes. (defvar w3m-http-status-alist '((400 . "Bad Request") (401 . "Unauthorized") (402 . "Payment Required") (403 . "Forbidden") (404 . "Not Found") (405 . "Method Not Allowed") (406 . "Not Acceptable") (407 . "Proxy Authentication Required") (408 . "Request Time-out") (409 . "Conflict") (410 . "Gone") (411 . "Length Required") (412 . "Precondition Failed") (413 . "Request Entity Too Large") (414 . "Request-URI Too Large") (415 . "Unsupported Media Type") (500 . "Internal Server Error") (501 . "Not Implemented") (502 . "Bad Gateway") (503 . "Service Unavailable") (504 . "Gateway Time-out") (505 . "HTTP Version not supported")) (#$ . 85477)) (defvar w3m-http-status nil) #@357 Hash table, the arrived URLs database. The name of each symbol represents a url, the arrival time in the Emacs style (a list of three integers) is stored as the value, and informations including a title, a modification time, a content charset and a content type are stored as the properties of the symbol. The nil value means it has not been initialized. (defvar w3m-arrived-db nil (#$ . 86185)) #@64 Hook functions run after setting up the arrived URLs database. (defvar w3m-arrived-setup-functions nil (#$ . 86588)) #@60 Hook functions run after saving the arrived URLs database. (defvar w3m-arrived-shutdown-functions nil (#$ . 86711)) #@274 Alist of content types and image types defined as the Emacs features. The content types not listed in this variable, like image/webp, might be able to display if image-converter.el and some converter program are available, or ImageMagick is built-in in Emacs or installed. (defvar w3m-image-type-alist (byte-code "\301\300!\205\f\302\303\304!\"\211\205'\302\305\306\307\"\310>\205\311\244\312>\205%\313\244\"\207" [image-types boundp delq imagemagick copy-sequence nil mapcar #[257 "\300\301\"B\207" [format "image/%s"] 4 "\n\n(fn TYPE)"] xbm (("image/x-xbm" . xbm)) xpm (("image/x-xpm" . xpm))] 6) (#$ . 86834)) #@49 List of prefix strings for the toolbar buttons. (defconst w3m-toolbar-buttons '("back" "parent" "forward" "reload" "open" "home" "search" "image" "copy" "weather" "antenna" "save" "history" "db-history") (#$ . 87464)) #@35 Toolbar definition for emacs-w3m. (defconst w3m-toolbar (byte-code "\301\232\203#\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320$\321BBBBBBBBBBB\207\322\207" [w3m-language "Japanese" [w3m-toolbar-back-icon w3m-view-previous-page (w3m-history-previous-link-available-p) "前のページに戻る"] [w3m-toolbar-parent-icon w3m-view-parent-page (w3m-parent-page-available-p) "上のディレクトリへ移動する"] [w3m-toolbar-forward-icon w3m-view-next-page (w3m-history-next-link-available-p) "次のページに進む"] [w3m-toolbar-reload-icon w3m-reload-this-page w3m-current-url "サーバからページをもう一度読み込む"] [w3m-toolbar-open-icon w3m-goto-url t "URL を入力してページを開く"] [w3m-toolbar-home-icon w3m-gohome w3m-home-page "ホームページへジャンプ"] [w3m-toolbar-search-icon w3m-search t "インターネット上を検索"] [w3m-toolbar-image-icon w3m-toggle-inline-images t "画像の表示をトグルする"] [w3m-toolbar-copy-icon w3m-copy-buffer t "このセッションのコピーを作る"] [w3m-toolbar-weather-icon w3m-weather t "天気予報を見る"] vector w3m-toolbar-antenna-icon w3m-antenna t "アンテナで受信する" ([w3m-toolbar-save-icon w3m-save-buffer (w3m-url-savable-p) "セーブ..."] [w3m-toolbar-history-icon w3m-history t "ヒストリー"] [w3m-toolbar-db-history-icon w3m-db-history t "過去に訪問した URL の履歴を見る"]) ([w3m-toolbar-back-icon w3m-view-previous-page (w3m-history-previous-link-available-p) "Back to Previous Page"] [w3m-toolbar-parent-icon w3m-view-parent-page (w3m-parent-page-available-p) "View the parent page"] [w3m-toolbar-forward-icon w3m-view-next-page (w3m-history-next-link-available-p) "Forward to Next Page"] [w3m-toolbar-reload-icon w3m-reload-this-page w3m-current-url "Reload This Page"] [w3m-toolbar-open-icon w3m-goto-url t "Go to..."] [w3m-toolbar-home-icon w3m-gohome w3m-home-page "Go to Home Page"] [w3m-toolbar-search-icon w3m-search t "Search the Internet"] [w3m-toolbar-image-icon w3m-toggle-inline-images t "Toggle Images"] [w3m-toolbar-copy-icon w3m-copy-buffer t "Make a Copy of This Session"] [w3m-toolbar-weather-icon w3m-weather t "Weather Forecast"] [w3m-toolbar-antenna-icon w3m-antenna t "Investigate with Antenna"] [w3m-toolbar-save-icon w3m-save-buffer (w3m-url-savable-p) "Save to..."] [w3m-toolbar-history-icon w3m-history t "History"] [w3m-toolbar-db-history-icon w3m-db-history t "View Arrived URLs"])] 15) (#$ . 87688)) #@35 Menubar definition for emacs-w3m. (defconst w3m-menubar (byte-code "\205\301\302\303\304\305\306\307\"\310B\"\303\304\305\311\312\"\313B\"\303\304\305\314\315\"\316B\"\303\304\305\317\320\"\321B\"\322\303\304\305\323\324\"\325B\"\303\304\305\326\327\"\330B\"\303\304\305\331\332\"\333B\"\322\303\304\305\334\335\"\336B\"\303\304\305\337\340\"\341B\"\303\304\305\342\343\"\344B\"\322\305\345\346\"\303\304\305\347\350\"\351B\"\303\304\305\352\353\"\354B\"\322\303\304\305\355\356\"\357B\"\303\304\305\360\361\"\362B\"\303\304\305\363\364\"\365B\"\322\303\304\305\366\367\"\370B\"\303\304\305\371\372\"\373B\"\303\304\305\374\375\"\376B\"\303\304\305\377\201@\"\201AB\"\257\f\303\304\305\201B\201C\"\201DB\"\305\201E\201F\"\303\304\305\201G\201H\"\201IB\"\303\304\305\201J\201K\"\201LB\"E\303\304\305\201M\201N\"\201OB\"\322\305\201P\201Q\"\303\304\305\201R\201S\"\201TB\"\303\304\305\201U\201V\"\201WB\"E\303\304\305\201X\201Y\"\201ZB\"\303\304\305\201[\201\\\"\201]B\"\303\304\305\201^\201_\"\201`B\"\303\304\305\201aP\201b\"\201cB\"\305\201d\201e\"\303\304\305\201f\201g\"\201hB\"\303\304\305\201i\201j\"\201kB\"\303\304\305\201l\201m\"\201nB\"F\322\303\304\305\201o\201p\"\201qB\"\322\303\304\305\201r\201s\"\201tB\"\322\303\304\305\201u\201v\"\201wB\"\303\304\305\201x\201y\"\201zB\"\303\304\305\201{\201|\"\201}B\"\257!\207" [w3m-use-japanese-menu "ア" "w3m" apply vector w3m-make-menu-item "この URL を新しいセッションで開く" "Open This URL in a new session" (w3m-view-this-url-new-session (or (w3m-anchor) (w3m-image))) "この URL をダウンロードする" "Download This URL" (w3m-download-this-url (or (w3m-anchor) (w3m-image))) "ダウンロード..." "Download to..." (w3m-download t) "この URL をセーブする..." "Save to..." (w3m-save-buffer (w3m-url-savable-p)) "----" "前のページに戻る" "Back to Previous Page" (w3m-view-previous-page (w3m-history-previous-link-available-p)) "次のページに移動する" "Forward to Next Page" (w3m-view-next-page (w3m-history-next-link-available-p)) "上の階層に移動する" "Up to Parent Page" (w3m-view-parent-page (w3m-parent-page-available-p)) "現在のページを browse-url で開く" "Open The Current Page using browse-url" (w3m-view-url-with-browse-url w3m-current-url) "このリンクを browse-url で開く" "Open This Link using browse-url" (w3m-view-url-with-browse-url (or (w3m-anchor) (w3m-image))) "このページのソースをコマンドに送る..." "Pipe Page Source to Command..." (w3m-pipe-source w3m-current-url) "再表示" "Redisplay" "このページを再取得する" "Reload This Page" (w3m-reload-this-page w3m-current-url) "すべてのページを再取得する" "Reload All Pages" (w3m-reload-all-pages (cdr (w3m-list-buffers))) "画像表示の切替(全部)" "Toggle Images" (w3m-toggle-inline-images (display-images-p)) "画像表示の切替(この画像)" "Toggle This Image" (w3m-toggle-inline-image (w3m-image)) "画像表示を止める" "Turn off Images" (w3m-turnoff-inline-images (display-images-p)) "再描画する" "Redisplay This Page" (w3m-redisplay-this-page w3m-current-url) "Charset を指定して再描画する" "Redisplay This Page with Charset" (w3m-redisplay-with-charset w3m-current-url) "Content-type を指定して再描画する" "Redisplay This Page with Content-type" (w3m-redisplay-with-content-type w3m-current-url) "指定した Charset と Content-type を破棄する" "Reset Charset and Content-type" (w3m-redisplay-and-reset w3m-current-url) "ホームページへ移動" "Go to Home Page" (w3m-gohome w3m-home-page) "ブックマーク" "Bookmark" "ブックマークを表示" "View Bookmark" (w3m-bookmark-view t) "新しいセッションでブックマークを表示" "View Bookmark in a New Session" (w3m-bookmark-view-new-session t) "移動..." "Go to..." (w3m-goto-url t) "履歴" "History" "木構造で履歴を表示" "Show a Visited URLs Tree" (w3m-history t) "リストで履歴を表示" "Show an Arrived URLs List" (w3m-db-history t) "インターネットでの検索..." "Search the Internet..." (w3m-search t) "新しいセッションで検索..." "Search the Internet in a New Session..." (w3m-search-new-session t) "天気予報" "Weather Forecast" (w3m-weather t) "ンテナで取得" "Investigate with Antenna" (w3m-antenna t) "ヘルプ" "Resource" "プロセスを中止する" "Cancel Process" (w3m-process-stop w3m-current-process) "ソースを見る" "View Source" (w3m-view-source t) "ヘッダーを見る" "View Header" (w3m-view-header t) "このページをメールで送る" "Mail this page" (w3m-mail (memq mail-user-agent w3m-mail-user-agents)) "バグレポートを送る" "Send a Bug Report" (report-emacs-w3m-bug t) "この URL を表示する" "Print the Current URL" (w3m-print-current-url t) "w3m を閉じる" "Close w3m" (w3m-close-window t) "w3m を終了する" "Quit w3m" (w3m-quit t)] 38) (#$ . 90192)) #@44 *Menubar for click the right mouse button. (defvar w3m-rmouse-menubar (byte-code "\300\301\302\303\304\305\"\306B\"\301\302\303\307\310\"\311B\"\301\302\303\312\313\"\314B\"\315\301\302\303\316\317\"\320B\"\301\302\303\321\322\"\323B\"\301\302\303\324\325\"\326B\"\257\207" ["w3m" apply vector w3m-make-menu-item "前のページに戻る" "Back to Previous Page" (w3m-view-previous-page (w3m-history-previous-link-available-p)) "次のページに移動する" "Forward to Next Page" (w3m-view-next-page (w3m-history-next-link-available-p)) "上の階層に移動する" "Up to Parent Page" (w3m-view-parent-page (w3m-parent-page-available-p)) "----" "このページを再取得する" "Reload This Page" (w3m-reload-this-page w3m-current-url) "すべてのページを再取得する" "Reload All Pages" (w3m-reload-all-pages (cdr (w3m-list-buffers))) "プロセスを中止する" "Cancel Process" (w3m-process-stop w3m-current-process)] 12) (#$ . -95190)) (defvar w3m-cid-retrieve-function-alist nil) (defvar w3m-force-redisplay t) (defvar w3m-work-buffer-list nil) (defconst w3m-work-buffer-name " *w3m-work*") (defconst w3m-select-buffer-name " *w3m buffers*") #@58 Arguments passed to the w3m command to run "dump_extra". (defconst w3m-dump-head-source-command-arguments (byte-code "\301=\203 \302C\207\303\304D\207" [w3m-type w3mmee "-dump=extra,head,source" (if w3m-accept-languages '("-o" (concat "accept_language=" (mapconcat 'identity w3m-accept-languages ",")))) "-dump_extra"] 2) (#$ . 96365)) #@111 Alternative w3m command used to run "halfdump". If it is nil, the command specified to `w3m-command' is used. (defvar w3m-halfdump-command nil (#$ . 96710)) #@56 Arguments passed to the w3m command to run "halfdump". (defconst w3m-halfdump-command-arguments (byte-code "\301=\203\f\302\303\304\305F\207\306\304\307\304\310\304\311\304\312\304\313\314\315\316\257\207" [w3m-type w3mmee (if w3m-treat-image-size "-dump=half-buffer,single-row-image" "-dump=half-buffer") (if (eq w3m-input-coding-system 'ctext) (list "-I" "x-ctext") (when (and (eq w3m-input-coding-system 'binary) charset) (list "-I" 'charset))) "-o" "concurrent=0" "-halfdump" "ext_halfdump=1" "strict_iso2022=0" "fix_width_conv=1" "use_jisx0201=0" "ucs_conv=1" (if (eq w3m-input-coding-system 'binary) (if charset (list "-I" 'charset)) (list "-I" (cond ((eq w3m-input-coding-system 'utf-8) "UTF-8") ((eq w3m-input-coding-system 'iso-8859-1) "ISO-8859-1") (t "ISO-2022-JP-2")))) "-O" (cond ((eq w3m-output-coding-system 'utf-8) "UTF-8") ((eq w3m-output-coding-system 'iso-8859-1) "ISO-8859-1") (t "ISO-2022-JP-2"))] 14) (#$ . 96873)) #@73 Arguments used in common by the w3m command variants to run "halfdump". (defconst w3m-halfdump-command-common-arguments (list "-T" "text/html" "-t" tab-width "-cols" '(w3m-display-width) '(cond ((and (eq w3m-display-ins-del 'fontify) (display-graphic-p)) (list "-o" "display_ins_del=2")) ((or (eq w3m-display-ins-del 'tag) (and (eq w3m-display-ins-del 'fontify) (not (display-graphic-p)))) (list "-o" "display_ins_del=1")))) (#$ . 97819)) #@72 Regexp matching urls which aren't stored in the arrived URLs database. (defconst w3m-arrived-ignored-regexp "\\`about:\\(?://\\(?:header\\|source\\|history\\|db-history\\|antenna\\|namazu\\|dtree\\)/.*\\)?\\'\\|\\`about:/*blank/?\\'" (#$ . 98264)) #@58 Regexp matching urls which aren't stored in the history. (defconst w3m-history-ignored-regexp "\\`about:\\(?://\\(?:header\\|source\\|history\\|db-history\\|antenna\\|namazu\\|dtree\\)/.*\\)?\\'\\|\\`about:/*blank/?\\'" (#$ . 98518)) #@31 Keymap for emacs-w3m buffers. (defvar w3m-mode-map nil (#$ . 98758)) #@192 *Keymap that overrides the default keymap when `w3m-input-url' runs. By default SPC and "?" are bound to `self-insert-command' since those are common url characters. Use TAB for completion. (defvar w3m-url-completion-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\207" [make-sparse-keymap define-key " " self-insert-command "?"] 5) (#$ . -98834)) #@23 Keymap used on links. (defvar w3m-link-map nil (#$ . 99199)) #@107 Keymap used in `doc-view-mode' that emacs-w3m launches. `doc-view-mode-map' gets to be its parent keymap. (defvar w3m-doc-view-map nil (#$ . 99267)) #@53 Hook functions run after setting up the `w3m-mode'. (defvar w3m-mode-setup-functions nil (#$ . 99422)) #@191 Hook functions run after displaying pages in emacs-w3m buffers. Each function is called with a url string as the argument. This hook is evaluated just before evaluating `w3m-display-hook'. (defvar w3m-display-functions nil (#$ . 99532)) #@149 *Hook run after loading the w3m.elc module. It is not recommended that you use this hook instead of writing into `w3m-init-file' for customization. (defvar w3m-load-hook nil (#$ . -99777)) #@350 Return the file name which is pointed to by URL. When URL does not point to any local files, it returns nil. The actual performance of this function is to strip off the scheme part and the net_loc part from URL. It is meaningless to give an argument whose net_loc part is not empty, a null string or the localhost name to this function. (fn URL) (defalias 'w3m-url-to-file-name #[257 "\304\305\"\203\212\211\306\225\307O\262\310\224\203O\310\225\311W\203O\304\312\"\203O\313\314\315\"!\204O\304\316\317\320 !\321Q\"\203A\211\306\225\307O\262\202O\211\315\306\225O\322\306\225\307OQ\262\203n\304\323\"\203n\314\306\"\206e\314\310\"\324\315\225\307OQ\262\304\325\"\203v\207\326!\203}\207\327 \"\326!\203\210\207\207\304\330\"\203\222\207\3312\326\n\211\205\323\211@\304\332\317\333@!!P\"\203\314\334\315\225\307OA\"\326!\204\306\326\327 \"\211\262!\203\313\335\331\"\210\210A\266\202\202\227\2620\206\304\336\"\205\314\306\"\307 \203\371\326\334 \"\211\262!\203\371\211\206\326!\203\334!\206\326\334\337\"\211\262!\205\211\266\202\207" [w3m-treat-drive-letter w3m-file-name-coding-system w3m-url-local-directory-alist w3m-default-directory string-match "\\`\\(\\(file:/\\{0,2\\}\\)\\|about://dtree\\)/" 1 nil 2 7 "\\`\\(/[^/]+[^/:|]\\)/" file-directory-p match-string 0 "\\`/\\(localhost\\|127\\.0\\.0\\.1\\|" regexp-quote system-name "\\)/" ":" "\\`/\\(?:\\([a-zA-Z]\\)[|:]?\\|cygdrive/\\([a-zA-Z]\\)\\)/" ":/" "\\`/[^/:]\\{2,\\}:/" file-exists-p w3m-url-decode-string "\\`\\(?:[~/]\\|[a-zA-Z]:/\\|\\.\\.?/\\)" found-file "\\`" file-name-as-directory expand-file-name throw "\\`file:\\([^/].+\\)\\'" "~"] 8 (#$ . 99973)]) #@224 Return a url string which points to the FILE. Optional DIRECTORY is a directory to start with if FILE is relative (i.e., FILE doesn't start with slash). It defaults to the current directory. (fn FILE &optional DIRECTORY) (defalias 'w3m-expand-file-name-as-url #[513 "\301\"\262\302\303\304\"\203&\305\203\306\202\307\310\311\"\312\225\313O#\202'P\207" [w3m-use-cygdrive expand-file-name "file://" string-match "\\`\\([a-zA-Z]\\):" format "/cygdrive/%s%s" "/%s|%s" match-string 1 0 nil] 9 (#$ . 101676)]) #@306 Look up URL in hash table `w3m-arrived-db' and return its symbol. If SOFT is nil, create a key for URL in `w3m-arrived-db' if not exists. If SOFT is non-nil, return nil if URL is not found in `w3m-arrived-db'. In `w3m-arrived-db' URL is normalized so as not to have the last `/'. (fn URL &optional SOFT) (defalias 'w3m-arrived-intern '(macro . #[513 "\300\301D\302B\303BB\304\305\306BB:\204\203\307C\"\207:\204-\204-\307C\"\207\307\310FC\"\207" [let* url ((len (length url))) ((if (and (not (zerop len)) (eq (aref url (1- len)) 47)) (setq url (substring url 0 -1)))) (gethash url w3m-arrived-db) or ((puthash url (make-symbol url) w3m-arrived-db)) append if] 11 (#$ . 102204)])) #@226 Add URL to the arrived URLs database. Optional TITLE, MODIFICATION-TIME, ARRIVAL-TIME, CONTENT-CHARSET and CONTENT-TYPE are also be added. (fn URL &optional TITLE MODIFICATION-TIME ARRIVAL-TIME CONTENT-CHARSET CONTENT-TYPE) (defalias 'w3m-arrived-add #[1537 "\302\"?\205\211G\211\303U\204!SH\304=\203!\303\305O\262\306 \"\206/\307\310! #\266\202\302\311\"\203P\312\303\313\225O&\210\202z\203[\314\315#\210\203f\314\316#\210\203p\314\317#\210\203z\314\320#\210\211L\262\207" [w3m-arrived-ignored-regexp w3m-arrived-db string-match 0 47 -1 gethash puthash make-symbol "\\`\\([^#]+\\)#" w3m-arrived-add 1 put title last-modified content-charset content-type] 14 (#$ . 102912)]) #@56 Return non-nil if a page of URL has arrived. (fn URL) (defalias 'w3m-arrived-p #[257 "\302\"\206%\211\211G\211\303U\204SH\304=\203\303\305O\262\306 \"\266\202\207" [w3m-arrived-ignored-regexp w3m-arrived-db string-match 0 47 -1 gethash] 6 (#$ . 103647)]) #@93 Return the arrival time of a page of URL if it has arrived. Otherwise return nil. (fn URL) (defalias 'w3m-arrived-time #[257 "\211\211G\211\301U\204SH\302=\203\301\303O\262\304\"\266\202\211\205$\211J\207" [w3m-arrived-db 0 47 -1 gethash] 6 (#$ . 103921)]) (byte-code "\300\301\302\303#\300\207" [function-put w3m-arrived-time gv-expander #[385 "\300\301\302$\207" [gv--defsetter w3m-arrived-time #[514 "\300\301\211\257\207" [w3m-arrived-add nil] 7 "\n\n(fn ARRIVED-TIME URL)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4) #@179 Store VALUE in the arrived URLs database as the PROPERTY of URL. Return VALUE if a page of URL has arrived. Otherwise, VALUE is ignored and return nil. (fn URL PROPERTY VALUE) (defalias 'w3m-arrived-put #[771 "\211G\211\301U\204SH\302=\203\301\303O\262\304\"\266\202\211\205'\305#\207" [w3m-arrived-db 0 47 -1 gethash put] 8 (#$ . 104457)]) #@138 Return the value of URL's PROPERTY stored in the arrived URLs database. If a page of URL has not arrived, return nil. (fn URL PROPERTY) (defalias 'w3m-arrived-get #[514 "\211G\211\301U\204SH\302=\203\301\303O\262\304\"\266\202\211\205%\211N\207" [w3m-arrived-db 0 47 -1 gethash] 7 (#$ . 104822)]) (byte-code "\300\301\302\303#\300\207" [function-put w3m-arrived-get gv-expander #[385 "\300\301\302$\207" [gv--defsetter w3m-arrived-get #[385 "\300\301C\"B\207" [w3m-arrived-put append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"]] 4) #@79 Return the title of URL having stored in the arrived URLs database. (fn URL) (defalias 'w3m-arrived-title '(macro . #[257 "\300\301BB\207" [w3m-arrived-get ('title)] 4 (#$ . 105393)])) #@132 Return the mod time of URL having stored in the arrived URLs database. If a page of URL has not arrived yet, return nil. (fn URL) (defalias 'w3m-arrived-last-modified '(macro . #[257 "\300\301BB\207" [w3m-arrived-get ('last-modified)] 4 (#$ . 105587)])) #@161 Return the content charset of URL stored in the arrived URLs database. If it has not been specified or a page of URL has not arrived yet, return nil. (fn URL) (defalias 'w3m-arrived-content-charset '(macro . #[257 "\300\301BB\207" [w3m-arrived-get ('content-charset)] 4 (#$ . 105850)])) #@158 Return the content type of URL stored in the arrived URLs database. If it has not been specified or a page of URL has not arrived yet, return nil. (fn URL) (defalias 'w3m-arrived-content-type '(macro . #[257 "\300\301BB\207" [w3m-arrived-get ('content-type)] 4 (#$ . 106146)])) #@143 Load the arrived URLs database file. The file is specified by `w3m-arrived-file'. If the data is in old format, they will simply be ignored. (defalias 'w3m-arrived-load-list #[0 "\301!\211@;\204\211@G\302X\203\303\262\304!\203\305!\210\207" [w3m-arrived-file w3m-load-list 4 nil file-exists-p delete-file] 3 (#$ . 106433)]) #@239 Load the arrived URLs database file and set up the hashed database. It is performed only when `w3m-arrived-db' has not been initialize yet. The file is specified by `w3m-arrived-file'. This function also sets up `w3m-input-url-history'. (defalias 'w3m-arrived-setup #[0 "?\205\221\302\303\304\"\305 \211\211\203N\211@\3068\203G\307\310\311@\"\203)\312@!\202+@A@\3138\3068\3148;\205@\3148\3158&\210A\266\202\202 \210 \204\215\316\317 \211\203\203\211@\211A\211\203{\211@\211@B\262\320\321\322A#B\262A\266\202\202^\210A\266\202\202V\210\323\324\"\244\262\210\325\326!\207" [w3m-arrived-db w3m-input-url-history make-hash-table :test equal w3m-arrived-load-list 3 w3m-arrived-add string-match "\\`/" w3m-expand-file-name-as-url 2 4 5 nil w3m-bookmark-iterator replace-regexp-in-string "\\`[ ]+" "" mapcar car run-hooks w3m-arrived-setup-functions] 11 (#$ . 106775)]) #@151 Save the arrived URLs database in the file. The database `w3m-arrived-db' will be cleared after saving. The file is specified by `w3m-arrived-file'. (defalias 'w3m-arrived-shutdown #[0 "\205z\3031r\304 \211\203Q\211@\305\3068\307@!\"\203J\310\311\312@\"\203,\313@!\202.@A@\3148\3068\3158;\205C\3158\3168&\210A\266\202\202\n\210\317C\320\321\322\"\"\210\323 \324\325\242\326\"\n\"\317\327$\266\317\330\331!0\207\332\333\334!\"\262\207" [w3m-arrived-db w3m-arrived-file w3m-keep-arrived-urls (error) w3m-arrived-load-list w3m-time-newer-p 3 w3m-arrived-time w3m-arrived-add string-match "\\`/" w3m-expand-file-name-as-url 2 4 5 nil maphash make-closure #[514 "\211\205(\301!\205(\211J\205(\300\302!\303N\304NJ\305N\306N\257\300\242B\240\207" [V0 boundp symbol-name title last-modified content-charset content-type] 10 "\n\n(fn KEY SYM)"] w3m-save-list w3m-sub-list sort #[514 "\3008\3008\232\203@@\231\207\301\3008\3008\"\207" [3 w3m-time-newer-p] 6 "\n\n(fn A B)"] t run-hooks w3m-arrived-shutdown-functions message "Error while running w3m-arrived-shutdown: %s" error-message-string] 10 (#$ . 107688)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook kill-emacs-hook w3m-arrived-shutdown w3m-arrived-shutdown-functions w3m-cleanup-temp-files] 3) #@406 Return a list of attributes corresponding to URL. Return nil if it failed in retrieving of the header. Otherwise, return a list which includes the following elements: 0. Type of contents. 1. Charset of contents. 2. Size in bytes. 3. Encoding of contents. 4. Last modification time. 5. Real URL. If the optional argument NO-CACHE is non-nil, cache is not used. (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-attributes #[769 "C\204\224\3061\221\307\310\311\312!\211\313M\210\211C\314\242#\262\262\315!\203\213\3161K\310\211\317\307\"\210\320A\321H \"?\205E\322\303C\"*0\210\202Q\322\"\266\323A\321H\324\307#\210\3252\206A\326H\211\203~\211@\321H>\203w\327\325\326H\"\210A\266\202\202b\210\322\330\331B\"0\262\202\")\266\2030\207\210\310\207\211\332\242!\240\210\211\242\333\230\203\257\334\310\211\211\211\242\242\257\207\335\336\242\"\203\360\211\242\337\225\310O\340\341\"\211B\314#\262\315!\203\333\203\327\207\317!\207\315!\211\262!\203\357\203\353\207\317!\207\207\335\342\242\"\203\343\f\310\211\211\242\257\207\335\344\242\"\203qp\345\3461!!p\340\347#\340\350#BBrq\210\351\242\310\211#)\262\315!\203F\203@\211\202k\317!\202k\315rB!\262)\211\262!\203h\203b\211\202k\317!\202k!\262\266\204)\207\335\352\242\"\203\340p\345\3461!!p\340\353#\340\354#BBrq\210\355\242\310\211#)\262\315!\203\265\203\257\211\202\332\317!\202\332\315rB!\262)\211\262!\203\327\203\321\211\202\332\317!\202\332!\262\266\204)\207\356\242!\203\354\357\242!\207\360\242#\207" [w3m-process-waited inhibit-quit w3m-process-inhibit-quit w3m-process-timeout w3m-coding-system w3m-current-buffer (w3m-process-timeout) t nil make-symbol "wait-function" identity w3m-attributes w3m-process-p (quit) w3m-process-start-process w3m-process-wait-process 2 w3m-process-error-handler w3m-process-sentinel "finished\n" result 3 throw error "Can't find wait handler" w3m-url-strip-fragment "about://emacs-w3m.gif" "image/gif" string-match "\\`about://source/" 0 make-closure #[257 "\301\302\303\300!\304\"\206 A@\3058\3068\3078\310\3118P\257\207" [V0 "text/plain" w3m-arrived-get w3m-url-strip-authinfo content-charset 2 3 4 "about://source/" 5] 9 "\n\n(fn ATTRS)"] "\\`about:" "text/html" "\\`cid:" w3m-get-buffer-create generate-new-buffer-name #[257 "\302\301!\203 \301q\210\211\303\211\211\211\300\242\300\242\257\207" [V0 V1 buffer-name nil] 8 "\n\n(fn TYPE)"] #[257 "\302\300!\210\303\301!\203 \301q\210\207" [V0 V1 w3m-kill-buffer buffer-name] 3 "\n\n(fn TYPE)"] w3m-cid-retrieve "\\`data:" #[257 "\302\301!\203 \301q\210\211\303\211\211\211\300\242\300\242\257\207" [V0 V1 buffer-name nil] 8 "\n\n(fn TYPE)"] #[257 "\302\300!\210\303\301!\203 \301q\210\207" [V0 V1 w3m-kill-buffer buffer-name] 3 "\n\n(fn TYPE)"] w3m-data-retrieve w3m-url-local-p w3m-local-attributes w3m-w3m-attributes w3m-work-buffer-name] 13 (#$ . 109006)]) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-content-type '(macro . #[769 "\211\203\300\301DC\302\303\304\305BBBD\306BBE\207\307\304ED\207" [let handler w3m-process-do attrs w3m-attributes (handler) ((car attrs)) car] 11 (#$ . 111995)])) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-content-charset '(macro . #[769 "\211\203\300\301DC\302\303\304\305BBBD\306BBE\207\307\310\304EE\207" [let handler w3m-process-do attrs w3m-attributes (handler) ((nth 1 attrs)) nth 1] 11 (#$ . 112256)])) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-content-length '(macro . #[769 "\211\203\300\301DC\302\303\304\305BBBD\306BBE\207\307\310\304EE\207" [let handler w3m-process-do attrs w3m-attributes (handler) ((nth 2 attrs)) nth 2] 11 (#$ . 112528)])) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-content-encoding '(macro . #[769 "\211\203\300\301DC\302\303\304\305BBBD\306BBE\207\307\310\304EE\207" [let handler w3m-process-do attrs w3m-attributes (handler) ((nth 3 attrs)) nth 3] 11 (#$ . 112799)])) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-last-modified '(macro . #[769 "\211\203\300\301DC\302\303\304\305BBBD\306BBE\207\307\310\304EE\207" [let handler w3m-process-do attrs w3m-attributes (handler) ((nth 4 attrs)) nth 4] 11 (#$ . 113072)])) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-real-url-1 '(macro . #[769 "\211\203\300\301DC\302\303\304\305BBBD\306BBE\207\307\310\304EE\207" [let handler w3m-process-do attrs w3m-attributes (handler) ((nth 5 attrs)) nth 5] 11 (#$ . 113342)])) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-real-url #[769 "\3021,\303 \"\304\224\203(\304\224\304\225W\203(\304\224H\305=\203(\306\307\310 \311\"!\2100\2020\210\312!)\210\313\304\"\314\211B\315#\262\316!\203X\203R\211\202r\317!\202r\316!\211\262!\203q\203k\211\202r\317!\202r\211\262\262\262\211\3021\244\303 \"\304\224\203\240\304\224\304\225W\203\240\304\224H\305=\203\240\306\307\310 \311\"!\2100\202\250\210\312!)\210\320\224\203\260\207\203\271\211\321Q\207\207" [string w3m-url-components-regexp (error) string-match 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 match-string #[257 "\3008\207" [5] 3 "\n\n(fn ATTRS)"] w3m-attributes w3m-process-p w3m-process-start-process 8 "#"] 11 (#$ . 113609)]) #@252 Make a function returning a string used for the `help-echo' message. PROPERTY is a symbol (which doesn't need to be quoted) of a text property with the value of a string which should be in the place where having to show a help message. (fn PROPERTY) (defalias 'w3m-make-help-echo '(macro . #[257 "\300\301\302\303\304\305\306\307\310\311\312 D\313BBBDDD\314BBEE\207" [lambda (window _object pos) if w3m-track-mouse let (deactivate-mark nil) msg w3m-url-readable-string get-text-property pos quote ((window-buffer window)) ((message nil) (if (memq this-command '(backward-button forward-button)) (truncate-string-to-width (subst-char-in-string 10 32 msg) (window-width)) msg))] 13 (#$ . 114413)])) #@67 The string currently displayed by `w3m-message' in the echo area. (defvar w3m-current-message nil (#$ . 115118)) #@53 If bound to non-nil, `w3m-message' will do nothing. (defvar w3m-message-silent nil (#$ . 115237)) #@505 Display a message at the bottom of the screen. This function works like `message' if `w3m-verbose' is non-nil. In that case, the message also goes into the "*Messages*" buffer if `message-log-max' is non-nil. But if `w3m-verbose' is nil, this function only displays the message, does not log the message into the "*Messages*" buffer (no matter what `message-log-max' is). If `w3m-message-silent' is temporarily bound to non-nil, this function does neither display nor log the message. (fn &rest ARGS) (defalias 'w3m-message #[128 "\305\306 \206\307!\310 W\204\311\312!\210?\205E \203 \313\311\"\207\n\203<\314\315 !\2047\306 \203<\306 \232\204<\313\316\"\207\312\313\311\"\211)\207" [w3m-message-silent w3m-verbose w3m-process-background w3m-current-message message-log-max string-width current-message "" window-width message nil apply window-minibuffer-p selected-window format] 4 (#$ . 115342)]) #@75 Parse the time-string STRING into a time in the Emacs style. (fn STRING) (defalias 'w3m-time-parse-string #[257 "\3001'\301\302\211#\303\304H\305H\306H\307H\310H\311H\312H&\2620\207\210\302\207" [(error) timezone-fix-time nil encode-time 5 4 3 2 1 0 6] 11 (#$ . 116267)]) #@125 Return a list of the first N elements of LIST. If N is negative, return a list of the last N elements of LIST. (fn LIST N) (defalias 'w3m-sub-list #[514 "\211\250\2035\211\300W\203 \211[GY\203\301!\207G\\\301!\233\207\211GY\203+\301!\207GZ\302!\233\237\207\301!\207" [0 copy-sequence reverse] 5 (#$ . 116560)]) #@324 Read an emacs-w3m data file FILE and return contents as a list. It is used for loading `w3m-arrived-file', `w3m-cookie-file', `w3m-favicon-cache-file' and `w3m-antenna-file' (which see). CODING-SYSTEM is used to read FILE which defaults to the value of `w3m-file-coding-system-for-read'. (fn FILE &optional CODING-SYSTEM) (defalias 'w3m-load-list #[513 "\302!\205U\303!?\205U\304\305\306\"r\211q\210\307\310\"\216\3111,\206#\312!)0\2026\210\313\314\"\210\315\202R\205Reb\210\3161G\317p!0\202R\313\320\321!#\210\315\262*\262\207" [w3m-file-coding-system-for-read coding-system-for-read file-readable-p file-directory-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] (error) insert-file-contents message "Error while loading %s" nil (error) read "Error while reading %s; %s" error-message-string] 9 (#$ . 116895)]) #@315 Save a LIST form into the emacs-w3m data file FILE. Contents will be encoded with CODING-SYSTEM which defaults to the value of `w3m-file-coding-system'. Optional ESCAPE-CTL-CHARS if it is non-nil, control chars will be represented with ^ as `cat -v' does. (fn FILE LIST &optional CODING-SYSTEM ESCAPE-CTL-CHARS) (defalias 'w3m-save-list #[1026 "\205\301\306!\205\301\307\310\311\"r\211q\210\312\313\"\216\206p\203%\314\202&\315\316\211\211\317\320\321 !\f\203@\317\322\f\"\202A\323 $c\210\324c\210\203\221@\262A\262\211:\203\207\324c\210@!\210\325c\210\211A\211\262\203}\326c\210@!\210\325c\210\202g\327\330!\210\331c\210\202H!\210\325c\210\202H\332\316x\210`d|\210\333c\210\334 !\205\247\335 !\336ed\f\316\337%\210\211\205\271\340\n\"\262,\266\204*\262\207" [w3m-file-coding-system print-level print-length standard-output coding-system-for-write emacs-w3m-version file-writable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] w3m-prin1 prin1 nil format ";;; %s -*- mode: emacs-lisp%s -*-\n;; This file is generated automatically by emacs-w3m v%s.\n\n" file-name-nondirectory "; coding: %s" "" "(" "\n" " " backward-delete-char 1 ")\n " "\n " ")\n" file-exists-p file-modes write-region nomsg set-file-modes] 16 (#$ . 117802)]) #@61 Return coding system suitable to URL to retrieve. (fn URL) (defalias 'w3m-url-coding-system #[257 "\304\305\211\2030\211A\262\242\262@\203&@;\203\306@\"\203A\262\305\262\202\307!\203;\211!\262\211\206K\n\206K\305\236A\206K )\207" [w3m-url-coding-system-alist case-fold-search w3m-current-coding-system w3m-default-coding-system t nil string-match functionp] 8 (#$ . 119158)]) #@42 (fn STR &optional CODING ENCODE-SPACE) (defalias 'w3m-url-encode-string #[769 "\300\301\302\303\304\"\305\206\306\206\307 !\"\"\"\207" [apply concat mapcar make-closure #[257 "\211\301=\203\302\207\303\304\305!\"\203\305!\207\306\307\"\203\"\300\203\"\310\207\311\312\"\207" [V0 10 "%0D%0A" string-match "[-a-zA-Z0-9_.]" char-to-string char-equal 32 "+" format "%%%02X"] 5 "\n\n(fn CH)"] encode-coding-string "" w3m-url-coding-system] 11 (#$ . 119572)]) #@70 Encode `(' and `)', apt to be misidentified as boundaries. (fn STR) (defalias 'w3m-url-encode-string-2 #[257 "\300\301\302\300\303\304##\207" [replace-regexp-in-string ")" "%29" "(" "%28"] 8 (#$ . 120054)]) #@36 (fn STR &optional CODING REGEXP) (defalias 'w3m-url-decode-string #[769 "\211\204\303\262\304\305\306\307\305\"r\211q\210\310\311\"\216\312\313!\210\314#\203D\304\224O\315\224\2039\316\317\315\"\320\"\202:\321\261\210\304\225\262\202\313Oc\210\322\323 <\203[\324ed#\202\\\206h \206h\n\206h\325\"*\262)\207" [case-fold-search w3m-default-coding-system w3m-coding-system "%\\(?:\\([0-9a-f][0-9a-f]\\)\\|0d%0a\\)" 0 t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil string-match 1 string-to-number match-string 16 10 decode-coding-string buffer-string w3m-detect-coding-region iso-2022-7bit] 11 (#$ . 120270)]) #@61 Return a readable string for a given encoded URL. (fn URL) (defalias 'w3m-url-readable-string #[257 "\211;\205#\301!\262\302\303\"\203\207\304\305\302\306\")?\205\"\307!\"\207" [case-fold-search w3m-puny-decode-url string-match "[^-]" w3m-url-decode-string t "\\`mailto:" w3m-url-coding-system] 6 (#$ . 121005)]) #@495 Encode non-ascii characters in URL into the sequence of escaped octets. Optional CODING is a coding system, that defaults to the one determined according to URL and `w3m-url-coding-system-alist', used to encode URL. This function is designed for conversion for safe transmission of URL, i.e., it handles only non-ASCII characters that can not be transmitted safely through the network. For the other general purpose, you should use `w3m-url-encode-string' instead. (fn URL &optional CODING) (defalias 'w3m-url-transfer-encode-string #[513 "\300!\262\211\204\301!\262\302\303\304\305#\2038\306\307\310\311\312\313\302\n\"\"\"\"\302\224OBB\262\302\225\262\202\306\307\303OB\237\"\207" [w3m-puny-encode-url w3m-url-coding-system 0 nil string-match "[^!-~]+" apply concat mapcar #[257 "\300\301\"\207" [format "%%%02X"] 4 "\n\n(fn C)"] encode-coding-string match-string] 12 (#$ . 121339)]) #@127 Get a char corresponding to NAME from the html char entities database. The database is kept in `w3m-entity-table'. (fn NAME) (defalias 'w3m-entity-value #[257 "\302\"\2065\211\303H\304=\2055\211\305H\306>\203!\307\310\311O\312\"\202'\307\305\311O!\211 \236A\2063\313\314!!\262\207" [w3m-entity-table w3m-extra-numeric-character-reference gethash 0 35 1 (88 120) string-to-number 2 nil 16 string w3m-ucs-to-char] 5 (#$ . 122258)]) #@54 Fontify bold text in the buffer containing halfdump. (defalias 'w3m-fontify-bold #[0 "eb\210\300\301\302\303#\205+\304\224\211\304\225|\210\305\306\302\303#\203'\304\224\304\225|\210\307\304\224\310#\210\210\202\207" [search-forward "" nil t 0 re-search-forward "" w3m-add-face-property w3m-bold] 5 (#$ . 122706)]) #@56 Fontify italic text in the buffer containing halfdump. (defalias 'w3m-fontify-italic #[0 "eb\210\300\301\302\303#\205+\304\224\211\304\225|\210\305\306\302\303#\203'\304\224\304\225|\210\307\304\224\310#\210\210\202\207" [search-forward "" nil t 0 re-search-forward "" w3m-add-face-property w3m-italic] 5 (#$ . 123049)]) #@59 Fontify underline text in the buffer containing halfdump. (defalias 'w3m-fontify-underline #[0 "eb\210\300\301\302\303#\205+\304\224\211\304\225|\210\305\306\302\303#\203'\304\224\304\225|\210\307\304\224\310#\210\210\202\207" [search-forward "" nil t 0 re-search-forward "" w3m-add-face-property w3m-underline] 5 (#$ . 123398)]) #@64 Fontify strike-through text in the buffer containing halfdump. (defalias 'w3m-fontify-strike-through #[0 "\301 \205Ieb\210\302=\2036\303\304\305\306#\205I\307\224\211\307\225|\210\310\311\305\306#\2032\307\224\307\225|\210\312\307\224\313#\210\210\202\310\314\305\306#\205I\312\307\224\307\225\313#\210\2026\207" [w3m-display-ins-del display-graphic-p fontify search-forward "" nil t 0 re-search-forward "" w3m-add-face-property w3m-strike-through "\\(?:\\(?::\\(?:\\(?:DEL\\|S\\)]\\)\\|\\[\\(?:\\(?:DEL\\|S\\):\\)\\)\\)"] 5 (#$ . 123756)]) #@56 Fontify insert text in the buffer containing halfdump. (defalias 'w3m-fontify-insert #[0 "\301 \205Ieb\210\302=\2036\303\304\305\306#\205I\307\224\211\307\225|\210\310\311\305\306#\2032\307\224\307\225|\210\312\307\224\313#\210\210\202\310\314\305\306#\205I\312\307\224\307\225\313#\210\2026\207" [w3m-display-ins-del display-graphic-p fontify search-forward "" nil t 0 re-search-forward "" w3m-add-face-property w3m-insert "\\(?:\\(?::INS]\\|\\[INS:\\)\\)"] 5 (#$ . 124337)]) #@12 (fn STR) (defalias 'w3m-decode-anchor-string #[257 "\300\301\302\303#\203%\304\224\203\305\202\306\300\224OBB\262\300\225\262\202\307\310\301OB\237\"\207" [0 nil string-match "\\(&\\)\\|\\([ \f\n]+\\)" 1 "&" " " apply concat] 8 (#$ . 124858)]) #@255 Return an image type which corresponds to CONTENT-TYPE. The return value `image-convert' or `convert' means to convert image data to be able to display using the `image-convert' function or the external `convert' program respectively. (fn CONTENT-TYPE) (defalias 'w3m-image-type #[257 "\211\205k\205k\304\"A\206k\305\306\307\310\"\205h\n\305=\204<\311\225\306O\227\312\313\314\315!\2034\315 \2027\316\nB\"\235\205h\317 >\203F\317\202W\320\321!\203P\322\202W\323\324!\205W\325\211\262\205hBB\211\205h\211)\266\202\207" [w3m-image-type-alist case-fold-search imagemagick-enabled-types image-types assoc t nil string-match "\\`image/" 0 mapcar #[257 "\300!\227\207" [symbol-name] 3 "\n\n(fn X)"] fboundp imagemagick-types WEBP imagemagick boundp image-use-external-converter image-convert w3m-which-command "convert" convert] 8 (#$ . 125133)]) #@72 Return a boolean value corresponding to the variable of the same name. (defalias 'w3m-handle-non-anchor-buttons #[0 "<\203\3011\302!0\207\210\303\207\205\304\207" [w3m-handle-non-anchor-buttons (error) eval nil t] 2 (#$ . 126009)]) #@60 Fontify anchor tags in the buffer which contains halfdump. (defalias 'w3m-fontify-anchors #[0 "\306\307\211\211\211\211eb\210\310\311\307\312#\203u\313\224\262\314\315\"\262\307\316\307w\210\317\320!\203=\321\322\323!\2066\322\324!\2066\322\325!!\211\262\202F\317\326!\204I\317\327!\203T\313\225b\210\316\307w\210\202 \330\307w\210\307u\210`|\210\331d\332\333\315\334!\fBD\"\307$\266\202 eb\210\310\335\307\312#\203&\313\224\262\314\336\"\262\307\211\211\211\211\211\316\307w\210\317\337!\203\261\321\322\323!\206\252\322\324!\206\252\322\325!!\211\262\202N\317\340!\203\316\321\322\323!\206\307\322\324!\206\307\322\325!!\211\262\202N\317\320!\203\353\321\322\323!\206\344\322\324!\206\344\322\325!!\211\262\202N\317\341!\203\321\322\323!\206\322\324!\206\322\325!!\211\262\202N\317\342!\203&\321\322\323!\206\322\324!\206\322\325!!\227\211\262\202N\317\343!\203E\344\321\322\323!\206=\322\324!\206=\322\325!!!\211\262\202N\317\326!\204Q\317\327!\203\\\313\225b\210\316\307w\210\202\224\330\307w\210\307u\210\204j\262\203t\345!\262\203\254\346!\262\347\235\203\210\202\254\350\235\204\224\351\235\203\231\202\254\352\235\203\244\202\254\353\235\203\254 `|\210\203\n\310\354\307\312#\203!\313\224\262 \325\224\325\225|\210\355!\262\356!\2042\312\357\360\")\2042\3611\f\357@ \"\362\224\203\362\224\362\225W\203 \362\224H\363=\203\364\365\366 \367\"!\2100\202\210\370 !)\210\371\224\203,\372\362\"\373\313\371\224O!\374Q\262\2020\373!\262\211\204:\313\202=\375!\262\376\n\n\377 !\203Q\201C\202T\201D#\210\203q\334!\262\345!\201E\201F!Q\262\202y\201F!\262\331\n\n\332\333\201G \201H\201I\f\201J\201K\201L\201M\201NA\257\"\307$\210\201O \203\356\204\356\201P\n\n\"\201Q\201R\312#\210\201Q\201S\201T#\210\201Q\201U\201V#\210\331  \201W#\210\312\262\210\203\331\nd\332\333\336\334 !BD\"\307$\210\266\202x\203!\331\nd\332\333\336\334 !BD\"\307$\210\266\202xB\203FB@\2056\355B@!\201XBA!\206C\201YBB\203N\355! \203V\355 !\n\203^\355\n! \205g\355 !\211\207" [w3m-next-url w3m-previous-url w3m-start-url w3m-contents-url case-fold-search string #[771 "\205+\303\304\305\306\307!#!\310\303!\210\n\311>\203'\312\313\314\315#\316 \"\202(\211)\266\202\207" [w3m-track-mouse deactivate-mark this-command nil w3m-url-readable-string get-text-property w3m-balloon-help window-buffer message (backward-button forward-button) truncate-string-to-width subst-char-in-string 10 32 window-width] 10 "\n\n(fn WINDOW OBJECT POS)"] nil re-search-forward "<_id[ \f\n]+" t 0 get-text-property w3m-name-anchor " \f\n" looking-at "id[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" w3m-remove-redundant-spaces match-string-no-properties 2 3 1 "[A-Za-z]*[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[^<> \f\n]+" "^>" add-text-properties append (rear-nonsticky t) w3m-decode-entities-string " \f\n]*\\)" "name[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "title[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "rel[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "hseq[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" string-to-number w3m-decode-anchor-string split-string "next" "prev" "previous" "start" "contents" "[ \f\n]*\\(\\)" w3m-expand-url w3m-url-local-p string-match "\\`mailto:" (error) 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 8 match-string w3m-url-transfer-encode-string "#" abs w3m-add-face-property w3m-arrived-p w3m-url-components-regexp w3m-link-map w3m-icon-data w3m-arrived-anchor w3m-anchor "\n" w3m-url-readable-string w3m-href-anchor w3m-balloon-help w3m-anchor-title mouse-face highlight w3m-anchor-sequence help-echo keymap w3m-handle-non-anchor-buttons make-overlay overlay-put evaporate button (w3m) category w3m (button w3m category w3m) w3m-image-type ico] 31 (#$ . 126256)]) #@25 Define menubar buttons. (defalias 'w3m-setup-menu #[0 "\300\305\"\210\306\307 \310\"!?\205N\311\n@!\312 \313\311 #\210\314 \210 \203$\315 \210\316 \210\312 \317\n@B#\210\320\321!\210\322\323!\210\324\325 \326\n$\266\311 \327\323!\210\324\330\331\f$\262\207" [w3m-menu-on-forefront w3m-mode-map w3m-menubar w3m-use-tab-menubar w3m-rmouse-menubar t keymapp lookup-key [menu-bar w3m] make-sparse-keymap define-key [menu-bar] w3m-setup-session-menu w3m-setup-tab-menu w3m-setup-bookmark-menu [menu-bar w3m] require easymenu (lambda (def-tmp-var) (defvar w3m-mode-menu def-tmp-var #1="w3m menu item")) nil easy-menu-do-define w3m-mode-menu #1# (lambda (def-tmp-var) (defvar w3m-rmouse-menu def-tmp-var #2="w3m rmouse menu item")) w3m-rmouse-menu #2#] 6 (#$ . 130527)]) #@70 Fontify img_alt strings of images in the buffer containing halfdump. (defalias 'w3m-fontify-images #[0 "eb\210\301\211\211\211\211\211\302\303\301\304#\205\310\305\224\205\306\307\305!!\262\307\310!\311\230\262\312\224\262\312\225\262\310\225b\210\301\211\211\211\211\313\301w\210\314\315!\203V\316\317\305!\206O\317\320!\206O\317\310!!\211\262\202\327\314\321!\203u\306\316\317\305!\206m\317\320!\206m\317\310!!!\211\262\202\327\314\322!\203\224\306\316\317\305!\206\214\317\320!\206\214\317\310!!!\211\262\202\327\314\323!\203\261\316\317\305!\206\252\317\320!\206\252\317\310!!\211\262\202\327\314\324!\203\316\316\317\305!\206\307\317\320!\206\307\317\310!!\211\262\202\327\314\325!\204\332\314\326!\203\345\312\225b\210\313\301w\210\2029\327\301w\210\301u\210|\210\330\331!!\262\232\203\262\202\n\262\332\333\301\304#\203\303\312\224\211\262 \312\225|\210\334 \335\"\262\2038\2038\336\337$\262\202_\203I\336\340#\262\202_\203X\336\341#\262\202_\336\342\"\262\343  \344\345\346\347\f\350 \204w\f\205|  B\351 \335\352\353\354\355\356\257\"\301$\210\334 \357\"\204\303\360  \334\f\361\"\203\253\362\202\254\347#\210\334 \361\"\204\303\343  \363\364\365\fF#\210\266\202 \207" [w3m-link-map nil re-search-forward "<\\(img_alt\\)\\(?:[^>]+hseq=\"\\([0-9]+\\)\\)?[^>]+>" t 2 string-to-number match-string 1 "IMG_ALT" 0 " \f\n" looking-at "src[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" w3m-remove-redundant-spaces match-string-no-properties 3 "width[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "height[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "title[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "usemap[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[A-Za-z]*[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[^<> \f\n]+" "^>" w3m-expand-url w3m-decode-anchor-string search-forward "" get-text-property w3m-balloon-help format "%s\nalt: %s\nimg: %s" "%s\nimg: %s" "alt: %s\nimg: %s" "img: %s" add-text-properties append (rear-nonsticky t) w3m-image-hseq w3m-image w3m-image-size w3m-image-alt w3m-image-usemap w3m-image-status off w3m-image-redundant keymap w3m-action w3m-add-face-property w3m-href-anchor w3m-image-anchor mouse-face highlight help-echo] 34 (#$ . 131304)]) (defvar w3m-idle-images-show-timer nil) (defvar w3m-idle-images-show-list nil) (defvar w3m-idle-images-show-interval 1) (defalias 'w3m-idle-images-show #[0 "\306p\307 \235\203\203\211\203m\310`\311\"\206q\312`\311\"\313`\311\"\205)\314`Z!\2052\314`Z!\203M\203M\310W\203E\202F\311\"\266\204\202j\203Z\310\311\"\266\204\202j\203g\310\311\"\266\204\202j\266\315\206q\316!@\211@A@\3178\3208\3218\3228\323\"\324\325!!\203\374r\325!q\210\214~\210\306\326\327#\210\330\315!\210)\331\332%\211Cp\306\333%*\262\334!\203\325\335!\202\347\334!\211\262!\203\346\335!\202\347\211\262\262\334!\203\365\335!\210\210*\266\202\315\211\223\210\315\211\223\210\336\325!!\266\337\340\306\"\262\202\203,\341 \2053\342\f!\210\343 \306\344#\211\207\342\f!\210\315\211\207" [w3m-idle-images-show-list inhibit-read-only w3m-message-silent w3m-current-buffer w3m-idle-images-show-timer w3m-idle-images-show-interval t w3m-list-buffers get-text-property w3m-idle-image-item previous-single-property-change next-single-property-change abs nil last 2 3 4 5 delete buffer-live-p marker-buffer remove-text-properties (w3m-idle-image-item) set-buffer-modified-p make-closure #[257 "\306\307\300!!\205Mr\307\300!q\210\214~\210\211\2031\303\f\232\203>\310\311\300\301\302$\210)\203>\312\313!\210\202>\310\314\300\301\315\316\317\"\320$\210)\321\320!\210)\300\320\211\223\210\301\320\211\223)\207" [V0 V1 V2 V3 w3m-current-url inhibit-read-only buffer-live-p marker-buffer t w3m-insert-image sit-for 0 add-text-properties append (rear-nonsticky t) (w3m-image-status off) nil set-buffer-modified-p w3m-force-redisplay] 7 "\n\n(fn IMAGE)"] w3m-create-image w3m-process-p w3m-process-start-process w3m-idle-images-show-unqueue sit-for 0.1 input-pending-p w3m-cancel-timer run-with-idle-timer w3m-idle-images-show] 17]) #@15 (fn BUFFER) (defalias 'w3m-idle-images-show-unqueue #[257 "\303!\205\304\305\304\306\307\310\" \"\"\211\205\311\n\312\313#\211\207" [w3m-idle-images-show-timer w3m-idle-images-show-list w3m-idle-images-show-interval w3m-cancel-timer nil delq mapcar make-closure #[257 "\300\301@!=?\205 \211\207" [V0 marker-buffer] 4 "\n\n(fn X)"] run-with-idle-timer t w3m-idle-images-show] 8 (#$ . 135720)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-confirm-leaving-secure-page funcall function #[0 "\300\207" [t] 1] "If non-nil, you'll be asked for confirmation when leaving secure pages.\nThis option controls whether the confirmation is made also when\nretrieving data (typically images) in a secure page from non-secure\npages. It is STRONGLY recommended to set non-nil value to this option.\nYou MUST understand what you want to do completely before switching\noff this option." :group w3m :type boolean] 8) #@208 Search for the next image boundary within START and END. Return the boundary position or nil if not found. Note that return END if it is non-nil even if the boundary is not found. (fn START &optional END) (defalias 'w3m-search-for-next-image-boundary '(macro . #[513 "\211\203\300\301D\302D\303BB\304BB\207\305\301DC\306BB\207" [let* st nd ((img (next-single-property-change st 'w3m-image-hseq nil nd))) ((or (and img (< img nd) img) (next-single-property-change st 'w3m-image nil nd))) let ((unless (= st (point-max)) (or (next-single-property-change st 'w3m-image-hseq) (next-single-property-change st 'w3m-image) (and (or (w3m-image st) (w3m-image (1+ st))) (point-max)))))] 6 (#$ . 136688)])) #@102 Search for the image boundary backward from START. Return the point or nil if not found. (fn START) (defalias 'w3m-search-for-previous-image-boundary #[257 "\211eU?\205%\300\301\"\206%\300\302\"\206%\303\302\"\204$\303S\302\"\205%e\207" [previous-single-property-change w3m-image-hseq w3m-image get-text-property] 4 (#$ . 137399)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put w3m-search-for-previous-image-boundary speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defvar w3m-image-no-idle-timer nil) #@253 Toggle displaying of inline images on current buffer. STATUS is current image status. If NO-CACHE is non-nil, cache is not used. If URL is specified, only the image with URL is toggled. (fn STATUS &optional NO-CACHE URL BEGIN-POS END-POS SAFE-REGEXP) (defalias 'w3m-toggle-inline-images-internal #[1537 "`\306\206e?\307\211C\307\211 \204d\262\n\212 \310=\203\374\311\312\"\203-\202L\n\313\314\307$\211\203D\211W\203D\211\206J\313\312\307$\266\203\211\262\nW\205\266\211dU?\205{\313\314\"\206{\313\312\"\206{\311\312\"\204z\311T\312\"\205{d\262\206\201d\262\311\312\"\240\210\311\315\"\262 \204\241\n\203\251\316\n\242\"\203\251 \242\230\203!\311\317\"\320=\204!\321\322\323\324\"\307$\210\311\325\"\203\361\326\327{!\330\"\262\321\322\323\331\"\307$\210b\210\321c\210`\322\323\332\"\307$\210`\262\202!b\210\242\211\205\316\333 \"?\205 )\203!\203\316 \242\"\203!\334\f!\204$\334\242!\204! \203E\316\335\242\"\204E\204E\336\337!\340\307!\210\203!\306\211\262\203!3\204i\211\203S4\204\302\316\341\242\"\204i\334\242!\204i\342\242!\203\302\343 \307\223\343 \307\223\f\344\345%\211Cp5\346\242\f %)\262\347!\203\234\350!\202\256\347!\211\262!\203\255\350!\202\256\211\262\262\266\203\347!\203\276\350!\210\210\202!\343 \307\223\343 \307\223\351\242!\f\257\2116B6\321\322\323\352D\"\307$\2107\204\370\3538\306\354#7\210\202!\311\312\"\203\202'\n\313\314\307$\211\203\211W\203\211\206%\313\312\307$\266\203\211\262\nW\203\263\211dU?\205V\313\314\"\206V\313\312\"\206V\311\312\"\204U\311T\312\"\205Vd\262\206\\d\262\311\312\"\240\210 \203r \242\230\203\374\311\317\"\310=\204\374\311\325\"\203\215\355\356\307$\210\202\245\311\357\"\203\237|\210\262\202\245\360\"\210\321\322\323\361\"\307$\210\202\374\362\307!*\207" [w3m-confirm-leaving-secure-page inhibit-read-only w3m-ignored-image-url-regexp url w3m-current-url w3m-current-ssl t nil off get-text-property w3m-image next-single-property-change w3m-image-hseq w3m-image-size string-match w3m-image-status on add-text-properties append #1=(rear-nonsticky t) (w3m-image-status on) w3m-image-redundant make-string string-width 32 (invisible t) (w3m-image-dummy t w3m-image "dummy") "\\`http:///" w3m-url-local-p "\\`\\(?:ht\\|f\\)tps://" y-or-n-p "You are retrieving non-secure image(s). Continue? " message "\\`\\(?:cid\\|data\\):" w3m-cache-available-p make-marker make-closure #[257 "\306\307\301!!\203Ar\307\301!q\210\211\203/\303\f\232\203<\310\311\301\302\300\242$\210)\203<\312\313!\210\202<\310\314\301\302\315\316\317\"\320$\210)\321\320!\210)\301\320\211\223\210\302\320\211\223\207" [V0 V1 V2 V3 w3m-current-url inhibit-read-only buffer-live-p marker-buffer t w3m-insert-image sit-for 0 add-text-properties append #1# (w3m-image-status off) nil set-buffer-modified-p w3m-force-redisplay] 7 "\n\n(fn IMAGE)"] w3m-create-image w3m-process-p w3m-process-start-process w3m-url-transfer-encode-string w3m-idle-image-item run-with-idle-timer w3m-idle-images-show put-text-property invisible w3m-image-dummy w3m-remove-image (w3m-image-status off w3m-idle-image-item nil) set-buffer-modified-p w3m-image-no-idle-timer w3m-resize-images w3m-current-buffer w3m-idle-images-show-list w3m-idle-images-show-timer w3m-idle-images-show-interval] 26 (#$ . 137949)]) #@210 Toggle the visibility of an image under point or images in the region. If FORCE is non-nil, displaying an image is forced. If NO-CACHE is non-nil, cached data will not be used. (fn &optional FORCE NO-CACHE) (defalias 'w3m-toggle-inline-image #[512 "\301 \204 \302\303!\210\304\211\211\305 \203\241\306 \304\306 \262\307 \262\310 \210\311\312\"\203T\211eU?\205L\313\314\"\206L\313\312\"\206L\311\312\"\204K\311S\312\"\205Le\262\206Re\262W\203\234\315\314\304$\211\203p\211W\203p\211\206v\315\312\304$\266\203\262X\203T\311\312\"\211\262\203T\316\"\204T\211BB\262\202T\266\202`\304\311\312\"\206\332n\204\303\311S\312\"\211\262\203\303Sb\203\303\211\206\332l?\205\332\311T\312\"\211\262\205\332Tb\205\332\211\266\202\205`\304\311\312\"\206n\204\311S\312\"\211\262\203Sb\203\211\206l?\205\311T\312\"\211\262\205Tb\205\211\266\202`BC\262\203o\211\205n\211@\211@A\311\317\"\304\311\320\"\203H\321=\203H\322\323!\266\202g\211\205W\324\325\"?\205W)\203e\326=\203\327\n\203i\321\262\327  \206\240`\211eU?\205\232\313\314\"\206\232\313\312\"\206\232\311\312\"\204\231\311S\312\"\205\232e\262\206\240e \206\321`\211dU?\205\313\315\314\"\206\313\315\312\"\206\313\311\312\"\204\312\311T\312\"\205\313d\262\206\321d%\266\202g\311`\330\"\262\n\204\355\211\203\355\324\"\203[\327  \206$`\211eU?\205\313\314\"\206\313\312\"\206\311\312\"\204\311S\312\"\205e\262\206$e \206U`\211dU?\205O\315\314\"\206O\315\312\"\206O\311\312\"\204N\311T\312\"\205Od\262\206Ud%\266\202g\331\332!\203e\333\334!\210\266A\266\202\202$\207\203w\333\335!\207\333\336!\207" [url display-images-p error "Can't display images in this environment" nil region-active-p region-beginning region-end deactivate-mark get-text-property w3m-image previous-single-property-change w3m-image-hseq next-single-property-change assoc w3m-image-status w3m-image-scale off w3m-zoom-in-image 0 string-match "\\`http:///" on w3m-toggle-inline-images-internal w3m-safe-url-regexp called-interactively-p any w3m-message "This image is considered to be unsafe; use the prefix arg to force display" "No images in region" "No image at point"] 21 (#$ . 141402) "P"]) #@64 Turn off to display all images in the buffer or in the region. (defalias 'w3m-turnoff-inline-images #[0 "\300\301!\207" [w3m-toggle-inline-images turnoff] 2 (#$ . 143709) nil]) #@463 Toggle the visibility of all images in the buffer or in the region. If FORCE is neither nil nor `turnoff', displaying images is forced. The value `turnoff' is special; it turns displaying images off anyway. If NO-CACHE is non-nil, cached data will not be used. Note that the status of whether images are visible is kept hereafter even in new sessions if the `w3m-toggle-inline-images-permanently' variable is non-nil (default=t). (fn &optional FORCE NO-CACHE) (defalias 'w3m-toggle-inline-images #[512 "\301 \204 \302\303!\210\304=\203\305\202\203\306\202\305\306\211\211\211\211\307 \2035\310 \262\311 \262\312 \210\202;e\262d\262\204\370\313\314\"\211\262\203\370\262\3152\366\313\316\"\211\262\203\221\317\"\204g\320\315\306\"\210\211dU?\205\215\321\322\"\206\215\321\316\"\206\215\313\316\"\204\214\313T\316\"\205\215d\262\262W\203\364\321\322\306$\211\203\255\211W\203\255\211\206\263\321\316\306$\266\203\211\262\203\321\313\316\"\211\262\203\321\317\"\204\321\320\315\306\"\210\321\322\306$\211\203\347\211W\203\347\211\206\355\321\316\306$\266\203\262\202\221\3050\262\204\n\204\n\203\n\203/\323\324\"\216\325\203\326\202\327 \306\330\331!?\205+&)\207\332\333!\207" [w3m-display-inline-images display-images-p user-error "Can't display images in this environment" turnoff t nil region-active-p region-beginning region-end deactivate-mark get-text-property w3m-safe-url-regexp done w3m-image string-match throw next-single-property-change w3m-image-hseq make-closure #[0 "\300?\300\203\302p!\210\303p!\210\304 \207" [V0 w3m-display-inline-images w3m-process-stop w3m-idle-images-show-unqueue force-mode-line-update] 2] w3m-toggle-inline-images-internal on off called-interactively-p any w3m-message "There are some images considered unsafe; use the prefix arg to force display"] 17 (#$ . 143893) "P"]) #@120 Resize an inline image on the cursor position. RATE is a number of percent used when resizing an image. (fn URL RATE) (defalias 'w3m-resize-inline-image-internal #[514 "\306`C\211\242\211dU?\205+\307\310\"\206+\307\311\"\206+\312\311\"\204*\312T\311\"\205+d\262\2061dC\312\242\311\"\312\242\313\"\312\242\314\"\206E\315 ?\316\211\317\242\242\320\321\322\"\316$\210 _\323_\262\317\242\242\320\321\314D\"\316$\210\324!\262\312\242\325\"\203\251\326\327 \242 \242{!\330\"\262\317\242\242\320\321\331\"\316$\210\317`c\210`\320\321\332\"\316$\202@\211\205\270\333\334\n\"?\205\270\n)\205@ \203\335\333\335\"\204\335\204\335\336\337!\340\316!\210\205@\306\211\262\205@\341  \242\316\223\240\210\341 \242\316\223\240\210\f\342\343   %\211Cp\344\n\f\f%)\262\345!\203\346!\202-\345!\211\262!\203,\346!\202-\211\262\262\266\202\345!\203=\346!\210\211\262)\207" [inhibit-read-only w3m-confirm-leaving-secure-page url w3m-current-ssl w3m-current-url w3m-current-buffer t next-single-property-change w3m-image-hseq w3m-image get-text-property w3m-image-size w3m-image-scale 100 nil add-text-properties append #1=(rear-nonsticky t) (w3m-image-status on) 0.01 round w3m-image-redundant make-string string-width 32 (invisible t) (w3m-image-dummy t w3m-image "dummy") string-match "\\`http:///" "\\`\\(?:ht\\|f\\)tps://" y-or-n-p "You are retrieving non-secure image(s). Continue? " message make-marker make-closure #[257 "\306\307\300\242!!\205Ur\307\300\242!q\210\211\2036\303\f\232\203E\310\311\300\242\301\242\302$\210\312!\210)\203E\313\314!\210\202E\310\315\300\242\301\242\316\317\320\"\321$\210)\322\321!\210)\300\242\321\211\223\210\301\242\321\211\223\207" [V0 V1 V2 V3 w3m-current-url inhibit-read-only buffer-live-p marker-buffer t w3m-insert-image w3m-image-animate sit-for 0 add-text-properties append #1# (w3m-image-status off) nil set-buffer-modified-p w3m-force-redisplay] 7 "\n\n(fn IMAGE)"] w3m-create-resized-image w3m-process-p w3m-process-start-process] 21 (#$ . 145820)]) #@272 Interactively resize IMAGE. RATE is a number in percent used to enlarge or shrink the image, defaults to the value of `w3m-resize-image-scale'. CHANGED-RATE is a float number that says how much the image has already been resized. (fn IMAGE &optional RATE CHANGED-RATE) (defalias 'w3m-resize-image-interactive #[769 "\301\206\302\203\303^\206\304\305\306\307\310#!\211\262\311>\2037\312\\\313\"\210\314\245_\211\262\262\202e\211\315\267\202d\316\312\\\245\313\"\210\314\245_\211\262\262\202e\313\314\245\"\210\302\211\262\202e\304\205k\202\207" [w3m-resize-image-scale "Resize: [+ =] enlarge [-] shrink [0] original [q] quit" 1 99 nil read-char-exclusive propertize face w3m-lnum-minibuffer-prompt (43 61) 100 w3m-resize-inline-image-internal 100.0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (45 61 48 85)) 10000.0] 12 (#$ . 147910)]) #@228 Zoom in an image on the point. Numeric prefix specifies how many percent the image is enlarged by (30 means enlarging the image by 130%). The default is the value of the `w3m-resize-image-scale' variable. (fn &optional RATE) (defalias 'w3m-zoom-in-image #[256 "\301 \204 \302\303!\210\304 \204\302\305!\210`\306\307\310\"\206Kn\2044\307S\310\"\211\262\2034Sb\2034\211\206Kl?\205K\307T\310\"\211\262\205KTb\205K\211\266\202\211\203\\\311\312\206Y\\\"\207\313\314!\207" [w3m-resize-image-scale display-images-p error "Can't display images in this environment" w3m-imagick-convert-program-available-p "ImageMagick's `convert' program is required" nil get-text-property w3m-image w3m-resize-inline-image-internal 100 w3m-message "No image at point"] 6 (#$ . 148835) "P"]) #@404 Zoom out an image on the point. Numeric prefix specifies how many percent the image is shrunk by. The default is the value of the `w3m-resize-image-scale' variable. The shrink percentage is interpreted as if the current image size is 100+percent and it is to be reduced back to 100. This is the inverse of `w3m-zoom-in-image' so zooming in then back out gives the original again. (fn &optional RATE) (defalias 'w3m-zoom-out-image #[256 "\301 \204 \302\303!\210\304 \204\302\305!\210`\306\307\310\"\206Kn\2044\307S\310\"\211\262\2034Sb\2034\211\206Kl?\205K\307T\310\"\211\262\205KTb\205K\211\266\202\211\203^\311\312\313\206Z\\\245\"\207\314\315!\207" [w3m-resize-image-scale display-images-p error "Can't display images in this environment" w3m-imagick-convert-program-available-p "ImageMagick's `convert' program is required" nil get-text-property w3m-image w3m-resize-inline-image-internal 10000.0 100 w3m-message "No image at point"] 7 (#$ . 149635) "P"]) #@139 Decode entities in the current buffer. If optional KEEP-PROPERTIES is non-nil, text property is reserved. (fn &optional KEEP-PROPERTIES) (defalias 'w3m-decode-entities #[256 "\212eb\210\302\211\211\211\211\303 \302\304#\205k\305\224\262\306\307\"\262\2032\310 \311\312\"\216\313\314\")\262\204 \203;\315!\262\316\225f\317=\204G\316\225b\210\320\321\316!!\211\262\203Y`|\210\211c\210\203 \322`\323\324\"\302$\210\202 )\266\205)\207" [case-fold-search w3m-entity-regexp nil re-search-forward t 0 get-text-property w3m-form-field-id match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "/type=\\(?:text\\|select\\)/name=[^/]+/" text-properties-at 1 59 w3m-entity-value match-string add-text-properties append (rear-nonsticky t)] 12 (#$ . 150627)]) #@46 Decode entities in the string STR. (fn STR) (defalias 'w3m-decode-entities-string #[257 "\302 \303\304\"\216\305\306\305\307 #\203C\310\311\312\"!\206$\311\312\"\306\224OBB\262\312\225H\313=\203<\306\225\202>\312\225\262\202\f\211\203U\314\315\305OB\237\"\202V)\266\203)\207" [case-fold-search w3m-entity-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nil 0 string-match w3m-entity-value match-string 1 59 apply concat] 10 (#$ . 151447)]) #@56 Encode special characters in the string STR. (fn STR) (defalias 'w3m-encode-specials-string #[257 "\301\302\303\304#\203'\305\306\307\301\"\"\310\301\224OBBBB\262\301\225\262\202\211\2036\311\312\302OB\237\"\207\207" [w3m-entity-reverse-table 0 nil string-match "[<>&]" ";" gethash match-string "&" apply concat] 9 (#$ . 151963)]) #@29 Fontify the current buffer. (defalias 'w3m-fontify #[0 "\306\211\307\310!\210\311\312!\210eb\210\313\314\315\306#\203 \316\224\316\225|\210\202eb\210\317\320\315\306#\203<\316\224\317\321\315\306#\210\211\316\225|\210eb\266\315\317\322\315\306#\203Z\316\224\211\262\203Z\317\323\315\306#\203Z\211\316\225|\210\210\324 \210\325 \210\326 \210\327 \210\330 \210\n\203q\331 \210\332 \210 \203{\333 \210\334 \210eb\210\313\335\315\306#\203\253\316\224\336\337\"\211\203\242\340\341\"\203\242Tb\266\202\201\316\225|\266\202\201\342\343!\210 \203\266\344 \210eb\210\f\203\317\313\345\315\306#\203\317\316\224\316\225S|\210\202\275eb\210\346\315w\210e\347 |\210\350 \210\351ed\305 $\210\307\352!\210\311\353!*\207" [inhibit-read-only case-fold-search w3m-use-symbol w3m-use-form w3m-delete-duplicated-empty-lines w3m-safe-url-regexp t w3m-message "Fontifying..." run-hooks w3m-fontify-before-hook re-search-forward "]+>[ \n ]*" nil 0 search-forward "" "" "" w3m-fontify-bold w3m-fontify-italic w3m-fontify-strike-through w3m-fontify-insert w3m-fontify-underline w3m-replace-symbol w3m-fontify-anchors w3m-fontify-forms w3m-fontify-images "]*>" get-text-property w3m-form-field-id string-match "/type=text\\(?:area\\)?/" w3m-decode-entities reserve-prop w3m-fontify-textareas "^[ ]*\n\\(?:[ ]*\n\\)+" " \n 　" point-at-bol w3m-header-line-insert put-text-property "Fontifying...done" w3m-fontify-after-hook] 5 (#$ . 152319)]) #@158 Refontify anchors as they have already arrived. It replaces the faces on the arrived anchors from `w3m-anchor' to `w3m-arrived-anchor'. (fn &optional BUFF) (defalias 'w3m-refontify-anchor #[256 "r\211\206pq\210\302\303=\205a\304`\305\"\205a\304`\306\"\211\262\205a\211<\205a\307>\205a\302\310`\305\"\311\211\203[\312\305\"\211\262\203[\313\304`\314\"!\203[\315\307#\210\315\316#\210\317\316#\210\320\302!)\266\202\262)\207" [major-mode inhibit-read-only nil w3m-mode get-text-property w3m-anchor-sequence face w3m-anchor next-single-property-change t previous-single-property-change w3m-arrived-p w3m-href-anchor w3m-remove-face-property w3m-arrived-anchor w3m-add-face-property set-buffer-modified-p] 8 (#$ . 153830)]) #@55 Completion function for URL. (fn URL PREDICATE FLAG) (defalias 'w3m-url-completion #[771 "\301\302\"\203u\211\303=\203\304\305!!\207\306\301\307\"\203\"\310\311O\2024\301\312\"\2031\313\224\311O\2024\305!!\314!\315\316\317\"\320\321!\"\"\262\301\322\"\203X\323\324!!\325P\202[\324!\262\204h\326#\207\327=\205t\330#\207\211\204~\326\"\207\211\331\267\202\221\330\"\207\332!\205\232\327\207\211?\205\232\326\"\207" [w3m-arrived-db string-match "\\`\\(?:file:\\|[/~]\\|\\.\\.?/\\|[a-zA-Z]:\\)" lambda file-exists-p w3m-url-to-file-name expand-file-name "\\`file:[^/]" 5 nil "/\\(~\\)" 1 file-name-directory mapcar make-closure #[257 "\301\300\"C\207" [V0 w3m-expand-file-name-as-url] 4 "\n\n(fn F)"] file-name-all-completions file-name-nondirectory "/\\.\\'" file-name-as-directory w3m-expand-file-name-as-url "." try-completion t all-completions #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 132 lambda 137)) w3m-arrived-p] 10 (#$ . 154580)]) #@45 Return a url that shr.el provides at point. (defalias 'w3m-shr-url-at-point #[0 "`\300\301\302\"\2069n\204\"\301S\302\"\211\262\203\"Sb\203\"\211\2069l?\2059\301T\302\"\211\262\2059Tb\2059\211\207" [nil get-text-property shr-url] 5 (#$ . 155620)]) #@166 Return w3m-current-url if point stays at header line. Where "header line" means the first line of a page buffer, not header-line that `header-line-format' controls. (defalias 'w3m-header-line-url #[0 "\302`\303\"\304=\205 \211<\205 \305>\204\306>\205 \205 \207" [major-mode w3m-current-url get-text-property face w3m-mode w3m-header-line-title w3m-header-line-content] 3 (#$ . 155890)]) (autoload 'ffap-url-at-point "ffap") (defalias 'w3m-url-at-point #[0 "\300 \206\f\301 \206\f\302 \207" [w3m-shr-url-at-point w3m-header-line-url ffap-url-at-point] 1]) (eval-after-load "ffap" #[0 "\205\301\302\"?\205\301\303\"\205\304\305\306\211$\211\207" [ffap-url-regexp string-match "nntp://bar" "\\(\\\\(news\\\\(post\\\\)\\?:\\)\\(\\\\|\\)" replace-match "\\1\\\\|nntp:\\2" nil] 5]) #@370 Return an active region or a url around the cursor. In Transient Mark mode, deactivate the mark. If DEFAULT-TO is `never', only return a url found in the specified region if any. If it is nil, default to a url that an anchor at the point points to. If it is neither `never' nor nil, default to a url of the current page as the last resort. (fn &optional DEFAULT-TO) (defalias 'w3m-active-region-or-url-at-point #[256 "\302 \203J\303\304 \305 \"\306\307\310\"r\211q\210\311\312\"\216c\210\313\314x\210`d|\210eb\210\313\314w\210e`|\210\315\316\314\310#\203?\317\224\317\225|\210\202.\320 *\262\262\321 \210\207\211\322=?\205`\314\323\324\"\206\212n\204s\323S\324\"\211\262\203sSb\203s\211\206\212l?\205\212\323T\324\"\211\262\205\212Tb\205\212\211\266\202\206\204\321`\314\323\325\"\206\314n\204\265\323S\325\"\211\262\203\265Sb\203\265\211\206\314l?\205\314\323T\325\"\211\262\205\314Tb\205\314\211\266\202\206\326 \206\211\205 ;\205\327\330 \"\203\354 \317\225\314O\207\323`\331\"@\206\371\323`\332\"@\211\203 \333Q\202 \262\207" [w3m-display-inline-images w3m-current-url region-active-p buffer-substring-no-properties region-beginning region-end generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] " \n\f 　" nil re-search-forward "\\(?:[ \f 　]+\n[ \f 　]*\\|[ \f 　]*\n[ \f 　]+\\)+" 0 buffer-string deactivate-mark never get-text-property w3m-href-anchor w3m-image w3m-url-at-point string-match "\\`about://\\(?:header\\|source\\)/" w3m-name-anchor w3m-name-anchor2 "#"] 7 (#$ . 156697)]) #@280 Fix URL that does not look like a valid url. For a query that neither has a scheme part nor is an existing local file, return a search url for the default search engine. Also fix URL that fails to have put a separator following a domain name. (fn URL &optional FEELING-SEARCHY) (defalias 'w3m-canonicalize-url #[513 "\303\304\"\203\305\306\"\307\305\310\"Q\207\311\3121\313!0\202 \210\311\211\262\203-\230\204-\207\314!\2039\315\316!P\207\3171e\303 \"\320\224\203a\320\224\320\225W\203a\320\224H\321=\203a\322\323\324 \325\"!\2100\202i\210\326!)\210\306\224\203r\207\203\200\327\330!\210\331\332\n#\207\333P\207" [string w3m-url-components-regexp w3m-search-default-engine string-match "\\`\\(https?://[-.0-9a-z]+\\)\\([#?].*\\)" match-string 1 "/" 2 nil (error) w3m-uri-replace file-exists-p "file://" expand-file-name (error) 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 require w3m-search w3m-search-do-search #[385 "\207" [] 3 "\n\n(fn URL &rest REST)"] "https://"] 8 (#$ . 158330)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-input-url-provide-initial-content funcall function #[0 "\300\207" [nil] 1] "Provide an initial minibuffer content (if any) when entering a url.\nA url string is not worth editing in most cases since a url thing is\ngenerally a list of arbitrary letters, not a human readable one. So,\nwe provide no initial content when prompting you for a url by default.\nBut sometimes there will be a case to be convenient if you can modify\nthe url string of [1]the link under the cursor or of [2]the current\npage. In that case, you can type the `M-n' key [1]once or [2]twice to\nfill the minibuffer with an initial content. Otherwise, set this\nvariable to a non-nil value to always provide an initial content." :group w3m :type boolean] 8) #@129 Use the current url string (if any) as the next history by default. This function is used as `minibuffer-default-add-function'. (defalias 'w3m-input-url-default-add-completions #[0 "r\304\305 !q\210\306 \206 ) \307\310\n #<\203\202C<\203(\202*C\311\312\312 \312 \312 \"\"\"\"#\207" [w3m-current-url minibuffer-default minibuffer-completion-table minibuffer-completion-predicate window-buffer minibuffer-selected-window w3m-active-region-or-url-at-point all-completions "" append delete] 17 (#$ . 160215)]) #@201 Return the actual url of a bookmark title entered to `w3m-input-url'. If in response to function `w3m-input-url',a user entered a bookmark title string, replace it with that bookmark's url. (fn URL) (defalias 'w3m--get-url-from-bookmark-title #[257 "\300 \301\211\211\211\204;\211A\262\242A\211\262\203;\211\204\211A\262\242\211\262\203\302\303\304A#\230\203@\262\305\262\202\207" [w3m-bookmark-iterator nil replace-regexp-in-string "\\`[ ]+" "" t] 10 (#$ . 160750)]) #@141 Read a url from the minibuffer, prompting with string PROMPT. (fn &optional PROMPT INITIAL DEFAULT QUICK-START FEELING-SEARCHY NO-INITIAL) (defalias 'w3m-input-url #[1536 "\306\307!\310 \210\204H\211\206\204?\205\306\311!\211\262\203Q\312\313\"\203.\314\262\202Q\312\315\"\204Q\316\317!\206A \320#\262\202Q\321\230\203Q\314\262\203[\322!\262\204n\211\206i\306 \206i\n\262\202w\321\230\203w\314\262\203\205\203\205\204\205\207 \204\214\314\262\323\f\324C\"\325 !\326\314\211*+,\327-\"\210\330 \203\361\203\354\312\331 \"\203\300 \332\211\224O\262\n \333 \334\232\203\316\335\202\347 \n\232\203\331\336\202\347 .\232\203\345\337\202\347 \340R\2024 \2024\203+\341\342\203\343\202\321\n;\203#\n\334\230\203\335\202'\n\n\230\203\336\202'\n\202'\344 !#\2024\2033\345\2024\346 \314\347\f&,\266\202\262\350!\262\211\321\230\203S\206b\321\207\211;\203a\211\351'\"B'\211\207" [w3m-input-url-provide-initial-content w3m-current-coding-system w3m-home-page w3m-enable-feeling-searchy minibuffer-setup-hook w3m-url-completion-map w3m-active-region-or-url-at-point never w3m-arrived-setup t string-match "\\`about:" nil "[^-]" w3m-url-decode-string w3m-url-coding-system "%\\([2-9a-f][0-9a-f]\\)" "" w3m-puny-decode-url append #[0 "\301\300!\210\302\303 \210\304\305!\205\306\225b\207" [minibuffer-default-add-function make-local-variable w3m-input-url-default-add-completions beginning-of-line looking-at "[a-z]+:\\(?:/+\\)?" 0] 2] copy-keymap w3m-url-completion set-keymap-parent read-from-minibuffer " *: *\\'" 0 " (default " "about:blank" "BLANK" "HOME" "CURRENT" "): " format "URL %s(default %s): " "or Keyword " prin1-to-string "URL or Keyword: " "URL: " w3m-input-url-history w3m--get-url-from-bookmark-title delete minibuffer-completion-confirm minibuffer-completion-predicate minibuffer-completion-table minibuffer-local-completion-map w3m-current-url] 16 (#$ . 161249)]) #@50 Initialize the variables for managing the cache. (defalias 'w3m-cache-setup #[0 "\304!\205 \305!?\205+r\306\307!q\210\310 \210\311\312!\210\313\301!\210\312\314p\315\316\317\"\211)\207" [w3m-cache-buffer w3m-cache-articles buffer-read-only w3m-cache-hashtb bufferp buffer-live-p w3m-get-buffer-create " *w3m cache*" buffer-disable-undo set-buffer-multibyte nil make-local-variable t make-hash-table :test equal] 3 (#$ . 163251)]) #@67 Clear all the variables managing the cache, and the cache itself. (defalias 'w3m-cache-shutdown #[0 "\302!\203\n\303!\210\304\211\207" [w3m-cache-buffer w3m-cache-hashtb buffer-live-p kill-buffer nil] 2 (#$ . 163695)]) #@15 (fn HEADER) (defalias 'w3m-cache-header-delete-variable-part #[257 "\300\211\301\302\"\211\2033\211@\303\304\"\203\305\262\202,\203$\303\306\"\204,\300\262\211B\262A\266\202\202\210\307\310\237\311#\207" [nil split-string "\n+" string-match "\\`\\(?:Date\\|Server\\|W3m-[^:]+\\):" t "\\`[ ]" mapconcat identity "\n"] 8 (#$ . 163924)]) #@219 Store HEADER into the cache so that it corresponds to URL. If OVERWRITE is non-nil, it forces the storing even if there has already been the data corresponding to URL in the cache. (fn URL HEADER &optional OVERWRITE) (defalias 'w3m-cache-header #[770 "\301 \210\302!\262\303\304#\211\304=\203\305#\207\204(\306!\306!\230\203(\207\307!\210\305#\207" [w3m-cache-hashtb w3m-cache-setup w3m-w3m-canonicalize-url gethash void puthash w3m-cache-header-delete-variable-part w3m-cache-remove] 8 (#$ . 164287)]) #@75 Return the header string of URL when it is stored in the cache. (fn URL) (defalias 'w3m-cache-request-header #[257 "\301 \210\302\303!\304#\211\304=?\205\211\207" [w3m-cache-hashtb w3m-cache-setup gethash w3m-w3m-canonicalize-url void] 5 (#$ . 164815)]) #@84 Remove the oldest cache. Must run in `w3m-cache-buffer' where read-only is lifted. (defalias 'w3m-cache-remove-oldest #[0 "\205$\211A\242\211A@AA\302@ \"\210|\210\303\211\223\210\211\303\211\223\266\203\207" [w3m-cache-articles w3m-cache-hashtb remhash nil] 6 (#$ . 165080)]) #@121 Remove the data coresponding to URL from the cache. Must run in `w3m-cache-buffer' where read-only is lifted. (fn URL) (defalias 'w3m-cache-remove-1 #[257 "\302\"\303\211\205.\304@ \"\210A@\211\262AA\211\262|\210\303\211\223\210\211\303\211\223\210\305\"\211\207" [w3m-cache-articles w3m-cache-hashtb assoc nil remhash delq] 7 (#$ . 165372)]) #@63 Remove the data coresponding to URL from the cache. (fn URL) (defalias 'w3m-cache-remove #[257 "\304 \210rq\210\305\211\306\n\"\307\211\2058\310@ \"\210A@\211\262AA\211\262|\210\307\211\223\210\211\307\211\223\210\311\n\"\211\266\204*\207" [w3m-cache-buffer inhibit-read-only w3m-cache-articles w3m-cache-hashtb w3m-cache-setup t assoc nil remhash delq] 8 (#$ . 165735)]) #@102 Store the contents of URL into the cache. The contents are assumed to be in BUFFER. (fn URL BUFFER) (defalias 'w3m-cache-contents #[514 "\304 \210\305!\262rq\210\306\307!\210\n\247\203! G\nY\203!\310 \210db\210`\311!\210dV\205< \312!\313 BBC\244\211\262*\207" [w3m-cache-buffer inhibit-read-only w3m-keep-cache-size w3m-cache-articles w3m-cache-setup w3m-w3m-canonicalize-url t w3m-cache-remove-1 w3m-cache-remove-oldest insert-buffer-substring copy-marker point-max-marker] 7 (#$ . 166128)]) #@202 Insert contents of URL into BUFFER. Return t if the contents are found in the cache, otherwise nil. When BUFFER is nil, all contents will be inserted in the current buffer. (fn URL &optional BUFFER) (defalias 'w3m-cache-request-contents #[513 "\303 \210\211\204\np\262rq\210\304 \"\305\211\2050A@\262AA\262rq\210\306\307#\210*\306\266\203)\207" [w3m-cache-buffer w3m-cache-articles inhibit-read-only w3m-cache-setup assoc nil t insert-buffer-substring] 9 (#$ . 166643)]) #@70 Return non-nil if contents of URL has already been cached. (fn URL) (defalias 'w3m-cache-available-p #[257 "\303 \210\304\211\211\305;\205\275\306 \307#\211\262\307=?\205\275\n\206\275\310 \311\312\"\216\313\314\"\203?\313\315\"\204;\313\316\"\203?\304\202\272\313\317\"\203\224\320\321\"\211\262\203\224\322!\211\262\203\224\313\323\"\203\224\324\320\321\"!\211\262\203\224\325!\262\211@\\\240\210\326@!\203\206\327\330!\240\210\331\332\"\262\333\334 \"\202\272\313\335\"\203\266\320\321\"\211\262\203\266\322!\211\262\203\266\333\334 \"\202\272\313\336\")\262)\207" [case-fold-search w3m-cache-hashtb w3m-prefer-cache w3m-cache-setup nil t gethash void match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "^\\(?:date\\|etag\\):[ ]" "^pragma:[ ]+no-cache\n" "^cache-control:\\(?:[^\n]+\\)?[ ,]\\(?:no-cache\\|max-age=0\\)[,\n]" "^date:[ ]\\([^\n]+\\)\n" match-string 1 w3m-time-parse-string "^cache-control:\\(?:[^\n]+\\)?[ ,]max-age=\\([1-9][0-9]*\\)" string-to-number decode-time floatp eval (lsh -1 -1) apply encode-time w3m-time-newer-p current-time "^expires:[ ]+\\([^\n]+\\)\n" "^\\(?:last-modified\\|etag\\):"] 9 (#$ . 167137)]) #@391 Prompt the user for a file-path name, and returns that value. This is basically a wrapper for the emacs-native function `read-file-name'. If PROMPT is nil, use default string 'Save to'. If DIR is nil, use `w3m-default-save-directory'. DEFAULT-FILENAME, MUSTMATCH, and INITIAL are as documented for function `read-file-name'. (fn &optional PROMPT DIR DEFAULT-FILENAME MUSTMATCH INITIAL) (defalias 'w3m-read-file-name #[1280 "\204\211\203\211\302\230\204\303\304\"\202\305\262\306\206!\262\307%\310!\204A\311!\206=\202M\211\203M\312\"\262\312!)\207" [w3m-default-save-directory default-directory "" format "Save to (%s): " "Save to: " file-name-as-directory read-file-name file-directory-p file-name-directory expand-file-name] 12 (#$ . 168383)]) #@165 Return a coding system which is most suitable to CHARSET. CHARSET is a symbol whose name is MIME charset. This function is imported from mcharset.el. (fn CHARSET) (defalias 'w3m-charset-to-coding-system #[257 "\211;\203 \301\227!\262\211\236\211\203\211A\202\302!\205\211\207" [w3m-charset-coding-system-alist intern coding-system-p] 5 (#$ . 169182)]) #@230 Read a content charset from the minibuffer, prompting with string PROMPT. The second argument DEFAULT is the default value, which is used as the value to return if the user enters the empty string. (fn PROMPT &optional DEFAULT) (defalias 'w3m-read-content-charset #[513 "\301\302\303\304 \"\302\305\"\244\306\307$\211\310\230\203\207\207" [w3m-charset-coding-system-alist completing-read mapcar #[257 "\300!B\207" [symbol-name] 3 "\n\n(fn C)"] coding-system-list #[257 "\300@!B\207" [symbol-name] 3 "\n\n(fn C)"] nil t ""] 8 (#$ . 169554)]) #@155 Decode encoded contents in the current buffer. Return t if successful. This function supports the encoding types gzip, bzip, and deflate. (fn ENCODING) (defalias 'w3m-decode-encoded-contents #[257 "\211;\205\n\306\227\"\211A\307=\203#\310\311!\203#\311 \203#\312ed\"\206\235\211\205/\211A \236A\211\262?\206\235\313\211\211\211B\314 !\315!\203L\316!\202N\315!\203\\\316!\202l\315\317\320!!\203j\317\320!\202l\211\203\207\211@\321@A\"\210A\266\202\202s\210\322\323ed\324@!\325\326\327A@&\330U.\207" [w3m-encoding-alist w3m-decoder-alist default-process-coding-system coding-system-for-read coding-system-for-write process-environment assoc gzip fboundp zlib-available-p zlib-decompress-region binary copy-sequence file-directory-p file-name-as-directory expand-file-name "~/" setenv apply call-process-region w3m-which-command t (t nil) nil 0 w3m-profile-directory temporary-file-directory default-directory w3m-command-environment] 11 (#$ . 170112)]) #@16 (fn CHARSET) (defalias 'w3m-correct-charset '(macro . #[257 "\300\301\302D\303\304\305D\306BBDFE\207" [or and stringp cdr assoc downcase (w3m-correct-charset-alist)] 9 (#$ . 171119)])) (defalias 'w3m-detect-meta-charset #[0 "\301eb\210\3022\233\303\304\305\301#\205\232\306\224\203\307 \210\202 \305\211\310\305w\210\311\312!\203@\313\314\315!\2068\314\316!\2068\314\306!!\227\211\262\202g\311\317!\203^\313\314\315!\206V\314\316!\206V\314\306!!\227\211\262\202g\311\320!\204j\311\321!\203u\322\225b\210\310\305w\210\202\"\323\305w\210\305u\210\324\230\203\225\211\203\225\325\326\"\203\225\327\302\330\306\"\"\210\266\202 0)\207" [case-fold-search t found re-search-forward "\\("] 5 (#$ . 208336)]) #@163 Remove alt="whitespace" attributes in img tags. Such attributes not only obscure them but also might make images not be displayed especially in shimbun articles. (defalias 'w3m-remove-invisible-image-alt #[0 "eb\210\301\302\211\303\304\302\301#\2054\305\225\262\306\307\302\301#\2054\310\224\262b\210\303\311\301#\2054\310\224\310\225|\210\202)\207" [case-fold-search t nil re-search-forward "\\(" 0 "[ \n\f ]+alt=\"[ \n\f ]*\""] 7 (#$ . 208570)]) #@60 Process header tags (,) in the current buffer. (defalias 'w3m-check-header-tags #[0 "\306\307eb\210\310\311\307\306#\205Q\214e`}\210eb\210\310\312\307\306#\205P\313\314!\227\262\211\315\230\203\372\307\211\211\316\307w\210\317\320!\203P\321\322\323!\206H\322\324!\206H\322\314!!\227\211\262\202\223\317\325!\203m\321\322\323!\206f\322\324!\206f\322\314!!\211\262\202\223\317\326!\203\212\321\322\323!\206\203\322\324!\206\203\322\314!!\211\262\202\223\317\327!\204\226\317\330!\203\241\331\225b\210\316\307w\210\2022\332\307w\210\307u\210\203\365\333!\262\334\235\203\300B\266\202\335\235\203\315\266\202\336\235\204\331\337\235\203\340\266\202\340\235\203\355\266\202\341\235\203\365\266\202\211\342\230\203\307\316\307w\210\317\325!\203\"\321\322\323!\206\322\324!\206\322\314!!\211\262\202+\317\327!\204.\317\330!\2039\331\225b\210\316\307w\210\202\332\307w\210\307u\210\331GW\203L\343!$\210\202))\207" [case-fold-search w3m-icon-data w3m-next-url w3m-previous-url w3m-start-url w3m-contents-url t nil re-search-forward "]*\\)?>" "<\\(link\\|base\\)[ \f\n]+" match-string 1 "link" " \f\n" looking-at "rel[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" w3m-remove-redundant-spaces match-string-no-properties 2 3 "href[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "type[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[A-Za-z]*[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[^<> \f\n]+" 0 "^>" split-string "icon" "next" "prev" "previous" "start" "contents" "base" w3m-expand-url w3m-current-base-url] 8 (#$ . 209075)]) #@37 Get REFRESH attribute in META tags. (defalias 'w3m-check-refresh-attribute #[0 "\304 \205\323\305\n\304eb\210\3062\320\307\310\304\305#\205\317\304\211\311\304w\210\312\313!\203>\314\315\316!\2066\315\317!\2066\315\320!!\227\211\262\202d\312\321!\203[\314\315\316!\206T\315\317!\206T\315\320!!\211\262\202d\312\322!\204g\312\323!\203r\324\225b\210\311\304w\210\202 \325\304w\210\304u\210\326\230\203\312\327\330\"\203\217\315\324\"\262\202\261\327\331\"\203\261\315\320\"\262\332\315\316\"!\262\327\333\"\203\261\334\320\"\262\203\312\327\330\"\203\312\335\306\336!\337!B\211\"\210\266\2020)\266\203\207" [w3m-current-refresh w3m-use-refresh w3m-current-url case-fold-search nil t found re-search-forward " \f\n]*\\)" w3m-remove-redundant-spaces match-string-no-properties 2 3 1 "content[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[A-Za-z]*[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[^<> \f\n]+" 0 "^>" "refresh" string-match "\\`[0-9]+\\'" "\\([^;]+\\);[ \n]*url=[\"']?\\([^\"']+\\)" w3m-decode-entities-string "\\`[\"']\\(.*\\)[\"']\\'" match-string throw string-to-number w3m-expand-url] 10 (#$ . 210860)]) (defalias 'w3m-remove-meta-charset-tags #[0 "\301eb\210\3022\221\303\304\305\301#\205\220\306\224\305\211\307\305w\210\310\311!\2037\312\313\314!\206/\313\315!\206/\313\316!!\227\211\262\202^\310\317!\203U\312\313\314!\206M\313\315!\206M\313\316!!\227\211\262\202^\310\320!\204a\310\321!\203l\306\225b\210\307\305w\210\202\322\305w\210\305u\210\323\230\205\214\211\205\214\324\325\"\205\214`|\210\326\302\305\"\266\202\2620)\207" [case-fold-search t found re-search-forward " \f\n]*\\)" w3m-remove-redundant-spaces match-string-no-properties 2 3 1 "content[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[A-Za-z]*[ \f\n]*=[ \f\n]*\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \f\n]*\\)" "[^<> \f\n]+" "^>" "content-type" string-match ";[ \n]*charset=" throw] 6]) #@270 Replace
...
within ... with ...
.
is a block element that should not appear within inline elements like , however some web sites, e.g., news.google.com.tw, do so and w3m regards it as an incomplete tag that is not closed. (defalias 'w3m-fix-illegal-blocks #[0 "\301eb\210\302\303\304\301#\205H\214\305\224\306\307!\206d}\210eb\210\302\310\304\301#\203A\306\311!\203\312\313\305\224\314\225{\315\304O\316Q\301\211#\210\305\224b\210\202db\210)\202)\207" [case-fold-search t re-search-forward "]" "div" replace-match ""] 5 (#$ . 213171)]) #@73 Extract the title from the halfdump and put it into the current buffer. (defalias 'w3m-rendering-extract-title #[0 "eb\210\301\302\303\304#\203)\305\306\307\310 \311\312\"\216\313\314\315!!)\262\316#!\317\224\317\225|\210\206=;\203<\320\321\"\203<\314\315\"\206=\322\207" [w3m-current-url re-search-forward "" nil t w3m-decode-entities-string mapconcat identity match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] split-string match-string 1 " " 0 string-match "/\\([^/]+\\)/?\\'" ""] 7 (#$ . 213840)]) (defalias 'w3m-set-display-ins-del #[0 "\306=\205\275\307\310\311\"r\211q\210\312\313\"\216  \314=\203\f\202 \n B\"\315#!\316\211\315$!\317%!\203?\320%!\202A&\317%!\203O\320%!\202_\317\321\322!!\203]\321\322!\202_&'&$\323\324\325\326\"\"B\211\203\202\211@\327@A\"\210A\266\202\202n\210\330(\206\213)\316\311\316\331%\210eb\210\332\333\316\311#\205\266\334\335!\262\211\336\230\203\255\337\211\202\266\211\340\230\205\266\341\211.\266\202*\262\207" [w3m-display-ins-del w3m-output-coding-system coding-system-for-read w3m-input-coding-system w3m-current-coding-system coding-system-for-write auto generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] binary copy-sequence nil file-directory-p file-name-as-directory expand-file-name "~/" ("LANG" . "C") delq assoc "LANG" setenv call-process "-o" re-search-forward "display_ins_del=<\\([^>]+\\)>" match-string 1 "number" fontify "bool" tag default-process-coding-system w3m-command-environment process-environment w3m-profile-directory temporary-file-directory default-directory w3m-halfdump-command w3m-command] 9]) #@169 Run w3m -halfdump on buffer's contents. CHARSET is used to substitute the `charset' symbols specified in `w3m-halfdump-command-arguments' with its value. (fn CHARSET) (defalias 'w3m-rendering-half-dump #[257 "\306 \210\n\307=\203 \202\n \fB\310!\311!\203'\312!\202) \311!\2037\312!\202G\311\313\314!!\203E\313\314!\202G ! \"\211\203c\211@\315@A\"\210A\266\202\202O\210\316\317ed#\206o$\320\211\321\322\323%&\324'\235\205\261(\203\256\325 \204\223)\203\256*\203\256\326\327\330\331)\206\236\332 !\333\331*\206\250\334 !\257\202\261\326\335D#\n\"&.\207" [w3m-output-coding-system coding-system-for-read w3m-input-coding-system w3m-current-coding-system coding-system-for-write default-process-coding-system w3m-set-display-ins-del binary copy-sequence file-directory-p file-name-as-directory expand-file-name "~/" setenv apply call-process-region t nil w3m-w3m-expand-arguments append "image" display-images-p "-o" "display_image=on" "-ppl" number-to-string frame-char-height "-ppc" frame-char-width "display_image=off" process-environment w3m-profile-directory temporary-file-directory default-directory w3m-command-environment w3m-halfdump-command w3m-command w3m-halfdump-command-arguments w3m-halfdump-command-common-arguments w3m-compile-options w3m-treat-image-size w3m-pixels-per-line w3m-pixels-per-character] 20 (#$ . 215610)]) #@171 Make things that look like urls unbreakable. This function prevents non-link long urls from being broken (w3m tries to fold them). Things in textarea won't be modified. (defalias 'w3m-markup-urls-nobreak #[0 "\301e\302\303 \304b\210\203\225\214\305\306\304\301#\203%\307\224b\210\310\224\262\202&d}\210\305\304\301#\203\201\307\225\304\223\210\307\224b\262\311\312\304\301#\203N\310\224\203Nb\210\202(\211b\210\313\304x\210\314\315`\316Ze]`{\"\203h\317u\210\202k\211b\210\320c\210b\210\321\322!\203{\307\225b\210\323c\210\202(db\210)m?\205\220b\210\324\325!\262\202 \304\211\223)\207" [case-fold-search t "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\(?:[-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+([-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+[-a-z0-9_=#$@~%&*+\\/[:word:]]*)\\(?:[-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)?\\|[-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)\\)" make-marker nil re-search-forward "[ \n ]*\\(" " \f " string-match "<" 4 -4 "" looking-at "[ \f ]*>" "" w3m-end-of-tag "textarea"] 10 (#$ . 217012)]) #@98 Do rendering of contents in the currenr buffer as HTML and return title. (fn &optional CHARSET) (defalias 'w3m-rendering-buffer #[256 "\301\302!\210\303 \210\304 \210\305 \210\306 \210\307=\204\310 \210\311 \210\312 \210\313!\210\301\314!\210\315 \207" [w3m-type w3m-message "Rendering..." w3m-remove-comments w3m-remove-invisible-image-alt w3m-check-header-tags w3m-check-refresh-attribute w3m-m17n w3m-remove-meta-charset-tags w3m-fix-illegal-blocks w3m-markup-urls-nobreak w3m-rendering-half-dump "Rendering...done" w3m-rendering-extract-title] 3 (#$ . 218275)]) #@57 (fn URL SILENT PAGE-BUFFER ARRIVAL-TIME CHARSET TYPE) (defalias 'w3m--retrieve-and-render--handler-function #[1542 "\203 \262\306\307!\205\237\310!\262\211\203\323\211\311\230\203;\312\"\205\237\313\306\314 \314 $\210\315\316\"\202\237\317\320\306\"8\313\306$\210\211\204X\321\322\306#\266\323!\230\204\207\313\306\211$\210\211\321\324\325\f\324\"#\266\211\321\322\325\f\322\"#\266\211\262\210\326\325 \327\"\206\224\206\247\325\n\330\"\206\247\320\n\306\"A@$\331\332\"\210 \204\316\333!\204\316\315\334 \335 !#\210\336\337\306\340\n\306$\210\262\202\237 \2032\341\342\"\2032rq\210\343\3441\360\345\346!0\202\364\210\202\203\347\337!\210\350\351\352\"\210\353 \210\354\355\356 \357\245\"\210\354\360\361\362  GZ\363Z\357\245]\"\210\364\365\261\210\366`\367c\210`\370\371$\210\372@*\313\306\314 \314 $\210\373 \210A@\343=\203LAAA>\205h\374!\206]\341\375\"?\205h\376#rq\210\315\377B\203\210B\361=\204\210\201D\201EB\"\202\234C\203\231\201D\201FC\"\202\234\201G#\210))\207" [w3m-onload-url w3m-message-silent w3m-after-cursor-move-hook w3m-clear-display-while-reading inhibit-read-only w3m-current-url nil buffer-live-p w3m-url-strip-authinfo "X-w3m-error/redirection" w3m-show-redirection-error-information w3m-arrived-add current-time w3m-message "Cannot retrieve URL: %s" 4 w3m-attributes w3m-arrived-put last-modified w3m-real-url title w3m-arrived-get w3m-create-page content-type content-charset w3m-force-window-update-later 1e-09 get-buffer-window "The content (%s) has been retrieved in %s" buffer-name run-at-time 0.5 #[257 "\211\211\207" [w3m-after-cursor-move-hook] 3 "\n\n(fn ORIG)"] string-match "\\`file:" t (error) require zone sit-for zone-call zone-pgm-dissolve 1 erase-buffer insert-char 10 window-height 2 32 0 window-width 15 "Reading " " " put-text-property "failed!" face w3m-error "Fail" ding w3m-url-local-p "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" w3m-current-title w3m-current-forms w3m-process-exit-status w3m-http-status format " (exit status: %s)" " (http status: %s)" ""] 15 (#$ . 218852)]) #@406 Retrieve contents of URL and render them in the current buffer. It returns a `w3m-process' object and comes to an end immediately. The HANDLER function will be called when rendering is complete. When a new content is retrieved in the buffer, the HANDLER function will be called with t as an argument. Otherwise, it will be called with nil. (fn URL &optional NO-CACHE CHARSET POST-DATA REFERER HANDLER) (defalias 'w3m-retrieve-and-render #[1537 "C\203%\306p\307\"\203%\310\311\242\"\204%\312\313\314\"\210\315\316 \210\317\242!\210)\n\205C \205C\f\320>\206B\310\321\242\"\206B\322\323!\324\313!\210??\205\313\211\325\242!\240\210p\326 \327\330 !!p\331\332\f&\331\333#\nBBrq\210\334 \210\335 \242\313&)\262\336!\203\242 \203\234\211\202\307\337!\202\307\336r B!\262)\211\262!\203\304 \203\276\211\202\307\337!\202\307!\262\266\207\207" [w3m-clear-display-while-reading inhibit-read-only w3m-current-ssl w3m-confirm-leaving-secure-page this-command w3m-message-silent get-buffer-window visible string-match "\\`about:" set-window-hscroll nil 0 t erase-buffer w3m-display-progress-message (w3m w3m-goto-url w3m-redisplay-this-page w3m-reload-this-page w3m-history w3m-view-next-page w3m-view-previous-page w3m-view-header w3m-view-source) "\\`\\(?:ht\\|f\\)tps://" y-or-n-p "You are leaving secure page. Continue? " message w3m-url-strip-fragment current-time w3m-get-buffer-create generate-new-buffer-name make-closure #[257 "\306\305!\203 \305q\210\307\300\242\304\302\303\301&\207" [V0 V1 V2 V3 V4 V5 buffer-name w3m--retrieve-and-render--handler-function] 8 "\n\n(fn TYPE)"] #[257 "\302\300!\210\303\301!\203 \301q\210\207" [V0 V1 w3m-kill-buffer buffer-name] 3 "\n\n(fn TYPE)"] w3m-clear-local-variables w3m-retrieve w3m-process-p w3m-process-start-process w3m-work-buffer-name] 22 (#$ . 221038)]) #@73 Create and prepare the error information. (fn URL CHARSET PAGE-BUFFER) (defalias 'w3m-show-error-information #[771 "\305\306!\307\211\211rq\210 \262\n\262)\310\311\n\312\2030\313=\2040\314\315 \n#\202B\205B\314\316\211\f\236A\206A\317#\260\262\203Q\320\321\"\203\211\211c\210\204f\322c\210\320\323 \"\203f\324c\210\214``}\210\325!\203\205\326\327\330\n\307\"8\211\262 !\210eb\210\331c\210)\202\355eb\210\332\333\307\305#\204\232\332\334\307\305#\210n\204\241\335c\210\211c\210\214``}\210\325!\203\306\326\327\330\n\307\"8\211\262 !\210eb\210\336c\210db\210)m\204\316\336c\210\203\355\332\337\307\305#\204\340\332\340\307\341#\210n\204\347\335c\210\342\343\261\210)\266\344\345$\210\307\207" [case-fold-search w3m-process-exit-status w3m-http-status w3m-command w3m-http-status-alist t w3m-cache-request-header nil "

Cannot retrieve URL: " "

\n" 0 format "

%s exits with the code %s

\n" "

%s %s

\n" "" string-match "\\`w3m: Can't load " "

Something seems to be wrong with URL or this system.\n" "\\`news:" "
Also verify the value of the NNTPSERVER environment variable that should be the address of the NNTP server.\n" w3m-cache-request-contents w3m-decode-encoded-contents 3 w3m-attributes "


\n

Contents


\n" search-forward "" "" "\n" "


\n" "" "" max "



Header information


\n
" "
\n" w3m-create-page "text/html"] 18 (#$ . 222920)]) #@24 (fn URL PAGE-BUFFER) (defalias 'w3m-show-redirection-error-information #[514 "\300 \210\301\302\301\303\211#\304#c\210\305\306\307$\207" [erase-buffer format "\n

Cannot retrieve URL: %s



%s" "%s" "The number of redirections has exceeded a limit. This may have
\n\nhappened due to the server side miss-configuration. Otherwise,
\n\ntry increasing the limit, the value of `w3m-follow-redirection'.
\n" w3m-create-page "text/html" "us-ascii"] 8 (#$ . 224504)]) #@267 Prepare contents in the current buffer according to TYPE. URL is assumed to be a place where the contents come from. CHARSET is passed to the filter function corresponding to TYPE if it is specified in the `w3m-content-type-alist' variable. (fn URL TYPE CHARSET) (defalias 'w3m-prepare-content #[771 "\301\302\"8\303!\203\211#\207\211;\203\207\211\204\207\304\207" [w3m-content-type-alist 3 assoc functionp ""] 8 (#$ . 225029)]) #@25 (fn URL TYPE CHARSET) (defalias 'w3m-prepare-markdown-content #[771 "\203\303\211\304#\210\305\306ed@\307\310\311A&\210*\312\207\313\207" [w3m-markdown-converter coding-system-for-write coding-system-for-read utf-8 w3m-decode-buffer apply call-process-region t (t nil) nil "text/html" "text/plain"] 12 (#$ . 225480)]) #@129 Check if the type of xml contents of URL is xhtml+xml. If so return "text/html", otherwise "text/plain". (fn URL TYPE CHARSET) (defalias 'w3m-detect-xml-type #[771 "\301\302\303\"r\211q\210\304\305\"\216\306!\210\307#\210eb\210\303\310\311\312\303#\203(\313\202)\314*\207" [case-fold-search generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] w3m-retrieve w3m-decode-buffer re-search-forward "<[ \n ]*html\\(?:\\(?:[ \n ]+[^>]+\\)?>\\|[ \n ]*>\\)" nil "text/html" "text/plain"] 8 (#$ . 225818)]) #@251 Scale display sizes based upon faces remapped by `text-scale-mode'. This macro scales the return values of frame-char-height/width and window-height/width according to `text-scale-mode' of PAGE-BUFFER while running BODY. (fn PAGE-BUFFER &rest BODY) (defalias 'w3m-with-text-scale-mode '(macro . #[385 "\300\301\302\303\304BB\305BBD\306B\307\310\311B\312BBF\207" [let scale with-current-buffer or ((current-buffer)) ((and (boundp 'text-scale-mode) text-scale-mode (ignore-errors (cadr (assq :height (assq 'default face-remapping-alist)))))) (fns def) (when (and (numberp scale) (> scale 0)) (dolist (fn '(frame-char-height frame-char-width)) (push (cons fn (setq def (symbol-function fn))) fns) (fset fn `(lambda (&rest args) (ceiling (* (apply #',def args) ,scale))))) (dolist (fn '(window-height window-width)) (push (cons fn (setq def (symbol-function fn))) fns) (fset fn `(lambda (&rest args) (floor (/ (apply #',def args) ,scale)))))) unwind-protect progn ((dolist (fn fns) (fset (car fn) (cdr fn))))] 8 (#$ . 226390)])) #@37 (fn URL TYPE CHARSET PAGE-BUFFER) (defalias 'w3m-create-text-page-1 #[1028 "\304#\210\305!\203\306!\202\307\230\203+\310!\311\312#\266\211\262\202N\313\314\"\203=\315\316\225\317O\312\"\206N\320\313\321\"\203L\322!\202M!prq\210\323~\210ed|\210\324!\210eb\210\325!\210\326 !\210\307\230\203t\327 \210*\330\207" [w3m-current-url w3m-current-title inhibit-read-only w3m-current-coding-system w3m-safe-decode-buffer w3m-arrived-p w3m-real-url "text/html" w3m-rendering-buffer w3m-arrived-put title string-match "\\`about://\\(?:source\\|header\\)/" w3m-arrived-get 0 nil file-name-nondirectory "/\\'" directory-file-name t insert-buffer-substring w3m-copy-local-variables set-buffer-file-coding-system w3m-fontify text-page] 10 (#$ . 227424)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put w3m-create-text-page-1 speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@37 (fn URL TYPE CHARSET PAGE-BUFFER) (defalias 'w3m-create-text-page #[1028 "r\211\206pq\210\306\300!\205#\205#\3071!\310\311 \236\236A@0\202#\210\312)\312C\312\247\203\222\313V\203\222\314\211\203a\211@\211K\211\262B\242B\240\210\211\315\316\317\320\321\322 D\323BB\nEDEM\210A\266\202\2023\210\324\211\203\221\211@\211K\211\262B\242B\240\210\211\315\325\326\327\321\322 D\330BB\nEDEM\210A\266\202\202c\210\331\332\"\216\333#\210\334!\203\261\335!\202\262\336\230\203\312\337!\340\341#\266\211\262\202\355\342\343\"\203\334\344\313\225\312O\341\"\206\355\345\342\346\"\203\353\347!\202\354!prq\210\350~\210ed|\210\351!\210eb\210\352!\210\353 !\210\336\230\203\354 \210*\266)\355\207" [text-scale-mode face-remapping-alist w3m-current-url w3m-current-title inhibit-read-only w3m-current-coding-system boundp (error) :height default nil 0 (frame-char-height frame-char-width) lambda (&rest args) ceiling * apply function (args) (window-height window-width) (&rest args) floor / (args) make-closure #[0 "\300\242\211\205\211@\211@AM\210A\266\202\202\207" [V0] 4] w3m-safe-decode-buffer w3m-arrived-p w3m-real-url "text/html" w3m-rendering-buffer w3m-arrived-put title string-match "\\`about://\\(?:source\\|header\\)/" w3m-arrived-get file-name-nondirectory "/\\'" directory-file-name t insert-buffer-substring w3m-copy-local-variables set-buffer-file-coding-system w3m-fontify text-page] 17 (#$ . 228357)]) (defalias 'w3m-image-page-displayed-p #[0 "\205\301\302\303\304\"@\206\305\"\205\306e\307\"\310=\207" [w3m-current-url string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on] 5]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put w3m-image-page-displayed-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@37 (fn URL TYPE CHARSET PAGE-BUFFER) (defalias 'w3m-create-image-page #[1028 "\303!\205:r\211q\210\304\305 \210\306!\307!~\210ed|\210\nc\210\310ed\311#\210\312ed\313\314\311 \315\316F\"\317$\210\320 \210*\321\207" [inhibit-read-only w3m-current-url w3m-current-title w3m-image-type t w3m-clear-local-variables w3m-real-url file-name-nondirectory w3m-add-face-property w3m-image add-text-properties append (rear-nonsticky t) mouse-face highlight nil image-mode-setup-winprops image-page] 13 (#$ . 230217)]) #@208 Internal function for `w3m-create-page'. When the display does not support handling the mime-type, inform the user and attempt to use an external program or just download the url. (fn PAGE-BUFFER URL TYPE) (defalias 'w3m--unsupported-display #[771 "rq\210\303!\203\304!\202\305!\306\307 \210\310\311\312\313\"\203(\314\202)#c\210\315e`\"\210eb\210\316\317\320 \321Z\322\245\"\210)eb\210\323!\210\324!\210\325 \210)\326\207" [w3m-current-url w3m-current-title inhibit-read-only w3m-arrived-p w3m-real-url file-name-nondirectory t erase-buffer format "This display does not support %s:\n<%s>\nAttempting external view or download..." string-match "\\`image/" "image" center-region insert-char 10 window-height 3 2 w3m-external-view w3m-process-stop w3m-view-previous-page external-view] 8 (#$ . 230737)]) #@315 Internal function for `w3m-create-page'. Display raw contents, prompt the user for the mime-type to use, and update buffer's local variables accordingly. Return a cons of content type and urls, where urls is a cons of a url to have been restored and a url to download or external-view. (fn URL TYPE PAGE-BUFFER) (defalias 'w3m--prompt-for-unknown-content-type #[771 "p\306\211\211\211\211\307\310\311\"r\211q\210\312\313\"\216\314\315\311\"\210\316!\210\317 \312\320\"\216\321p!\210\322 \210\323 \210\324\325!\210\311\326\327 \330Z\331\245\332\"\262rq\210\333ed\"\334 W\203V\335 \262\202\244\334 \336W\203yeb\210\325\334 \331Z]y\210e`{\337\340\n\341\260\262\202\244eb\210\334 \342Z\331\245y\210e`{\337\340\n\343\260\262db\210\342\334 Z\331\245y\210`d{P\262)c\210eb\210\3441\357\306\345\346\347\350!G\325U\203\304\351\202\311\352\353Q# \306\311$\262 \nG\325U\203\337\311\211\262\202\351 \354\355#\262)0\210\202\363\210\311\262)\210*\210\204\377\2031\356!\210rq\210\306 \203\357\306\311\"\210\202-\360 @@\203&\361\306\311\"\210\202-\203-\362 \210 \262)\2037\363\207\205A BB\207" [enable-multibyte-characters truncate-lines inhibit-quit w3m-content-type-alist w3m-current-process w3m-current-url nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] rename-buffer " *Raw Contents*" set-buffer-multibyte current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] pop-to-buffer delete-other-windows ding sit-for 0 make-string window-width 6 2 46 count-lines window-height buffer-string 10 "\n[" "snip" "]" 4 "]\n\n" (quit) completing-read format "Content type for %s (%sjust type to download or external-view): " file-name-nondirectory "" "\"" "\" is unknown; " w3m-arrived-put content-type w3m-process-stop w3m-redisplay-this-page w3m-history-backward w3m-view-previous-page w3m-delete-buffer quit] 19 (#$ . 231567)]) #@133 Select a renderer or other handler for URL. Choice is based upon content-type or mime-type TYPE. (fn URL TYPE CHARSET PAGE-BUFFER) (defalias 'w3m-create-page #[1028 "\306;\203\307\"\2049\310!\2049\311#\211\312=?\2054\211@\262\211A:\2033\211A@\262\211AA\262\313\262\205\327\306\314#\262\315#\210\206N\n\262 \203X\316!\210\317!\210\320\321\"\203j\322$\207\320\323\"\203\205\324 \203}\325$\207\326#\207\f\235\203\257\324 \204\230\326#\207rq\210\327!\203\250\330!\202\251)\331!\207rq\210\327!\203\277\330!\202\300\332 \333\"\206\313\334 !\335\206\323!\210)\336\207" [w3m-content-type-alist w3m-current-coding-system w3m-current-content-charset w3m-use-filter w3m-doc-view-content-types w3m-current-url nil assoc w3m-image-type w3m--prompt-for-unknown-content-type quit t w3m-prepare-content w3m-safe-decode-buffer w3m-filter w3m-relationship-estimate string-match "\\`text/" w3m-create-text-page "\\`image/" display-images-p w3m-create-image-page w3m--unsupported-display w3m-arrived-p w3m-real-url w3m-doc-view w3m-arrived-get title file-name-nondirectory w3m-external-view external-view w3m-current-title] 10 (#$ . 233554)]) #@61 Estimate relationships between a page and others. (fn URL) (defalias 'w3m-relationship-estimate #[257 "\212\301 \302\303\"\216\3042,\211\205)\211@\305@A#\203\"\306\304\307\"\210A\266\202\202 \2620)\262)\207" [w3m-relationship-estimate-rules match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] estimated apply throw t] 8 (#$ . 234764)]) #@153 Search relationships with given patterns when the URL of the retrieved page matches the REGEXP. (fn URL REGEXP &optional NEXT PREVIOUS START CONTENTS) (defalias 'w3m-relationship-simple-estimate #[1538 "\300\"\205\301%\207" [string-match w3m-relationship-search-patterns] 12 (#$ . 235150)]) #@67 Search relationships for pages generated by MagicPoint. (fn URL) (defalias 'w3m-relationship-magicpoint-estimate #[257 "db\210\300\301\302\303#\205eb\210\304\305\306\307\310%\207" [search-backward "Generated by MagicPoint" nil t w3m-relationship-search-patterns " \f\n]*\\)>\\[next>\\]" " \f\n]*\\)>\\[<prev\\]" " \f\n]*\\)>\\[<<start\\]" " \f\n]*\\)>\\[index\\]"] 7 (#$ . 235459)]) #@12 (fn URL) (defalias 'w3m-relationship-oddmuse-estimate #[257 "\302\303\"\205#eb\210\304\305\306\307#\203\310\311!\304\312\306\307#\205#\310\311!\211\207" [w3m-previous-url w3m-next-url string-match "/wiki\\?search=.*" re-search-forward "href=\"\\([^\"]+\\)\">Previous" nil t match-string 1 "href=\"\\([^\"]+\\)\">Next"] 5 (#$ . 236140)]) #@12 (fn URL) (defalias 'w3m-relationship-slashdot-estimate #[257 "eb\210\303\304\"\205i\305\306\307\310#\205i`\212\305\311\307\310#)\211\205g\312\313\310#\205g\314\315Q\212\316\310#)\203H\317\320\321\322!\206E\321\323!\206E\321\324!!!\312\310#\205e\317\320\321\322!\206a\321\323!\206a\321\324!!!\211\262\266\202\207" [w3m-html-string-regexp w3m-previous-url w3m-next-url string-match "slashdot\\.org/\\(article\\|comments\\)\\.pl\\?" search-forward "
" nil t "
" re-search-forward "\\(([0-9]+)\\)" "" re-search-backward w3m-expand-url w3m-decode-anchor-string match-string 2 3 1] 8 (#$ . 236500)]) #@12 (fn URL) (defalias 'w3m-relationship-alc-estimate #[257 "\302\303\"\205V\304\305\306\307#\203\310\311\312!\"\304\313\306\307#\203%\310\311\312!\"\206* ?\205Veb\210\304\314\306\307#\203C\310\315\316\311\312!\"\"\304\317\306\307#\205V\310\315\316\311\312!\"\"\211\207" [w3m-previous-url w3m-next-url string-match "\\`http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/" re-search-forward "前へ" nil t w3m-expand-url match-string 1 "次へ" "前へ" format "?pg=%s" "次へ"] 6 (#$ . 237176)]) #@92 Search relationships with given patterns. (fn URL NEXT PREVIOUS &optional START CONTENTS) (defalias 'w3m-relationship-search-patterns #[1283 "eb\210\203,\304\305\306#\203,\307\310\311\312!\206 \311\313!\206 \311\314!!\"\211\203,eb\210\203U\304\305\306#\203U\307\310\311\312!\206I\311\313!\206I\311\314!!\"\211\203Ueb\210\203~\304\305\306#\203~\307\310\311\312!\206r\311\313!\206r\311\314!!\"\211\203~eb\210\211\205\241\304\305\306#\205\241\307\310\311\312!\206\233\311\313!\206\233\311\314!!\"\211\207" [w3m-next-url w3m-previous-url w3m-start-url w3m-contents-url re-search-forward nil t w3m-expand-url w3m-decode-anchor-string match-string 2 3 1] 9 (#$ . 237939)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-anchor-list-filter-alist funcall function #[0 "\300\207" [(((".*" . "\\`https://[a-z]+\\.wikipedia\\.org/") . "\\`cite_.*[0-9]\\'") (".*" . "\\`mw-head\\'") (".*" . "\\`p-search\\'"))] 1] "Identification of \"junk\" anchor to be ignored in user searches.\nThe car of each element is a URL regexp, and the cdr is a regexp of\nanchor names to prune. If the car of each element is a cons cell,\nits car is a regexp matching a URL to be filtered and its cdr is a\nregexp matching a URL not to be filtered. This feature was prompted\nby the large number of useless anchors created by the very popular\nmedia-wiki software used for sites such as wikipedia." :group w3m :type (repeat (cons :format "%v" :indent 2 (group :format "%v" :match (lambda (_widget value) (or (consp value) (stringp value))) :value-to-internal (lambda (_widget value) (if (consp value) (if (consp (cdr value)) value (list (car value) (cdr value))) (list value))) :value-to-external (lambda (_widget value) (if (cdr value) (apply #'cons value) (car value))) (regexp :format "Regexp matching url to be filtered: %v") (checklist :inline t (regexp :format "Regexp matching url not to be filtered: %v"))) (regexp :format "Regexp matching anchor name: %v")))] 8) #@58 Prune "junk" anchors from ANCHOR-LIST. (fn ANCHOR-LIST) (defalias 'w3m--filter-page-anchors #[257 "\302\211\2039\211@\211@\211\262:\203\"\303@ \"\2032\303A \"?\202&\303 \"\2032\304\305\306\"\"\262A\266\202\202\207" [w3m-anchor-list-filter-alist w3m-current-url nil string-match cl-remove-if make-closure #[257 "\211@?\206\f\301\300A@\"\207" [V0 string-match] 4 "\n\n(fn X)"]] 8 (#$ . 239969)]) #@329 Return list of page anchors, sorted by SORT-METHOD. SUB-SETS defines from where to draw anchor information. It defaults to `all', but may also be `w3m-name-anchor' or `w3m-name-anchor2'. SORT-METHOD defaults to `position', but may also be `name' or a function that can be passed to `sort'. (fn &optional SUB-SETS SORT-METHOD) (defalias 'w3m--get-page-anchors #[512 "e\300\211\211\301=\204%\302\303\"\211\262\203\"\304\303\"@BB\262\202\ne\262\303=\204^\302\301\"\211\262\203^\304\301\"\262\203+\305\211A\262\242\211\262\"\203T\300\262\202;\211BB\262\202;\306!\262\307\203q\310=\203u\311\202\217\312=\203\200\313\202\217\314!\203\214\202\217\315\316!\"\207" [nil w3m-name-anchor2 next-single-property-change w3m-name-anchor get-text-property assoc w3m--filter-page-anchors sort position #[514 "AAW\207" #1=[] 4 "\n\n(fn X Y)"] name #[514 "@\227@\227\231\207" #1# 4 "\n\n(fn X Y)"] functionp error "Invalid arg: SORT-METHOD"] 10 (#$ . 240390)]) #@331 Navigate to HTML anchor NAME in the current buffer. When called interactively, the user is prompted for a name and provided a list of valid anchors. Set QUIET to non-nil to suppress an error message. Set NO-RECORD to non-nil to prevent the navigation from being pushed onto the history stack. (fn NAME &optional QUIET NO-RECORD) (defalias 'w3m-search-name-anchor #[769 "\301 \302\303\"\204?\205>\304\305\"\207\303\"A\262\2049`U\2049\306\307\302`F@\250\2057@T\233\"\211b\210\310 \207" [w3m-name-anchor-from-hist w3m--get-page-anchors nil assoc w3m-message "No such anchor: %s" append 1 w3m-recenter] 10 (#$ . 241396) (byte-code "\300\301\302\303!\304\305$\304\211E\207" [completing-read "Name: " w3m--get-page-anchors w3m-name-anchor2 nil t] 5)]) (defalias 'w3m-parent-page-available-p #[0 "\205\301 \302\303\"\216\304\305\")\262\207" [w3m-current-url match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`[a-z]+://?[^/]+/."] 4]) #@57 Return non-nil if the current page is able to be saved. (defalias 'w3m-url-savable-p #[0 "\205\301\302\"?\206\301\303\"\207" [w3m-current-url string-match "\\`\\(?:about\\|file\\):" "\\`about://\\(?:header\\|source\\)/"] 3 (#$ . 242404)]) #@337 Attempt to move to the parent directory of the page currently displayed. For instance, it will let you visit "http://foo/bar/" if you are currently viewing "http://foo/bar/baz". If COUNT is a integer, you will visit the parent directory to step up the COUNT. If COUNT is zero, you will visit the top of this site. (fn &optional COUNT) (defalias 'w3m-view-parent-page #[256 "\211\250\204\303\262\304!\262\305 \210\203(\211\306=\203(\307\310\"\203(\311\312\306\"!\207 \2030\311 !\207\n\2038\311\n!\207\203\250\3132\232\306U?\205\231S\262\307\314\"\203e\307\315\"\203t\312\303\"\316P\262\202t\307\317\"\203t\312\303\"\316P\262\307\320\"\203\203\321\313\322\"\210\202A\211\203A\307\323\"\203A\324\262\321\313\324\"\210\202A0\210\211\203\243\311!\207\325\326\"\207\325\327!\207" [w3m-current-url w3m-start-url w3m-contents-url 1 abs w3m-history-store-position 0 string-match "\\`[a-z]+:///?[^/]+/" w3m-goto-url match-string loop "/\\'" "\\(.*\\)/[^/]+/\\'" "/" "\\(.*\\)/.+\\'" "\\`[a-z]+:///?[^/]+/\\'" throw t "\\`[a-z]+:/+\\'" nil error "No parent page for: %s" "w3m-current-url is not set"] 5 (#$ . 242657) "p"]) #@367 Move back COUNT pages in the history. If COUNT is a positive integer, move backward COUNT times in the history. If COUNT is a negative integer, moving forward is performed. COUNT is treated as 1 by default if it is omitted. NO-STORE-POS if it is non-nil means not to store the window positions before going to the previous page. (fn &optional COUNT NO-STORE-POS) (defalias 'w3m-view-previous-page #[512 "\204\250\203\305V\203S\262\202\305\262 @\306\250\203W\250\203W\305\\\211\262W\203W 8\211\262\203W`U\203KT 8\203KT\262 8b\210 \240\210\307 \207\250\203b\310!\202d\310 \311\211@@\203\230\311\204u\312 \210\313@@\306\211\314\315!\314\316!\306\317AA@\311\"&\210\fA\240\210\307 )\202\331\320\232\203\254\321\311!G\322V\203\254\323 \202\331\324\325\206\263\326\"\203\326\310\305!\262\313@@\306\211\314\315!\314\316!\306\317AA@\311\"&\202\331\327\330!)\207" [w3m-current-url w3m-name-anchor-from-hist w3m-history-reuse-history-elements w3m-prefer-cache w3m-history 0 nil w3m-history-restore-position w3m-history-backward t w3m-history-store-position w3m-goto-url w3m-history-plist-get :post-data :referer w3m-history-element "about://cookie/" w3m-list-buffers 1 w3m-delete-buffer string-match "^about://" "" w3m-message "There's no more history"] 15 (#$ . 243820) "p"]) #@247 Move forward COUNT pages in history. If COUNT is a positive integer, move forward COUNT times in the history. If COUNT is a negative integer, moving backward is performed. COUNT is treated as 1 by default if it is omitted. (fn &optional COUNT) (defalias 'w3m-view-next-page #[256 "\300\250\203 [\202\f\301!\207" [w3m-view-previous-page -1] 3 (#$ . 245157) "p"]) #@18 (fn FILE BASE) (defalias 'w3m-expand-path-name #[514 "\300\234\301=\203\f\202\211P\302\303 \304\305\"\216\306\307\"\203(\300\225\310O\262\202G\300U\204\213\306\311\"\203B\312\300\225\310OP\262\202(\306\313\"\203c\312\300\225\310OP\262\306\314\"\203(\300\211\224O\262\202(\306\315\"\203p\302\262\202(\306\316\"\205y\300\225\300OP\262\310O\262\210\202()\207" [0 47 "" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`\\(?:\\.\\.?/\\)+" nil "\\`/\\.\\(?:/\\|\\'\\)" "/" "\\`/\\.\\.\\(?:/\\|\\'\\)" "/?[^/]+\\'" "\\`\\.\\.?\\'" "\\`/[^/]*"] 10 (#$ . 245531)]) #@174 List of schemes which may have hierarchical parts. This list is refered to by `w3m-expand-url' to keep backward compatibility which is described in Section 5.2 of RFC 2396. (defconst w3m-url-hierarchical-schemes '("http" "https" "ftp" "ftps" "file") (#$ . 246190)) (defconst w3m-buffer-local-url "buffer://") #@12 (fn URL) (defalias 'w3m-buffer-local-url-p #[257 "\301 \302\303\"\216\304\305P\")\207" [w3m-buffer-local-url match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`"] 5 (#$ . 246505)]) #@84 Convert URL to the absolute address, and canonicalize it. (fn URL &optional BASE) (defalias 'w3m-expand-url #[513 "\306 \307\310\"\216\203j\31117\312 \"\313\224\2033\313\224\313\225W\2033\313\224H\314=\2033\315\316\306 \317\"!\2100\202;\210\320!)\210\321\224\203b\322\224\204u\323\324\"\227\n\235\203u\325\321\225O\326\327\224\330OQ\262\202u\331\332\"\210\202u \206s\f\206s \262\3111\241\312 \"\313\224\203\235\313\224\313\225W\203\235\313\224H\314=\203\235\315\316\306 \317\"!\2100\202\245\210\320!)\210\333\224\203\355\313\224GU\203\355\325\333\224O\262\3111\347\312 \"\313\224\203\343\313\224\313\225W\203\343\313\224H\314=\203\343\315\316\306 \317\"!\2100\202\353\210\320!)\210\334\224\203\200\335\224\333\224\206\373GU\203\200\325\334\224O\333\224\203\333\224\330O\202\336P\262\3111A\312 \"\313\224\203=\313\224\313\225W\203=\313\224H\314=\203=\315\316\306 \317\"!\2100\202E\210\320!)\210\325\334\224O\262\3111z\312 \"\313\224\203v\313\224\313\225W\203v\313\224H\314=\203v\315\316\306 \317\"!\2100\202~\210\320!)\210\321\224\203\366\322\224\204\233\327\224GW\203\237\327\224H\314=\203\237\202B\323\324\"\211\227\n\235\203\360\3111\326\312 \"\313\224\203\322\313\224\313\225W\203\322\313\224H\314=\203\322\315\316\306 \317\"!\2100\202\332\210\320!)\210\211\323\324\"\232\203\360\337\321\225\330O\"\202\361\262\202B\322\224\2037\3111'\312 \"\313\224\203#\313\224\313\225W\203#\313\224H\314=\203#\315\316\306 \317\"!\2100\202+\210\320!)\210\325\321\225OP\202B\327\225\327\224V\203\310\327\225%\230\203\\\325H\340=\203VP\202\303\341P\202\303\3111\210\312 \"\313\224\203\204\313\224\313\225W\203\204\313\224H\314=\203\204\315\316\306 \317\"!\2100\202\214\210\320!)\210\325\327\224O\324\224\203\272\323\324\"\227\n\235\203\272\342\325O\330&\343\323\327\"!)\206\266\344\"\202\276\325O\330OQ\262\202B\334\224\203 \3111\371\312 \"\313\224\203\365\313\224\313\225W\203\365\313\224H\314=\203\365\315\316\306 \317\"!\2100\202\375\210\320!)\210\325\327\225OP\202B\31115\312 \"\313\224\2031\313\224\313\225W\2031\313\224H\314=\2031\315\316\306 \317\"!\2100\2029\210\320!)\210\325\333\224OP)\207" [string w3m-url-components-regexp w3m-url-hierarchical-schemes w3m-current-base-url w3m-current-url w3m-url-invalid-base match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] (error) string-match 9 47 set-match-data nbutlast 4 w3m-string-match-url-components-1 1 3 match-string 2 0 "//" 5 nil error "BASE must have a scheme part: %s" 8 6 7 "" w3m-expand-url 35 "http://" w3m-expand-path-name file-name-directory "/" w3m-buffer-local-url file-name-handler-alist] 11 (#$ . 246745)]) #@68 Show "Reading URL..." message in the middle of a buffer. (fn URL) (defalias 'w3m-display-progress-message #[257 "\300\301\302 GZ\303Z\304\245]\305\"\306\307\301\310 \304\245\311Z]\"\210\312\313\314\315!!\316\317\320 \321 \322\260\f!c\210\323ed\324\325$\210\326\301!\207" [make-string 0 window-width 11 2 32 insert-char 10 window-height 3 substitute-command-keys "Reading " w3m-url-readable-string w3m-url-strip-authinfo " ...\n\n" "`\\\\[w3m-process-stop]' to abort this operation, or\n" "`\\\\[w3m-search-new-session]' to perform a search in a new buffer, or\n" "`\\\\[w3m-goto-url-new-session]' to visit a URL in a new buffer, or\n" "do any emacs work in any other buffer, or just wait ... " put-text-property w3m-progress-message t sit-for] 15 (#$ . 249538)]) #@365 Display the page pointed to by the link under point. If ARG is the number 2 or the list of the number 16 (you may produce this by typing `C-u' twice) or NEW-SESSION is non-nil and the link is an anchor, this function makes a copy of the current buffer in advance. Otherwise, if ARG is non-nil, it forces to reload the url at point. (fn &optional ARG NEW-SESSION) (defalias 'w3m-view-this-url #[512 "\303 \210\206 ;\205\304\305 \"\306\211`\306\307\310\"\206Mn\2046\307S\310\"\211\262\2036Sb\2036\211\206Ml?\205M\307T\310\"\211\262\205MTb\205M\211\266\202\211\262\203^\311!\262\202P`\306\307\312\"\206\227n\204\200\307S\312\"\211\262\203\200Sb\203\200\211\206\227l?\205\227\307T\312\"\211\262\205\227Tb\205\227\211\266\202\211\205\247\304\313\n\"?\205\247\n)\211\262\203\302\203\272\314\"\202P\315\"\202P`\306\307\316\"\206\373n\204\344\307S\316\"\211\262\203\344Sb\203\344\211\206\373l?\205\373\307T\316\"\211\262\205\373Tb\205\373\211\266\202\211\205 \304\313\n\"?\205 \n)\203\317 \203\320 \202P\321 \202P\322\323!\211\262\203M\324\306\325\306\326\327&\211\262\325=?\205P\203E\314\"\202P\315\"\202P\330\331!)\207" [w3m-prefer-cache w3m-current-url url w3m-history-store-position string-match "\\`about://\\(?:db-\\)?history/" nil get-text-property w3m-action eval w3m-href-anchor "\\`http:///" w3m-goto-url-new-session w3m-goto-url w3m-image display-images-p w3m-toggle-inline-image w3m-view-image w3m-active-region-or-url-at-point never w3m-input-url quit feeling-searchy no-initial w3m-message "No URL at point"] 13 (#$ . 250360) (byte-code "\301\235\203\n\302\303D\207\302D\207" [current-prefix-arg (2 (16)) nil t] 2)]) (autoload 'mouse-set-point "mouse") #@68 Follow the link under the mouse pointer. (fn EVENT &optional ARG) (defalias 'w3m-mouse-view-this-url #[513 "\300!\210\301!\207" [mouse-set-point w3m-view-this-url] 4 (#$ . 252127) "e\nP"]) #@353 Open all http links between START and END as new sessions. If the page looks like Google's search result and the START point is the beginning of a line, only the links displayed in the beginning of lines are picked up. If RELOAD is non-nil, it forces to reload all links. If Transient Mark mode, deactivate the mark. (fn START END &optional RELOAD) (defalias 'w3m-open-all-links-in-new-session #[770 "\302 \203\303 \210p\304\305\"\211\205\306\307\"?\205)\310\211\203'C\262\212b\210n\2058 \2058\306\311 \"?\262\312 \210`V\203\265`W\203\265`\262`\310\304\305\"\206\207n\204p\304S\305\"\211\262\203pSb\203p\211\206\207l?\205\207\304T\305\"\211\262\205\207Tb\205\207\211\266\202\211\205\227\306\307\"?\205\227)\211\262\203;\306\313\"\203;\211\204\255n\203;B\262\202;)\237\262\205\322@\262A\262q\210\314\"\210\202\272\207" [url w3m-current-url region-active-p deactivate-mark get-text-property w3m-href-anchor string-match "\\`http:///" nil "\\`https?://\\(?:[^/]+\\.\\)*google\\." w3m-next-anchor "\\`https?:" w3m-goto-url-new-session] 14 (#$ . 252326) "r\nP"]) #@637 Display the page of the link under point in a new buffer. Open a new tab if you use tabs, i.e., `w3m-display-mode' is set to `tabbed' or `w3m-use-tab' is set to a non-nil value. If the region is active, use the `w3m-open-all-links-in-new-session' command instead. The buffer will get visible if BACKGROUND is nil or there is no other emacs-w3m buffer regardless of BACKGROUND, otherwise (BACKGROUND is non-nil) the buffer will be created but not appear to be visible. BACKGROUND defaults to the value of `w3m-new-session-in-background', but it could be inverted if called interactively with the prefix arg. (fn &optional BACKGROUND) (defalias 'w3m-view-this-url-new-session #[256 "\304\305\306!)\205!\307\310!\203 \203\n?\202!\n\202!\211\206!\n\211?\205( \311 \2034\312\313!\2028\314\304\306\"*\207" [w3m-fb-mode current-prefix-arg w3m-new-session-in-background w3m-clear-display-while-reading nil w3m-list-buffers t called-interactively-p any region-active-p call-interactively w3m-open-all-links-in-new-session w3m-view-this-url] 5 (#$ . 253463) nil]) #@71 Follow the link under the mouse pointer in a new session. (fn EVENT) (defalias 'w3m-mouse-view-this-url-new-session #[257 "\300!\210\301\302\303\"\207" [mouse-set-point w3m-view-this-url nil t] 4 (#$ . 254540) "e"]) #@55 Submit the form at point. (fn &optional NEW-SESSION) (defalias 'w3m-submit-form #[256 "`\303\304\305\"\2069n\204\"\304S\305\"\211\262\203\"Sb\203\"\211\2069l?\2059\304T\305\"\211\262\2059Tb\2059\211\266\202\211\203m\203m\211\205R\306\307 \"?\205R )\203m\n\203d\310\311!\312\303!\210\202e\313\203m\314!\207\315\316!\207" [w3m-current-url url w3m-submit-form-safety-check nil get-text-property w3m-submit string-match "\\`http:///" y-or-n-p "Submit? " message t eval w3m-message "Can't submit form at this point"] 7 (#$ . 254764) "P"]) #@39 (fn URL &optional NO-CACHE HANDLER) (defalias 'w3m-external-view #[769 "\211\205\301\302\"?\205)\205\243\303\304$\211B\211\305\211B\306#\262\307!\203>\2038\211\202X\310!\202X\307!\211\262!\203W\203Q\211\202X\310!\202X\211\262\262\262\262\307!\203r\204\211\310!\266\202\213\307!\211\262!\203\211\204\211\310!\266\202\213\266`eb\210\311\312\313\314#\204\234\211b\202\241\315 \210\316 \262\207" [url string-match "\\`http:///" make-closure #[257 "\211\204 \306\300\307\301\302$\207\310 \"\3118\211\204%\310\312\300\307# \"\262\3118\262\211:\203t\211@\313=\203t\314 \210\315!\211\262\203t\316!\307\262\211\203i\211@\211\317\230\203S\320\202^\211\321\230\203]\322\202^\211B\262A\266\202\202C\210AA\237\211\262\240\210\211:\203\243\307\211\203\235\211@\211;\203\221\323\324\"\203\221\320\202\222\211B\262A\266\202\202{\237\262\266\202\211\204\275\325\300!\203\266\326\327\330\331\300!!\"\207\306\300\307\301\302$\207\332!\203\307\211\300!\207\211:\205a\333@!A\334\335\336\f\"!C\330\300!\323\337\"\203\367\340\341\"\262\211G\342W\203\367\211\242P\240\210\203M\320>\203Mp\343\344\300%\211\302B\306\300\242\301$\262\345!\203-\302\203'\211\202G\346!\202G\345!\211\262!\203F\302\203@\211\202G\346!\202G\211\262\262)\207\203Y\347\307\300$\207\306\300\307\301\302$\266\204\207" [V0 V1 V2 w3m-content-type-alist w3m-external-view-temp-directory w3m-current-buffer w3m-download nil assoc 2 w3m-prepare-content mailcap-mime-info mailcap-parse-mailcaps eval split-string "%s" file "%u" url string-match "\\`[\"']?%s[\"']?\\'" w3m-url-local-p error "No method to view `%s' is registered. Use `w3m-edit-this-url'" file-name-nondirectory w3m-url-to-file-name functionp w3m-which-command make-temp-name expand-file-name "w3mel" "\\.[0-9A-Za-z]+\\'" match-string 0 5 make-closure #[257 "\211\205 \304\301\303\242\300\302$\207" [V0 V1 V2 V3 w3m-external-view-file] 6 "\n\n(fn SUCCESS)"] w3m-process-p w3m-process-start-process w3m-external-view-file] 14 "\n\n(fn TYPE)"] #[257 "\211@\207" [] 2 "\n\n(fn ATTRS)"] w3m-attributes w3m-process-p w3m-process-start-process re-search-forward "\n+\\( *\\)Reading [^\n]+\n\n" nil t kill-buffer keyboard-quit] 13 (#$ . 255333)]) #@35 (fn COMMAND FILE URL ARGUMENTS) (defalias 'w3m-external-view-file #[1028 "\300C\301\302#\216r\303\304!q\210\211\305\306\307p \310\301\311\f\f# \"%\240\210\312\313\314!\"\210\315\242\301\316\"\"*\207" [nil make-closure #[0 "\300\205#\300;\205#\302\300!\205#\303\301\242!\205\304\301\242!\305>?\205#\306\300!\207" [V0 V1 file-exists-p processp process-status (run stop) delete-file] 2] generate-new-buffer " *w3m-external-view*" apply start-process "w3m-external-view" mapcar #[257 "\211\302\267\207\300\207\301\207\207" [V0 V1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 4 url 6))] 3 "\n\n(fn X)"] w3m-message "Start %s..." file-name-nondirectory set-process-sentinel #[514 "\301!\302\303\"\205\304\305\306\307\300%\207" [V0 process-buffer string-match "\\`\\(?:finished\\|exited\\)" run-at-time 1 nil #[514 "\205*\300!\205*\3011\302!\210\3030\202\210\304\207\205*\305!\205*\306!\210\307\310!\207" [file-exists-p (error) delete-file t nil buffer-name kill-buffer message ""] 4 "\n\n(fn FILE BUFFER)"]] 9 "\n\n(fn PROC EVENT)"]] 16 (#$ . 257637)]) #@133 Display the image under point in the external viewer. The viewer is defined in `w3m-content-type-alist' for every type of an image. (defalias 'w3m-view-image #[0 "`\301\302\303\"\2069n\204\"\302S\303\"\211\262\203\"Sb\203\"\211\2069l?\2059\302T\303\"\211\262\2059Tb\2059\211\266\202\211\205I\304\305\"?\205I)\211\203R\306!\207\307\310!\207" [url nil get-text-property w3m-image string-match "\\`http:///" w3m-external-view w3m-message "No image at point"] 6 (#$ . 258774) nil]) #@96 Save the image under point to a file. The default name will be the original name of the image. (defalias 'w3m-save-image #[0 "`\301\302\303\"\2069n\204\"\302S\303\"\211\262\203\"Sb\203\"\211\2069l?\2059\302T\303\"\211\262\2059Tb\2059\211\266\202\211\205I\304\305\"?\205I)\211\203R\306!\207\307\310!\207" [url nil get-text-property w3m-image string-match "\\`http:///" w3m-download w3m-message "No image at point"] 6 (#$ . 259280) nil]) #@60 Launch the external browser and display the link an point. (defalias 'w3m-external-view-this-url #[0 "`\301\302\303\"\2069n\204\"\302S\303\"\211\262\203\"Sb\203\"\211\2069l?\2059\302T\303\"\211\262\2059Tb\2059\211\266\202\206y`\301\302\304\"\206wn\204`\302S\304\"\211\262\203`Sb\203`\211\206wl?\205w\302T\304\"\211\262\205wTb\205w\211\266\202\211\205\207\305\306\"?\205\207)\211\203\220\307!\207\310\311!\207" [url nil get-text-property w3m-href-anchor w3m-image string-match "\\`http:///" w3m-external-view w3m-message "No URL at point"] 6 (#$ . 259744) nil]) #@58 Launch the external browser and display the current URL. (defalias 'w3m-external-view-current-url #[0 "\203\301!\207\302\303!\207" [w3m-current-url w3m-external-view w3m-message "No URL at this page"] 2 (#$ . 260349) nil]) #@259 Launch the external browser and display the same web page. If the cursor points to a link, it visits the url of the link instead of the url currently displayed. The browser is defined in `w3m-content-type-alist' for every type of a url. (fn &optional URL) (defalias 'w3m-view-url-with-external-browser #[256 "\211\211\205\301\302\"?\205)\205\303\304\"\210\305!\207" [url string-match "\\`http:///" message "Browsing <%s>..." w3m-external-view] 4 (#$ . 260583) (byte-code "\302\303\304\305`\305\306\307\"\206=n\204&\306S\307\"\211\262\203&Sb\203&\211\206=l?\205=\306T\307\"\211\262\205=Tb\205=\211\266\202\206\205\204\204`\305\306\310\"\206n\204h\306S\310\"\211\262\203hSb\203h\211\206l?\205\306T\310\"\211\262\205Tb\205\211\266\202\206\205 \305\211\311&!C\207" [w3m-display-inline-images w3m-current-url w3m-canonicalize-url w3m-input-url "URL to view externally: " nil get-text-property w3m-href-anchor w3m-image no-initial] 9)]) #@41 Run `browse-url' to open URL. (fn URL) (defalias 'w3m-view-url-with-browse-url #[257 "\211;\203\300\301\"\204\302\303\"\210\304!\207\302\305!\207" [string-match "\\`about:" w3m-message "Browsing %s..." browse-url "No url at point"] 4 (#$ . 261573) (byte-code "\301\302\301!)C\207" [w3m-display-inline-images t w3m-active-region-or-url-at-point] 2)]) #@67 Download the file or the page pointed to by the link under point. (defalias 'w3m-download-this-url #[0 "`\302\303\304\"\2069n\204\"\303S\304\"\211\262\203\"Sb\203\"\211\2069l?\2059\303T\304\"\211\262\2059Tb\2059\211\266\202\206y`\302\303\305\"\206wn\204`\303S\305\"\211\262\203`Sb\203`\211\206wl?\205w\303T\305\"\211\262\205wTb\205w\211\266\202\302\211\205\211\306\307\"?\205\211)\203\315\310 \311\312#\211C\313\302\211$\262\314!\203\254\315!\202\276\314!\211\262!\203\275\315!\202\276\211\262\262\314!\203\314\315!\210\207`\302\303\316\"\206n\204\357\303S\316\"\211\262\203\357Sb\203\357\211\206l?\205\303T\316\"\211\262\205Tb\205\211\266\202\211\262\203\317!\207\320\321!\207" [url w3m-current-url nil get-text-property w3m-href-anchor w3m-image string-match "\\`http:///" point-marker make-closure #[257 "\211\205\303\304\300!!\205r\304\300!q\210\301\n\232\205\300b\210\305 )\207" [V0 V1 w3m-current-url buffer-name marker-buffer w3m-refontify-anchor] 4 "\n\n(fn SUCCESS)"] w3m-download w3m-process-p w3m-process-start-process w3m-action eval w3m-message "No URL at point"] 12 (#$ . 261938) nil]) #@33 Download the image under point. (defalias 'w3m-download-this-image #[0 "`\302\303\304\"\2069n\204\"\303S\304\"\211\262\203\"Sb\203\"\211\2069l?\2059\303T\304\"\211\262\2059Tb\2059\211\266\202\302\211\205K\305\306\"?\205K)\203\217\307 \310\311#\211C\312\302\211$\262\313!\203n\314!\202\200\313!\211\262!\203\314!\202\200\211\262\262\313!\203\216\314!\210\207`\302\303\315\"\206\310n\204\261\303S\315\"\211\262\203\261Sb\203\261\211\206\310l?\205\310\303T\315\"\211\262\205\310Tb\205\310\211\266\202\211\262\203\324\316!\207\317\320!\207" [url w3m-current-url nil get-text-property w3m-image string-match "\\`http:///" point-marker make-closure #[257 "\211\205\303\304\300!!\205r\304\300!q\210\301\n\232\205\300b\210\305 )\207" [V0 V1 w3m-current-url buffer-name marker-buffer w3m-refontify-anchor] 4 "\n\n(fn SUCCESS)"] w3m-download w3m-process-p w3m-process-start-process w3m-action eval w3m-message "No image at point"] 12 (#$ . 263134) nil]) #@71 Display the current url in the echo area and put it into `kill-ring'. (defalias 'w3m-print-current-url #[0 "\205\302\303\304!!\210\305\306\307!\")\207" [w3m-current-url deactivate-mark nil kill-new w3m-url-encode-string-2 w3m-message "%s" w3m-url-readable-string] 4 (#$ . 264153) nil]) #@105 Display the url under point in the echo area and put it into `kill-ring'. (fn &optional INTERACTIVE-P) (defalias 'w3m-print-this-url #[256 "\303\203\240`\303\304\305\"\206>n\204'\304S\305\"\211\262\203'Sb\203'\211\206>l?\205>\304T\305\"\211\262\205>Tb\205>\211\266\202\206\253`\303\304\306\"\206|n\204e\304S\306\"\211\262\203eSb\203e\211\206|l?\205|\304T\306\"\211\262\205|Tb\205|\211\266\202\206\253;\205\253\304`\307\"@\206\223\304`\310\"@\211\205\233\311Q\262\202\253\304`\305\"\206\253\304`\306\"\203\355`\303\304\312\"\206\350n\204\321\304S\312\"\211\262\203\321Sb\203\321\211\206\350l?\205\350\304T\312\"\211\262\205\350Tb\205\350\211\266\202\202\361\304`\312\"\2033`\303\304\313\"\206.n\204\304S\313\"\211\262\203Sb\203\211\206.l?\205.\304T\313\"\211\262\205.Tb\205.\211\266\202\2027\304`\313\" \206=?\204H\205\336\203V\203V\314\315!!\210\316!\206\237`\303\304\317\"\206\225n\204~\304S\317\"\211\262\203~Sb\203~\211\206\225l?\205\225\304T\317\"\211\262\205\225Tb\205\225\211\266\202\203\236\320\202\237\321\262\322\323G\324V\203\262\325Q\202\335G\324V\203\334\326\327R \204\316\330!\331 \332ZW\203\322\211\202\327\333Q\262\202\335\"*\207" [w3m-current-url message-truncate-lines deactivate-mark nil get-text-property w3m-href-anchor w3m-image w3m-name-anchor w3m-name-anchor2 "#" w3m-image-alt w3m-anchor-title kill-new w3m-url-encode-string-2 w3m-url-readable-string w3m-action "There is a form" "There is no url under point" w3m-message "%s" 0 ": " " (" ")" string-width frame-width 2 "\n"] 11 (#$ . 264452) (list t)]) #@103 Display image url under point in echo area and put it into `kill-ring'. (fn &optional INTERACTIVE-P) (defalias 'w3m-print-this-image-url #[256 "\301\203C`\301\302\303\"\206>n\204'\302S\303\"\211\262\203'Sb\203'\211\206>l?\205>\302T\303\"\211\262\205>Tb\205>\211\266\202\202G\302`\303\"\203\211`\301\302\304\"\206\204n\204m\302S\304\"\211\262\203mSb\203m\211\206\204l?\205\204\302T\304\"\211\262\205\204Tb\205\204\211\266\202\202\215\302`\304\"\204\227\205\377\203\245\203\245\305\306!!\210\307\310G\311U\203\262\312\202\265\313P\314!\206\376`\301\302\315\"\206\364n\204\335\302S\315\"\211\262\203\335Sb\203\335\211\206\364l?\205\364\302T\315\"\211\262\205\364Tb\205\364\211\266\202\203\375\316\202\376\317#)\207" [deactivate-mark nil get-text-property w3m-image w3m-image-alt kill-new w3m-url-encode-string-2 w3m-message "%s%s" 0 "" ": " w3m-url-readable-string w3m-action "There is a form" "There is no image url under point"] 12 (#$ . 266125) (list t)]) #@32 Delete all momentary overlays. (defalias 'w3m-delete-all-overlays '(macro . #[0 "\300\207" [(dolist (overlay (overlays-in (point-min) (point-max))) (if (overlay-get overlay 'w3m-momentary-overlay) (delete-overlay overlay)))] 1 (#$ . 267158)])) #@126 Highlight an anchor in the line if the anchor sequence is the same as SEQ. Return t if highlighting is successful. (fn SEQ) (defalias 'w3m-highlight-current-anchor-1 #[257 "\300 \301\211\211\211\212\302 \210`\262\203,W\203,\303\304\"\211\262=\204,\305\304\"\262\202 \205^W\205^=\205^\262\305\304\"\262\306\"\262\307\310\311#\210\307\312\313#\210\307\314\313#\210\313)\207" [point-at-eol nil beginning-of-line get-text-property w3m-anchor-sequence next-single-property-change make-overlay overlay-put face w3m-current-anchor w3m-momentary-overlay t evaporate] 10 (#$ . 267409)]) #@34 Highlight an anchor under point. (defalias 'w3m-highlight-current-anchor #[0 "\300`!\301?\206%\203#\302@\303\"\203@\262\301\262A\262\202 \211?\266\202\205\201\304ed\"\211\203F\211@\302\303\"\203?\305!\210A\266\202\202.\210\212\306`\307\"`\205~\310!\205~\311y\312U\205~\310!\203k\311y\312U\204^\211b\210\313y\312U\205~\310!\205~\202n\266\202)\207" [overlays-at nil overlay-get w3m-momentary-overlay overlays-in delete-overlay get-text-property w3m-anchor-sequence w3m-highlight-current-anchor-1 1 0 -1] 5 (#$ . 268025)]) #@40 Edit the source code of URL. (fn URL) (defalias 'w3m-edit-url #[257 "\302\303\"\203\211\304\225\305O\262\3062K\211\2037\211@\302@\"\2030\307A!\2030\310\306A!\"\210A\266\202\202\210 \311!\206I\312\313!\206I\314\315\"!0\207" [w3m-edit-function-alist w3m-edit-function string-match "\\`about://\\(?:header\\|source\\)/" 0 nil found fboundp throw w3m-url-to-file-name call-interactively w3m-save-buffer error "URL:%s is not a local file"] 7 (#$ . 268583) (byte-code "\300\301 !C\207" [w3m-canonicalize-url w3m-input-url] 2)]) #@70 Edit the source code of the file that the current buffer is viewing. (defalias 'w3m-edit-current-url #[0 "\203\301!\207\302\303!\207" [w3m-current-url w3m-edit-url w3m-message "No URL"] 2 (#$ . 269133) nil]) #@67 Edit the source code of the file linked from the anchor at point. (defalias 'w3m-edit-this-url #[0 "`\301\302\303\"\2069n\204\"\302S\303\"\211\262\203\"Sb\203\"\211\2069l?\2059\302T\303\"\211\262\2059Tb\2059\211\266\202\211\205I\304\305\"?\205I)\211\203R\306!\207\307\310!\207" [url nil get-text-property w3m-href-anchor string-match "\\`http:///" w3m-edit-url w3m-message "No URL at point"] 6 (#$ . 269351) nil]) (defvar w3m-goto-anchor-hist nil) (make-variable-buffer-local 'w3m-goto-anchor-hist) #@88 Move point to the next anchor. Return t if success otherwise nil. (fn &optional ARG) (defalias 'w3m-next-anchor #[256 "\302=\204\303\211\203\211\304W\203\305[!\207\211\204\306\262\307ed\310\303$?\303\211\211\204\273m\204\273\311`\310\"\211\262\203A`\211\262\204j\312`\310\"\211\262\203\273\311\310\"\211\262\203c >\204\273S\211\262\202g\303\211\262\203\273\304V\203\273dW\203\273\312\310\"\211\262\203\265\311\310\"\211\262\204\236\312\310\"\211\262\203\265\311\310\"\211\262\203\265=\204j\211 >\204j\211\262S\211\262\204j\304\262\202j\203\314 Bb\210\313 \266\314\207\303\315 \203eb\203\316`!\211\203\350\317!b\210\314\202\377eb\210\3201\366\321\306!0\202\373\210\303\202\377\205\377\314\262\206\203\322\323!\266\303\207eb\210\302\306!\207" [last-command w3m-goto-anchor-hist w3m-next-anchor nil 0 w3m-previous-anchor 1 text-property-not-all w3m-anchor-sequence get-text-property next-single-property-change w3m-print-this-url t w3m-handle-non-anchor-buttons next-button button-at (error) forward-button w3m-message "No anchor"] 8 (#$ . 269878) "p"]) #@92 Move point to the previous anchor. Return t if success otherwise nil. (fn &optional ARG) (defalias 'w3m-previous-anchor #[256 "\302=\204\303\211\203\211\304W\203\305[!\207\211\204\306\262\307ed\310\303$?\303\211\211\211\204o\204\311`\310\"\211\262\203l\312`\262\262\313\310\"\211\262\203i\311\310\"=\204b\314d\310$\211\262\203i\211\262\204B\204\256\311`S\211\262\310\"\204\217\315`\310\"\211\262\203\315\310\"\206\211e\211\262\203\311\310\"\211\262\203\247 >\204S\211\262\202\253\303\211\262\203\304V\203eV\203\315\310\"\211\262\203\375\311\310\"\211\262\204\346\315\310\"\206\326e\211\262\203\375\311\310\"\211\262\203\375=\204\256 >\204\256\262S\211\262\204\256\304\262\202\256\203 B\314e\310$\206b\210\316 \266\312\207\303\203+\317\320!\266\303\207db\210\302\306!\207" [last-command w3m-goto-anchor-hist w3m-previous-anchor nil 0 w3m-next-anchor 1 text-property-not-all w3m-anchor-sequence get-text-property t next-single-property-change text-property-any previous-single-property-change w3m-print-this-url w3m-message "No anchor"] 12 (#$ . 271019) "p"]) (defalias 'w3m-goto-next-form #[0 "\300`\301\"\203 \302`\301\"b\210\300`\301\"\206\"\302`\301\"\211\205 \211b\210\303\262\207" [get-text-property w3m-action next-single-property-change t] 3]) #@54 Move the point to the next form. (fn &optional ARG) (defalias 'w3m-next-form #[256 "\211\204\302\262\303>\204\304`\305\"\211\203* C\202*\306=\203* \203* \307\241\210\211\310W\2035\306[!\207\211\310V\203f\311 \204H\307eb\210\311 \210\211S\262\304`\305\" \235\203\\\211T\262\2025\304`\305\" B\2025\312 \207" [last-command w3m-goto-anchor-hist 1 (w3m-next-form w3m-previous-form) get-text-property w3m-action w3m-previous-form nil 0 w3m-goto-next-form w3m-print-this-url] 4 (#$ . 272387) "p"]) (defalias 'w3m-goto-previous-form #[0 "\300`\301\"\203\302`T\301\"b\210\302`\301\"\211\205&\300\301\"\203!\211\202%\302\301\"b\207" [get-text-property w3m-action previous-single-property-change] 4]) #@58 Move the point to the previous form. (fn &optional ARG) (defalias 'w3m-previous-form #[256 "\211\204\302\262\303>\204\304`\305\"\211\203* C\202*\306=\203* \203* \307\241\210\211\310W\2035\306[!\207\211\310V\203f\311 \204H\307db\210\311 \210\211S\262\304`\305\" \235\203\\\211T\262\2025\304`\305\" B\2025\312 \207" [last-command w3m-goto-anchor-hist 1 (w3m-next-form w3m-previous-form) get-text-property w3m-action w3m-next-form nil 0 w3m-goto-previous-form w3m-print-this-url] 4 (#$ . 273115) "p"]) #@39 Go to the bginning of the next image. (defalias 'w3m-goto-next-image #[0 "\300`\301\"\2031`\211dU?\205-\302\303\"\206-\302\301\"\206-\300\301\"\204,\300T\301\"\205-d\262b\210`\211dU?\205W\302\303\"\206W\302\301\"\206W\300\301\"\204V\300T\301\"\205Wd\262\211\205\236\300\301\"\203g\211b\207\211\211dU?\205\215\302\303\"\206\215\302\301\"\206\215\300\301\"\204\214\300T\301\"\205\215d\262\211\262\205\236\300\301\"\205\236\211b\207" [get-text-property w3m-image next-single-property-change w3m-image-hseq] 5 (#$ . 273645)]) #@55 Move the point to the next image. (fn &optional ARG) (defalias 'w3m-next-image #[256 "\211\204\300\262\211\301W\203\302[!\207\211\301V\2031\303 \204*eb\210\304`\305\"\204*\303 \210\211S\262\202\306 \207" [1 0 w3m-previous-image w3m-goto-next-image get-text-property w3m-image w3m-print-this-url] 4 (#$ . 274211) "p"]) #@43 Go to the bginning of the previous image. (defalias 'w3m-goto-previous-image #[0 "\300`\301\"\2032`T\211eU?\205.\302\303\"\206.\302\301\"\206.\300\301\"\204-\300S\301\"\205.e\262b\210`\211eU?\205X\302\303\"\206X\302\301\"\206X\300\301\"\204W\300S\301\"\205Xe\262\211\205\237\300\301\"\203h\211b\207\211\211eU?\205\216\302\303\"\206\216\302\301\"\206\216\300\301\"\204\215\300S\301\"\205\216e\262\211\262\205\237\300\301\"\205\237\211b\207" [get-text-property w3m-image previous-single-property-change w3m-image-hseq] 5 (#$ . 274548)]) #@59 Move the point to the previous image. (fn &optional ARG) (defalias 'w3m-previous-image #[256 "\211\204\300\262\211\301W\203\302[!\207\211\301V\203*\303 \204#db\210\303 \210\211S\262\202\304 \207" [1 0 w3m-next-image w3m-goto-previous-image w3m-print-this-url] 3 (#$ . 275127) "p"]) #@931 Copy an emacs-w3m BUFFER, and return the new buffer. If BUFFER is nil, the current buffer is assumed. If NEW-NAME is nil, a name is created based on the name of the current buffer. If BACKGROUND is non-nil, it won't switch to the new buffer. When called interactively, you will be prompted for NEW-NAME if and only if a prefix argument is given, and BACKGROUND inherits the value of `w3m-new-session-in-background'. If EMPTY is non-nil, with the current buffer's history and settings an empty buffer is created. It implies setting BACKGROUND as well and will not switch to the new buffer. So, you may want to run `switch-to-buffer' or the like to the return value (i.e., the new buffer) after rendering something in it if necessary. If LAST is non-nil, the new buffer will be buried as the final w3m buffer; otherwise, it will be sequenced next to the current buffer. (fn &optional BUFFER NEW-NAME BACKGROUND EMPTY LAST) (defalias 'w3m-copy-buffer #[1280 "\204p\262\204\306!\262\307\310\"\203\311\211\224O\262\312\211\211\211\211r q\210\2063\313 @A@!@\262\n\262 \262\f\205G\314 \205G\315 !\262\204P\316\262\317 \210\320 ?\"\211\262q\210\321\n!\210*\203q\202s+)\204B\211q\210\315 @!\316\211\n\205\213\322\323!?\205\221,,-.\316\312\324\325!/\211\326M\210\211C\327\n\330\312\211\211\313\fA@!&\262\262\331!\203&\3321\346\312\21101\333\316\"\210\334A\335H\"?\205\340\336\337C\"*0\210\202\354\336\"\266\340A\335H\341\316#\210\3422!A\343H\211\203\211@\335H>\203\344\342\343H\"\210A\266\202\202\375\210\336\345\346B\"0\262\202\272)\266 \240\210+\210\203B\347\n!\204B\350\351  \"\210\207" [w3m-current-url w3m-history w3m-current-coding-system w3m-display-inline-images w3m-pop-up-frames w3m-initial-frames buffer-name string-match "<[0-9]+>\\'" 0 nil w3m-history-element display-graphic-p copy-sequence t w3m-history-store-position w3m-generate-new-buffer w3m-history-copy called-interactively-p any make-symbol "wait-function" identity w3m-goto-url redisplay w3m-process-p (quit) w3m-process-start-process w3m-process-wait-process 2 w3m-process-error-handler w3m-process-timeout w3m-process-sentinel "finished\n" result 3 throw error "Can't find wait handler" get-buffer-window set-window-buffer selected-window w3m-toggle-inline-images-permanently w3m-default-display-inline-images w3m-clear-display-while-reading w3m-prefer-cache w3m-history-reuse-history-elements w3m-process-waited inhibit-quit w3m-process-inhibit-quit] 24 (#$ . 275428) (byte-code "\302\205\303\304! E\207" [current-prefix-arg w3m-new-session-in-background nil read-string "Name: "] 3)]) #@162 A buffer of the session having selected just before this session. This will be the session to be selected after `w3m-delete-buffer' deletes the current session. (defvar w3m-previous-session-buffer nil (#$ . 278098)) (make-variable-buffer-local 'w3m-previous-session-buffer) #@127 Turn ARG pages of emacs-w3m buffers ahead. If BUFFER is specified, switch to it regardless of ARG. (fn ARG &optional BUFFER) (defalias 'w3m-next-buffer #[513 "\302=\205P\303!\203r\211q\210)\302=\204>\204\304\262\305U?\205P\306 \211G\307p>GZ\\\"8\211\262\266\202\205P\310 \210p\311!\210\312 \210\313\314!\210\315 \207" [major-mode w3m-previous-session-buffer w3m-mode buffer-live-p 1 0 w3m-list-buffers mod w3m-history-store-position switch-to-buffer w3m-history-restore-position run-hooks w3m-select-buffer-hook w3m-select-buffer-update] 9 (#$ . 278379) "p"]) #@55 Turn ARG pages of emacs-w3m buffers behind. (fn ARG) (defalias 'w3m-previous-buffer #[257 "\300[!\207" [w3m-next-buffer] 3 (#$ . 278968) "p"]) #@365 Delete the current emacs-w3m buffer and switch to the previous one. If there is only one emacs-w3m buffer, assume intent to terminate the emacs-w3m session; the prefix argument FORCE will be passed to the `w3m-quit' function. When in a tabbed display mode (see `w3m-display-mode'), focus is returned to the buffer that launched this buffer. (fn &optional FORCE) (defalias 'w3m-delete-buffer #[256 "\306\307\310!\211G\306C\306C\306C\311U\203\312!\210\202,p\240\210 \2038\313\314\242\310\"\206.\315 !\210\316\317\n\"\210\202\360r\320\321\322$\323\"\210)S\242GU\203]\313\314\316\317!\210p\324 \210!!\210\202\360\211\242\203\214\306\240\210\316\317!\210\242\204sp\240\210p\242>\204f\242\242>\203\360\313\314\242!!\210\202\360\211\306\240\210\203\256\314\211A\262\242\240\310\"\204\220\211\242\242B\240\210\202\220\211\242\203\301\316\317!\210p\242>\203\263\202\360\325 >\203\332\326\310!\203\324\327 \210\202\360\324 \210\202\360\330Y\203\347\316\317!\210\202\360\326\310!\204\360\324 \210\331\332\310\"r\211q\210\321\333\"\216\334\242C!\210\335\242!\210\336\242!\210\f\203\337\242!\210\310\340\242!\210+\210\341\342\306\343#\210\344\345!\210\346 \210)\266\347 \210)?\205:\350 \207" [w3m-fb-mode w3m-use-tab w3m-previous-session-buffer w3m-initial-frames w3m-use-form ignore-window-parameters nil w3m-list-buffers t 1 w3m-quit select-window get-buffer-window selected-window w3m-next-buffer -1 walk-windows make-closure #[257 "\301\304!\240q\210 \305=\205\301\242\300\242=?\205\302\301\242\302\242B\240\207" [V0 V1 V2 major-mode window-buffer w3m-mode] 4 "\n\n(fn WINDOW)"] no-minibuf delete-window selected-frame one-window-p delete-frame 2 generate-new-buffer " *temp*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] w3m-session-deleted-save w3m-process-stop w3m-idle-images-show-unqueue w3m-form-kill-buffer kill-buffer run-at-time 0.1 w3m-history-restore-position run-hooks w3m-delete-buffer-hook w3m-session-crash-recovery-save w3m-select-buffer-update w3m-fb-select-buffer w3m-fb-inhibit-buffer-selection] 12 (#$ . 279120) "P"]) #@385 Delete a newly created emacs-w3m buffer BUFFER if it seems unnecessary. Some emacs-w3m commands create a buffer for the new session first, but it may be useless if the command is invoked for visiting a local file or a mail buffer. This command will delete BUFFER if it is empty or there is only a progress message. It also deletes windows and frames related to BUFFER. (fn BUFFER) (defalias 'w3m-delete-buffer-if-empty #[257 "\302!\205.r\211q\210\206& \206&\303 \304U\206%\305e\306\"\205%\305dS\306\"??\205-\307\310!)\207" [w3m-current-process w3m-current-url buffer-live-p buffer-size 0 get-text-property w3m-progress-message w3m-delete-buffer t] 4 (#$ . 281251)]) #@182 Renumber suffixes of names of emacs-w3m buffers. It aligns emacs-w3m buffers in order of *w3m*, *w3m<2>, *w3m*<3>,... as if the folder command of MH performs with the -pack option. (defalias 'w3m-pack-buffer-numbers #[0 "\301\302\211\303 \211\2059\211@\304!\262\2032=\204.\305\"\211\262\203.\203.\306\"\210T\262A\266\202\202\207" [w3m-use-form 1 nil w3m-list-buffers w3m-buffer-number w3m-buffer-set-number w3m-form-set-number] 8 (#$ . 281935) nil]) #@90 Delete emacs-w3m buffers except for BUFFER or the current buffer. (fn &optional BUFFER) (defalias 'w3m-delete-other-buffers #[256 "\211\204p\262\300!\210\301\302\303!\"\304!\207" [w3m-delete-frames-and-windows delq w3m-list-buffers t w3m-delete-buffers] 5 (#$ . 282413) nil]) #@50 Delete tabs on the left side of the current tab. (defalias 'w3m-delete-left-tabs #[0 "p\300\3012+\302 \211\205(\211@=\203\303\301\"\210\202!\211B\262A\266\202\202\2620\262\211\2054\304!\207" [nil done w3m-list-buffers throw w3m-delete-buffers] 7 (#$ . 282702) nil]) #@51 Delete tabs on the right side of the current tab. (defalias 'w3m-delete-right-tabs #[0 "\300 \211\205 \301!\207" [w3m-righttab-exist-p w3m-delete-buffers] 3 (#$ . 282991) nil]) #@41 Delete emacs-w3m buffers. (fn BUFFERS) (defalias 'w3m-delete-buffers #[257 "\301\203 \302!\210\203,\211A\262\242\262\303!\210\304!\210\305!\210\203 \306!\210\202 \210\307\310!\210\311 \210\312 \210\313 \207" [w3m-use-form nil w3m-session-deleted-save w3m-process-stop w3m-idle-images-show-unqueue kill-buffer w3m-form-kill-buffer run-hooks w3m-delete-buffer-hook w3m-session-crash-recovery-save w3m-select-buffer-update w3m-force-window-update] 4 (#$ . 283176)]) #@182 Sub-keymap used for the `C-c'-prefixed commands. Note: keys should not be alphabet since `C-c LETTER' keys are reserved for users. See Info node `(elisp)Key Binding Conventions'. (defvar w3m-ctl-c-map nil (#$ . 283662)) (byte-code "\204\235\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\325#\210\302\327\325#\210\302\330\331#\210\302\332\331#\210\302\333\331#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\301\207" [w3m-ctl-c-map make-sparse-keymap define-key "\350" w3m-history "" w3m-history-store-position [67108896] "j" w3m-search-name-anchor "" w3m-goto-new-session-url "" w3m-history-restore-position "" w3m-copy-buffer "" w3m-previous-buffer "" w3m-next-buffer [67108908] w3m-tab-move-left [67108924] "<" [67108910] w3m-tab-move-right ">" [67108926] "" w3m-delete-buffer "\367" w3m-delete-other-buffers "\354" w3m-delete-left-tabs "\362" w3m-delete-right-tabs "" w3m-select-buffer "" w3m-switch-buffer "" report-emacs-w3m-bug "" w3m-submit-form " " w3m-process-stop " " w3m-move-unseen-buffer] 5) #@58 Sub-keymap used for the `C'-prefixed redisplay commands. (defvar w3m-redisplay-map nil (#$ . 284978)) (byte-code "\204\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\301\207" [w3m-redisplay-map make-sparse-keymap define-key "t" w3m-redisplay-with-content-type "c" w3m-redisplay-with-charset "C" w3m-redisplay-and-reset] 5) #@63 Sub-keymap used for the `L'-prefixed link numbering commands. (defvar w3m-lnum-map nil (#$ . 285323)) (byte-code "\204O\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\301\207" [w3m-lnum-map make-sparse-keymap define-key "f" w3m-lnum-follow "F" w3m-lnum-goto "w" w3m-lnum-universal "I" w3m-lnum-view-image "\351" w3m-lnum-save-image "d" w3m-lnum-download-this-url "e" w3m-lnum-edit-this-url "t" w3m-lnum-toggle-inline-image "u" w3m-lnum-print-this-url "b" w3m-lnum-bookmark-add-this-url "]" w3m-lnum-zoom-in-image "[" w3m-lnum-zoom-out-image] 5) #@45 Lynx-like keymap used in emacs-w3m buffers. (defvar w3m-lynx-like-map nil (#$ . 286051)) (byte-code "\2045\304 \305!\210\306\307\310#\210\306\311\312#\210\306\313\312#\210\306\314\312#\210\306\315\312#\210\306\316\317#\210\306\320\321#\210\306\322\323#\210\306\324\325#\210\306\326\327#\210\306\330\331#\210\306\332\333#\210\306\334\312#\210\306\335\336#\210\306\337\336#\210\306\340\341#\210\306\342\341#\210\306\343\341#\210\306\344\336#\210\306\345\341#\210\306\346\341#\210\306\347\350#\210\306\351\352#\210\306\353\352#\210\306\354\350#\210\355\356!\203\273\306\357\360#\210\306\361\362#\210\306\363\362#\210\202\301\306\364\360#\210\306\365\366#\210\306\367\370#\210\306\371\372#\210\306\373\374#\210\306\375\374#\210\306\376\377#\210\306\201@\201A#\210\306\201B\201C#\210\306\201D\201E#\210\306\201F\201G#\210\306\201H\201I#\210\306\201J\201K#\210\306\201L\201M#\210\306\201N\201O#\210\306\201P\201Q#\210\306\201R\201S#\210\306\201T\201U#\210\306\201V\201W#\210\306\201X\201Y#\210\306\201Z\201[#\210\201\\ \203\214\306\201]\201^#\210\306\201_\201`#\210\306\201a\201S#\210\306\201b\201c#\210\306\201d\201e#\210\306\201f\201g#\210\306\201h\201i#\210\306\201j\201k#\210\306\201l\201m#\210\306\201n\201o#\210\306\201p\201q#\210\306\201r\201s#\210\306\201t\201u#\210\306\201v\201w#\210\306\201x\201y#\210\306\201z\201{#\210\306\201|\201}#\210\306\201~\201#\210\306\201\200\201\201#\210\306\201\202\201\203#\210\306\201\204\201\205#\210\306\201\206\201\207#\210\306\201\210\201\211#\210\306\201\212\201\213#\210\306\201\214\201\215#\210\306\201\216\201\217#\210\306\201\220\201\221#\210\306\201\222\201\223#\210\306\201\224\201\225#\210\306\201\226\201\227#\210\306\201\230\201\231#\210\306\201\232\201\233#\210\306\201\234\201\235#\210\306\201\236\201\237#\210\306\201\240\201\241#\210\306\201\242\201\243#\210\306\201\244\201\245#\210\306\201\246\201\247#\210\306\201\250\201\251#\210\306\201\252\201\253#\210\306\201\254\201\255#\210\306\201\256 #\210\306\201\257\n#\210\306\201\260 #\210\306\201\261\201\262#\210\304\207" [w3m-lynx-like-map w3m-ctl-c-map w3m-redisplay-map w3m-lnum-map make-keymap suppress-keymap define-key " " w3m-scroll-up-or-next-url "b" w3m-scroll-down-or-previous-url [backspace] [delete] [33554464] "f" w3m-toggle-filtering "h" backward-char "j" next-line "k" previous-line "l" forward-char "J" w3m-scroll-up "K" w3m-scroll-down "" " " w3m-next-anchor [tab] [(shift tab)] w3m-previous-anchor [(shift iso-lefttab)] [backtab] [down] "\211" [up] " " w3m-view-this-url [(shift return)] w3m-view-this-url-new-session [(shift kp-enter)] [right] featurep gtk [down-mouse-3] w3m-mouse-major-mode-menu [drag-mouse-3] undefined [mouse-3] [mouse-3] [mouse-2] w3m-mouse-view-this-url [follow-link] mouse-face [S-mouse-2] w3m-mouse-view-this-url-new-session [left] w3m-view-previous-page "B" "N" w3m-view-next-page "^" w3m-view-parent-page "\344" w3m-download "d" w3m-download-this-url "u" w3m-print-this-url "I" w3m-view-image "\351" w3m-save-image "c" w3m-print-current-url "M" w3m-view-url-with-browse-url "G" w3m-goto-url-new-session "g" w3m-goto-url "t" w3m-create-empty-session "T" w3m-toggle-inline-images "\324" w3m-turnoff-inline-images "t" w3m-toggle-inline-image display-images-p "\333" w3m-zoom-out-image "\335" w3m-zoom-in-image "U" "v" w3m-bookmark-view "V" w3m-bookmark-view-new-session "q" w3m-close-window "Q" w3m-quit "\356" w3m-copy-buffer "\363" w3m-session-select "\323" w3m-session-save "r" w3m-redisplay-this-page "R" w3m-reload-this-page "R" w3m-reload-all-pages "?" describe-mode "\341" w3m-bookmark-add-this-url "\353" w3m-cookie "a" w3m-bookmark-add-current-url "a" w3m-bookmark-add-all-urls "+" w3m-antenna-add-current-url "]" w3m-next-form "[" w3m-previous-form "}" w3m-next-image "{" w3m-previous-image "H" w3m-gohome "A" w3m-antenna "W" w3m-weather "s" w3m-search "S" w3m-search-new-session "D" w3m-dtree ">" w3m-scroll-left "<" w3m-scroll-right "." w3m-shift-left "," w3m-shift-right "\354" w3m-horizontal-recenter "" w3m-beginning-of-line "" w3m-end-of-line "\\" w3m-view-source "=" w3m-view-header "E" w3m-edit-current-url "e" w3m-edit-this-url "|" w3m-pipe-source "" "C" "L" "" w3m-save-buffer] 5) #@45 Info-like keymap used in emacs-w3m buffers. (defvar w3m-info-like-map nil (#$ . 290433)) (byte-code "\204J\304 \305!\210\306\307\310#\210\306\311\310#\210\306\312\310#\210\306\313\310#\210\306\314\315#\210\306\316\315#\210\306\317\320#\210\306\321\320#\210\306\322\320#\210\306\323\320#\210\306\324\325#\210\306\326\327#\210\306\330\327#\210\306\331\332#\210\306\333\334#\210\306\335\336#\210\337\340!\203\205\306\341\342#\210\306\343\344#\210\306\345\344#\210\202\213\306\346\342#\210\306\347\350#\210\306\351\352#\210\306\353\354#\210\306\355\356#\210\306\357\360#\210\306\361\362#\210\306\363\310#\210\306\364\365#\210\306\366\367#\210\306\370\371#\210\306\372\373#\210\306\374\375#\210\306\376\377#\210\306\201@\201A#\210\306\201B\201C#\210\306\201D\201E#\210\306\201F\201G#\210\306\201H\201I#\210\306\201J\201K \203\201L\202 \201M#\210\306\201N\201O#\210\306\201P\201Q#\210\201K \203Q\306\201R\201S#\210\306\201T\201U#\210\306\201V\201W#\210\306\201X\201Y#\210\306\201Z\201[#\210\306\201\\\201]#\210\306\201^\201_#\210\306\201`\201a#\210\306\201b\201c#\210\306\201d\201e#\210\306\201f\201g#\210\306\201h\201i#\210\306\201j\201k#\210\306\201l\201m#\210\306\201n\201o#\210\306\201p\201q#\210\306\201r\201Y#\210\306\201s\201t#\210\306\201u\201v#\210\306\201w\201x#\210\306\201y\201z#\210\306\201{\201]#\210\306\201|\201_#\210\306\201}\201~#\210\306\201\201\200#\210\306\201\201\201\202#\210\306\201\203\201\204#\210\306\201\205\201\206#\210\306\201\207\201\210#\210\306\201\211\201\212#\210\306\201\213\201\214#\210\306\201\215\201\216#\210\306\201\217\201\220#\210\306\201\221\201\222#\210\306\201\223\201G#\210\306\201\224\201\225#\210\306\201\226\201\227#\210\306\201\230\201\231#\210\306\201\232\201\233#\210\306\201\234\201\235#\210\306\201\236\201\237#\210\306\201\240\201\241#\210\306\201\242\201\243#\210\306\201\244\201\204#\210\306\201\245\201\246#\210\306\201\247\201\250#\210\306\201\251\201\252#\210\306\201\253\201\254#\210\306\201\255\201\256#\210\306\201\257 #\210\306\201\260\n#\210\306\201\261 #\210\306\201\262\201\263#\210\304\207" [w3m-info-like-map w3m-ctl-c-map w3m-redisplay-map w3m-lnum-map make-keymap suppress-keymap define-key [backspace] w3m-scroll-down-or-previous-url [delete] "" [33554464] " " w3m-next-anchor [tab] [(shift tab)] w3m-previous-anchor [(shift iso-lefttab)] [backtab] "\211" " " w3m-view-this-url [(shift return)] w3m-view-this-url-new-session [(shift kp-enter)] [mouse-2] w3m-mouse-view-this-url [follow-link] mouse-face [S-mouse-2] w3m-mouse-view-this-url-new-session featurep gtk [down-mouse-3] w3m-mouse-major-mode-menu [drag-mouse-3] undefined [mouse-3] [mouse-3] " " w3m-scroll-up-or-next-url "a" w3m-bookmark-add-current-url "a" w3m-bookmark-add-all-urls "\341" w3m-bookmark-add-this-url "+" w3m-antenna-add-current-url "A" w3m-antenna "b" "!" w3m-redisplay-with-content-type "d" w3m-download "D" w3m-download-this-url "e" w3m-edit-current-url "E" w3m-edit-this-url "f" w3m-toggle-filtering "g" w3m-goto-url "G" w3m-goto-url-new-session "t" w3m-create-empty-session "h" describe-mode "H" w3m-gohome "i" display-images-p w3m-toggle-inline-image w3m-view-image "I" w3m-toggle-inline-images "\311" w3m-turnoff-inline-images "\333" w3m-zoom-out-image "\335" w3m-zoom-in-image "\351" w3m-save-image "l" w3m-view-previous-page "\f" recenter [(control L)] w3m-reload-this-page [(control t) (control L)] w3m-reload-all-pages "M" w3m-view-url-with-browse-url "n" w3m-view-next-page "N" w3m-namazu "\356" w3m-copy-buffer "\353" w3m-cookie "\363" w3m-session-select "\323" w3m-session-save "o" w3m-history "O" w3m-db-history "p" "P" undecided "q" w3m-close-window "Q" w3m-quit "r" w3m-redisplay-this-page "R" "R" "s" w3m-search "S" w3m-search-new-session "T" w3m-dtree "u" w3m-view-parent-page "v" w3m-bookmark-view "V" w3m-bookmark-view-new-session "W" w3m-weather "y" w3m-print-current-url "Y" w3m-print-this-url "=" w3m-view-header "\\" w3m-view-source "?" ">" w3m-scroll-left "<" w3m-scroll-right [(shift right)] w3m-shift-left [(shift left)] w3m-shift-right "\354" w3m-horizontal-recenter "" w3m-beginning-of-line "" w3m-end-of-line "." beginning-of-buffer "^" "]" w3m-next-form "[" w3m-previous-form "}" w3m-next-image "{" w3m-previous-image "|" w3m-pipe-source "" "C" "L" "" w3m-save-buffer] 5) #@304 Return a buffer in which emacs-w3m is running. If there is no emacs-w3m session, return nil. If the optional VISIBLE is non-nil, a visible emacs-w3m buffer is preferred. The last visited emacs-w3m buffer is likely to return if VISIBLE is omitted or there is no visible buffer. (fn &optional VISIBLE) (defalias 'w3m-alive-p #[256 "\300\301!\211@\203,\302\262\204'\203'\303@\301\"\203 @\262A\262\202\f\206-\207\211\207" [w3m-list-buffers t nil get-buffer-window] 6 (#$ . 294922)]) #@233 Quit emacs-w3m. Quit browsing immediately if the prefix argument FORCE is specified, otherwise prompt you for the confirmation. See also `w3m-close-window'. This command updates the `arrived URLs' database. (fn &optional FORCE) (defalias 'w3m-quit #[256 "\304\305!\306\304\305!)GGU\204\307\310!\311\306!\210\203u\306\204+\307\312!\311\306!\210\203q\313 \210\314 \210\315\316!\210\211\211\203S\211@\317!\210\320!\210 \203L\321!\210A\266\202\2026\210 \203[\322 \210\323 \210\324 \210\325 \210\326 \210\n\203n\327 \210\330 \210)\202\230\313 \210\306\331\332!\211\262\203\216\333\305\"\210\320!\210\202y\210\334 \210\335\336 \306\"\210\337\340\341\"\210 \342U\205\247\337\343\341\"\207" [w3m-fb-mode w3m-use-form w3m-use-cookies emacs-major-version w3m-list-buffers t nil y-or-n-p "Kill emacs-w3m buffers on other frames? " message "Do you want to exit emacs-w3m? " w3m-session-automatic-save w3m-delete-frames-and-windows sit-for 0 w3m-cancel-refresh-timer kill-buffer w3m-form-kill-buffer w3m-form-textarea-file-cleanup w3m-select-buffer-close-window w3m-cache-shutdown w3m-arrived-shutdown w3m-process-shutdown w3m-cookie-shutdown w3m-kill-all-buffer get-buffer " *w3m buffers*" delete-windows-on w3m-fb-delete-frame-buffers display-buffer-same-window other-buffer remove-hook window-configuration-change-hook w3m-redisplay-pages-automatically 26 window-size-change-functions] 7 (#$ . 295427) "P"]) #@226 Bury emacs-w3m buffers and close windows and frames. The buffers remain, and the sessions continue to exist, so you can return to them by either running `M-x w3m' or by switching to one of the buffers. See also `w3m-quit'. (defalias 'w3m-close-window #[0 "\301 \210\302\303!\211\304\211\211\305 \210\203$\211A\262\242\262\306!\210\307!\210\202 \203R\211A\262\242\262\310\311\303#\262\203$\211A\262\242\262\312\313\304\314!#\"\210\2027\266\315 \210\316\317 !q\210\320=\205i\307 \210\202]\207" [major-mode w3m-history-store-position w3m-list-buffers t nil w3m-delete-frames-and-windows w3m-cancel-refresh-timer bury-buffer get-buffer-window-list no-minibuf set-window-buffer other-buffer window-frame w3m-select-buffer-close-window window-buffer selected-window w3m-mode] 12 (#$ . 296862) nil]) (byte-code "\204 \304=\203\n\202 \305\306!\203#\307\310\"\204#\311\312\310#\210\304\207" [w3m-mode-map w3m-key-binding w3m-info-like-map w3m-lynx-like-map info fboundp text-scale-adjust where-is-internal w3m-text-scale-adjust define-key [remap text-scale-adjust]] 4) #@59 Run `text-scale-adjust' and redisplay the page. (fn INC) (defalias 'w3m-text-scale-adjust #[257 "\301!\210\302\303 \304\211\2035\211@\305\211\203-\211@\306\307\310C\"!\311\312 \"#\210A\266\202\202\210A\266\202\202\210\211\262!\210\313\314 )\207" [inhibit-redisplay text-scale-adjust set-transient-map make-sparse-keymap (nil (control)) (45 43 61 48) define-key vector append make-closure #[0 "\301\302\300!!\207" [V0 w3m-text-scale-adjust abs] 3 nil nil] t w3m-redisplay-this-page] 13 (#$ . 297971) "p"]) #@64 Pop up a W3M mode-specific menu of mouse commands. (fn EVENT) (defalias 'w3m-mouse-major-mode-menu #[257 "\306!\210\203 A\202 @\n\203\307\310\n#\202\211\311\312!\210\313\314\315\307 \316\211\f\316\317\nB \2054\320 B\321\203D\307\322#\202FB\257\"\"\"\207" [w3m-bookmark-mode w3m-bookmark-menu-items w3m-bookmark-menu-items-pre w3m-rmouse-menubar w3m-menubar w3m-tab-menubar-make-items-preitems mouse-set-point append ("----") run-hooks menu-bar-update-hook popup-menu delete nil "----" "Bookmark" "Tab" "Session" ("----") w3m-session-menu-items-pre w3m-session-menu-items] 19 (#$ . 298499) "e"]) #@50 Internal variable used by `w3m-tab-button-menu'. (defvar w3m-tab-button-menu-current-buffer nil (#$ . 299126)) #@356 List of commands invoked by the tab button menu. Each item is the symbol `-' which is a separator, or a list which consists of the following elements: 0: a function. 1: a function description. 2: a Lisp form which returns non-nil if the item is active. 3: a flag specifying whether the buffer should be selected. &rest: arguments passed to the function. (defvar w3m-tab-button-menu-commands (byte-code "\301\302\303\304\305\306\307\310\"\311\312BBBB\313\306\314\315\"\316F\317\320\306\321\322\"\316E\323\306\324\325\" E\317\326\306\327\330\"\316E\317\331\306\332\333\"\nE\334\306\335\336\" E\337\306\340\341\" E\317\342\306\343\344\"\316\345BBBB\317\346\306\347\350\"\351BB\352\306\353\354\"\355BB\356\306\357\360\"\316F\361\306\362\363\"E\257\207" [w3m-new-session-in-background (cdr (w3m-list-buffers)) (and w3m-tab-button-menu-current-buffer (w3m-lefttab-exist-p w3m-tab-button-menu-current-buffer)) (and w3m-tab-button-menu-current-buffer (w3m-righttab-exist-p w3m-tab-button-menu-current-buffer)) (and w3m-tab-button-menu-current-buffer (cdr (w3m-list-buffers))) w3m-goto-url-new-session w3m-make-menu-item "新しいタブ" "New Tab" t (w3m-new-session-url) w3m-copy-buffer "タブを複製" "Copy Tab" w3m-tab-button-menu-current-buffer - w3m-reload-this-page "タブを再読み込み" "Reload Tab" w3m-reload-all-pages "すべてのタブを再読み込み" "Reload All Tabs" w3m-delete-buffer "このタブを閉じる" "Close This Tab" w3m-delete-other-buffers "他のタブをすべて閉じる" "Close Other Tabs" w3m-delete-left-tabs "左側のタブをすべて閉じる" "Close Left Tabs" w3m-delete-right-tabs "右側のタブをすべて閉じる" "Close Right Tabs" w3m-view-url-with-browse-url "browse-url で開く" "View with browse-url" (w3m-current-url) w3m-session-save "すべてのタブを保存する" "Save All Tabs..." (t) w3m-session-select "タブリストを選択する" "Select List of Tabs..." (t) w3m-bookmark-add-current-url "このタブをブックマーク" "Bookmark This Tab..." w3m-bookmark-add-all-urls "すべてのタブをブックマーク" "Bookmark All Tabs..."] 25) (#$ . 299244)) #@22 w3m tab button menu. (defvar w3m-tab-button-menu nil (#$ . 301396)) (byte-code "\302\303\304\305\306 !B$\207" [w3m-tab-map w3m-tab-button-menu-commands easy-menu-do-define w3m-tab-button-menu "w3m tab button menu." nil w3m-make-menu-commands] 7) #@21 (fn EVENT BUFFER) (defalias 'w3m-tab-button-menu #[514 "\302\303!\211@\262!\210\211\304 !\207" [w3m-tab-button-menu-current-buffer w3m-tab-button-menu select-window event-start popup-menu] 5 (#$ . 301649)]) #@21 (fn EVENT BUFFER) (defalias 'w3m-tab-button-menu2 #[514 "\302\303!\211@\262!\210\304\305 !\207" [w3m-tab-button-menu-current-buffer w3m-tab-button-menu select-window event-start nil popup-menu] 5 (#$ . 301867)]) (byte-code "\204(\301 \302\303!\203\"\304\305\306#\210\304\307\310#\210\304\311\310#\210\202(\304\312\306#\210\301\207" [w3m-link-map make-sparse-keymap featurep gtk define-key [down-mouse-3] w3m-link-menu [drag-mouse-3] undefined [mouse-3] [mouse-3]] 4) #@16 w3m link menu. (defvar w3m-link-menu nil (#$ . 302354)) (byte-code "\301\302\303\304\305\306\307\310\311\"\312B\"\305\306\307\313\314\"\315B\"\305\306\307\316\317\"\320B\"\321\305\306\307\322\323\"\324B\"\305\306\307\325\326\"\327B\"\305\306\307\330\331\"\332B\"\305\306\307\333\334\"\335B\"\305\306\307\336\337\"\340B\"\257\n$\207" [w3m-link-map easy-menu-do-define w3m-link-menu "w3m link menu." "Link" apply vector w3m-make-menu-item "リンクをこのセッションで開く" "Open Link in This Session" (w3m-view-this-url (w3m-anchor (point))) "リンクを新しいセッションで開く" "Open Link in New Session" (w3m-view-this-url-new-session (w3m-anchor (point))) "リンクを browse-url で開く" "Open Link using browse-url" (w3m-view-url-with-browse-url (w3m-anchor (point))) "-" "このリンクをブックマーク..." "Bookmark This Link..." (w3m-bookmark-add-this-url (w3m-anchor (point))) "名前を付けてリンク先を保存..." "Save Link As..." (w3m-download-this-url (w3m-anchor (point))) "名前を付けて画像を保存..." "Save Image As..." (w3m-download-this-image (w3m-image (point))) "リンクの URL をコピー" "Copy Link Location" (w3m-print-this-url (w3m-anchor (point))) "画像の URL をコピー" "Copy Image Location" (w3m-print-this-image-url (w3m-image (point)))] 18) #@33 Pop up a link menu. (fn EVENT) (defalias 'w3m-link-menu #[257 "\301!\210\302!\207" [w3m-link-menu mouse-set-point popup-menu] 3 (#$ . 303686) "e"]) (defvar w3m-buffer-unseen nil) (make-variable-buffer-local 'w3m-buffer-unseen) (defalias 'w3m-set-buffer-unseen #[0 "\301\302\303\304\305\301$\207" [w3m-buffer-unseen t add-hook pre-command-hook w3m-set-buffer-seen nil] 5]) (defalias 'w3m-set-buffer-seen #[0 "\301\302\303\304\305#\207" [w3m-buffer-unseen nil remove-hook pre-command-hook w3m-set-buffer-seen t] 4]) #@33 Move to the next unseen buffer. (defalias 'w3m-move-unseen-buffer #[0 "\301=\205E\302 p>\303\3042/\305\"\211\205,\211@\306!\203%\307\304\"\210A\266\202\202\2620\262\211\2049\310\311!\207\312!\210\313\314!\210\315 \266\203\207" [major-mode w3m-mode w3m-list-buffers nil unseen append w3m-unseen-buffer-p throw message "No unseen buffer." switch-to-buffer run-hooks w3m-select-buffer-hook w3m-select-buffer-update] 8 (#$ . 304211) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-redisplay-pages-automatically-p funcall function #[0 "\300\207" [t] 1] "If non-nil, redisplay pages when some operation changes the page width." :group w3m :type boolean] 8) #@6939 Major mode for browsing web. \\[w3m-view-this-url] Display the page pointed to by the link under point. You may use the prefix arg `2' or `\[universal-argument] \\[universal-argument-more]\' to make a new session. \[w3m-mouse-view-this-url] Follow the link under the mouse pointer. If w3m-use-form is t, `\[w3m-view-this-url]' and `\[w3m-mouse-view-this-url]' enable you to enter forms. You may use the prefix arg `2' or `\[universal-argument] \\[universal-argument-more]\' to make a new session. \[w3m-view-this-url-new-session] Display the page of the link in a new session. If the region is active, visit all the links within the region. \[w3m-mouse-view-this-url-new-session] Display the page of the link in a new session by mouse. \[w3m-submit-form] Submit the form at point. \[w3m-reload-this-page] Reload the current page. \[w3m-reload-all-pages] Reload all the pages. \[w3m-redisplay-this-page] Redisplay the current page. \[w3m-redisplay-with-content-type] Redisplay the page, specifying a content type. \[w3m-redisplay-with-charset] Redisplay the current page, specifying a charset. \[w3m-redisplay-and-reset] Redisplay the current page and reset the user-specified charset and content type. \[w3m-next-anchor] Move the point to the next anchor. \[w3m-previous-anchor] Move the point to the previous anchor. \[w3m-next-form] Move the point to the next form. \[w3m-previous-form] Move the point to the previous form. \[w3m-next-image] Move the point to the next image. \[w3m-previous-image] Move the point to the previous image. \[w3m-view-previous-page] Move back to the previous page in the history. \[w3m-view-next-page] Move forward to the next page in the history. \[w3m-view-parent-page] Attempt to move to the parent directory of the page. \[w3m-goto-url] Visit the web page. \[w3m-goto-url-new-session] Visit the web page in a new session. \[w3m-goto-new-session-url] Open page of which url is specified by `w3m-new-session-url' in a new session. \[w3m-gohome] Go to the Home page. \[w3m-view-url-with-browse-url] Open a link using `browse-url'. \[w3m-delete-left-tabs] Delete tabs on the left side of the current tab. \[w3m-delete-right-tabs] Delete tabs on the right side of the current tab. \[w3m-tab-move-left] Move this tab N (default 1) times to the left. \[w3m-tab-move-right] Move this tab N (default 1) times to the right. \[w3m-download] Download the URL. \[w3m-download-this-url] Download the URL under point. \[w3m-view-image] Display the image under point in the external viewer. \[w3m-save-image] Save the image under point to a file. \[w3m-toggle-inline-image] Toggle the visibility of an image under point. \[w3m-toggle-inline-images] Toggle the visibility of all images. \[w3m-turnoff-inline-images] Turn off to display all images. \[w3m-zoom-out-image] Zoom in an image on the point. \[w3m-zoom-in-image] Zoom out an image on the point. \[w3m-print-this-url] Display the url under point and put it into `kill-ring'. \[w3m-print-current-url] Display the url of the current page and put it into `kill-ring'. \[w3m-view-source] Display the html source of the current page. \[w3m-view-header] Display the header of the current page. \[w3m-edit-current-url] Edit the local file displayed as the current page. \[w3m-edit-this-url] Edit the local file which is pointed to by URL under point. \[w3m-cookie] Display cookies and enable you to manage them. \[w3m-scroll-up-or-next-url] Scroll up the current window, or go to the next page. \[w3m-scroll-down-or-previous-url] Scroll down the current window, or go to the previous page. \[w3m-scroll-up] Scroll the current window up one line (or lines of which the number you specify by the prefix argument). \[w3m-scroll-left] Scroll to the left. \[w3m-scroll-right] Scroll to the right. \[w3m-shift-left] Shift to the left. \[w3m-shift-right] Shift to the right. \[w3m-horizontal-recenter] Recenter horizontally. \[w3m-beginning-of-line] Go to the entire beginning of line, may be accompanied by scrolling. \[w3m-end-of-line] Go to the entire end of line, may be accompanied by scrolling. \[next-line] Next line. \[previous-line] Previous line. \[forward-char] Forward char. \[backward-char] Backward char. \[goto-line] Go to the line, specifying the line number (beginning with 1). \[w3m-history-store-position] Mark the current position. \[w3m-history-restore-position] Go to the last marked position. \[w3m-history] Display the history of pages you have visited in the session. If it is called with the prefix arg, it displays the arrived URLs. \[w3m-antenna] Display the report of changes in web pages. If it is called with the prefix arg, it updates the report. \[w3m-antenna-add-current-url] Add the current url to the antenna database. \[w3m-search] Query to the search engine a word. To change the server, give any prefix argument to the command. \[w3m-search-new-session] Query to the search engine a word in a new session. To change the server, give any prefix argument to the command. \[w3m-weather] Display a weather report. To change the local area, give any prefix argument to the command. \[w3m-dtree] Display a directory tree. If the prefix arg is given, display files in addition to directories. \[w3m-namazu] Search files with Namazu. To change the index, give any prefix argument to the command. \[w3m-pipe-source] Pipe a page source to a shell command. \[w3m-bookmark-view] Display the bookmark. \[w3m-bookmark-view-new-session] Display the bookmark on a new session. \[w3m-bookmark-add-current-url] Add a url of the current page to the bookmark. If the prefix arg is given, the user will be prompted for the url. \[w3m-bookmark-add-all-urls] Add urls of all pages being visited to the bookmark. \[w3m-bookmark-add-this-url] Add the url under point to the bookmark. \[w3m-create-empty-session] Create an empty page as a new session and visit it. \[w3m-copy-buffer] Create a copy of the current page as a new session. \[w3m-next-buffer] Turn the page of emacs-w3m buffers ahead. \[w3m-previous-buffer] Turn the page of emacs-w3m buffers behind. \[w3m-move-unseen-buffer] Move to the next unseen buffer. \[w3m-select-buffer] Pop to the emacs-w3m buffers selection window up. \[w3m-switch-buffer] Select one of emacs-w3m buffers at the current window. \[w3m-delete-buffer] Delete the current emacs-w3m buffer. \[w3m-delete-other-buffers] Delete emacs-w3m buffers except for the current buffer. \[w3m] Start browsing web with emacs-w3m. \[w3m-close-window] Close all emacs-w3m windows, without deleteing buffers. \[w3m-quit] Exit browsing web. All emacs-w3m buffers will be deleted. \[w3m-process-stop] Try to stop internal processes of a page. \[describe-mode] describe-mode. \[w3m-mouse-major-mode-menu] Pop up a w3m-mode specific menu of mouse commands. \[report-emacs-w3m-bug] Send a bug report to the emacs-w3m team.  (defalias 'w3m-mode #[0 "\306 \210\307 \210\310\311\312\n!\210\313\303!\210\314\313\304!\210\315\316 \315!\313\317!\210\320\313\321!\210\322\323 \"#\203K\324\325\326\"\210$\327U\203K\324\330\326\"\210\331 \210\332 \210\333\334!\210\335\336!\207" [major-mode mode-name w3m-mode-map bidi-paragraph-direction nobreak-char-display truncate-lines kill-all-local-variables buffer-disable-undo w3m-mode "w3m" use-local-map make-local-variable left-to-right nil t mwheel-scroll-up-function w3m-scroll-up mwheel-scroll-down-function w3m-scroll-down window-width add-hook window-configuration-change-hook w3m-redisplay-pages-automatically 26 window-size-change-functions w3m-setup-toolbar w3m-setup-menu run-hooks w3m-mode-setup-functions run-mode-hooks w3m-mode-hook w3m-default-display-inline-images w3m-display-inline-images show-trailing-whitespace w3m-last-window-width w3m-redisplay-pages-automatically-p emacs-major-version] 3 (#$ . 304936)]) #@121 Scroll the current window up ARG lines. When called interactively, ARG defaults to 1. (fn &optional ARG INTERACTIVE-P) (defalias 'w3m-scroll-up #[512 "\300\206\n\205\n\301!\207" [scroll-up 1] 4 (#$ . 312839) (list current-prefix-arg t)]) #@364 Scroll the current window up ARG lines, or go to the next page. "Next page" means the page that the current page defines with a "Next page" link. Note that the `w3m-relationship-estimate-rules' variable and the related functions find it, so the feature will not always necessarily work. When a page visits only an image, run `image-scroll-up' instead. (fn ARG) (defalias 'w3m-scroll-up-or-next-url #[257 "\203 \303\304\305\306\"@\206\307\"\203 \310e\311\"\312=\203 \313!\207 \203D\314`db\210\315\306x\210\316y\210`b\210\262!\203D\317\320 \210\321 !)\207\322!\207" [w3m-current-url w3m-next-url w3m-prefer-cache string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-scroll-up pos-visible-in-window-p " \n " 1 t w3m-history-store-position w3m-goto-url w3m-scroll-up] 6 (#$ . 313089) "P"]) #@123 Scroll the current window down ARG lines. When called interactively, ARG defaults to 1. (fn &optional ARG INTERACTIVE-P) (defalias 'w3m-scroll-down #[512 "\300\206\n\205\n\301!\207" [scroll-down 1] 4 (#$ . 313937) (list current-prefix-arg t)]) #@380 Scroll the current window down ARG lines, or go to the previous page. "Previous page" means the page that the current page defines with a "Previous page" link. Note that the `w3m-relationship-estimate-rules' variable and the related functions find it, so the feature will not always necessarily work. When a page visits only an image, run `image-scroll-down' instead. (fn ARG) (defalias 'w3m-scroll-down-or-previous-url #[257 "\203 \303\304\305\306\"@\206\307\"\203 \310e\311\"\312=\203 \313!\207 \2034\314e!\2034\315\316 \210\317 !)\207\320!\207" [w3m-current-url w3m-previous-url w3m-prefer-cache string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-scroll-down pos-visible-in-window-p t w3m-history-store-position w3m-goto-url w3m-scroll-down] 6 (#$ . 314193) "P"]) #@47 The length of the longest line in the window. (defvar w3m-current-longest-line nil (#$ . 315020)) #@46 Set the value of `w3m-current-longest-line'. (defalias 'w3m-set-current-longest-line #[0 "\212\301 b\210\302\210\303\304 \305\302x\210i]\306\210`W\205 \202\f\262)\207" [w3m-current-longest-line window-start nil 0 window-end " " 2] 3 (#$ . 315124)]) #@154 Scroll to the left. If ARG (the prefix) is a number, scroll the window ARG columns. Otherwise, it defaults to `w3m-horizontal-scroll-columns'. (fn ARG) (defalias 'w3m-scroll-left #[257 "\211\203\n\304!\202 \262 \203-\305\306\307 \310\"@\206\311\"\203-\312e\313\"\314=\203-\315!\207\n\316>\203?\317 W\204I\320 \210\310\207\321 \210\317 W\205M\322\323\"\207" [w3m-horizontal-scroll-columns w3m-current-url last-command w3m-current-longest-line prefix-numeric-value string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-forward-hscroll (w3m-scroll-left w3m-shift-left) window-hscroll ding w3m-set-current-longest-line w3m-horizontal-scroll left] 6 (#$ . 315389) "P"]) #@155 Scroll to the right. If ARG (the prefix) is a number, scroll the window ARG columns. Otherwise, it defaults to `w3m-horizontal-scroll-columns'. (fn ARG) (defalias 'w3m-scroll-right #[257 "\211\203\n\303!\202 \262 \203-\304\305\306 \307\"@\206\310\"\203-\311e\312\"\313=\203-\314!\207\315 \316U\203=\n\317>\205A\320 \207\321\322\"\207" [w3m-horizontal-scroll-columns w3m-current-url last-command prefix-numeric-value string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-backward-hscroll window-hscroll 0 (w3m-scroll-right w3m-shift-right) ding w3m-horizontal-scroll right] 6 (#$ . 316116) "P"]) #@200 Shift to the left. Shift means a fine level horizontal scrolling. If ARG (the prefix) is a number, scroll the window ARG columns. Otherwise, it defaults to `w3m-horizontal-shift-columns'. (fn ARG) (defalias 'w3m-shift-left #[257 "\211\203\n\304!\202 \262 \203-\305\306\307 \310\"@\206\311\"\203-\312e\313\"\314=\203-\315!\207\n\316>\203?\317 W\204I\320 \210\310\207\321 \210\317 W\205M\322\323\"\207" [w3m-horizontal-shift-columns w3m-current-url last-command w3m-current-longest-line prefix-numeric-value string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-forward-hscroll (w3m-scroll-left w3m-shift-left) window-hscroll ding w3m-set-current-longest-line w3m-horizontal-scroll left] 6 (#$ . 316770) "P"]) #@201 Shift to the right. Shift means a fine level horizontal scrolling. If ARG (the prefix) is a number, scroll the window ARG columns. Otherwise, it defaults to `w3m-horizontal-shift-columns'. (fn ARG) (defalias 'w3m-shift-right #[257 "\211\203\n\303!\202 \262 \203-\304\305\306 \307\"@\206\310\"\203-\311e\312\"\313=\203-\314!\207\315 \316U\203=\n\317>\205A\320 \207\321\322\"\207" [w3m-horizontal-shift-columns w3m-current-url last-command prefix-numeric-value string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-backward-hscroll window-hscroll 0 (w3m-scroll-right w3m-shift-right) ding w3m-horizontal-scroll right] 6 (#$ . 317541) "P"]) (defvar w3m-horizontal-scroll-done nil) (make-variable-buffer-local 'w3m-horizontal-scroll-done) (defvar w3m-current-position '(-1 0 0)) (make-variable-buffer-local 'w3m-current-position) #@372 Scroll the window NCOL columns horizontally to DIRECTION. DIRECTON should be the symbol `left' which specifies to scroll to the left, or any other Lisp object meaning to scroll to the right. NCOL should be a number. This function is a subroutine called by the commands `w3m-scroll-left', `w3m-scroll-right', `w3m-shift-left' and `w3m-shift-right'. (fn DIRECTION NCOL) (defalias 'w3m-horizontal-scroll #[514 "\302\211\303\304\305\306 \307=\203\202[\\]\")\207" [w3m-horizontal-scroll-done inhibit-point-motion-hooks t set-window-hscroll nil 0 window-hscroll left] 9 (#$ . 318427)]) #@172 Recenter horizontally. With ARG, put the point on the column ARG. If `truncate-lines' is nil, it does nothing besides resetting the window's hscroll. (fn &optional ARG) (defalias 'w3m-horizontal-recenter #[256 "\203vi\302 W\203\303\302 !\210\304\262\2029i\302 \305 \\Y\2030\303\302 \305 \\\306\\!\210\307\262\2029\211<\2039\211@\262\310\311\247\203k\304Y\203NiZ\304]\202t`\312\311\210iSb\210\313i\305 \306$^\304])\266\202\202ti\305 \314\245ZT\304]\"\207\310\311\304\"\207" [truncate-lines inhibit-point-motion-hooks window-hscroll move-to-column 0 window-width -2 -1 set-window-hscroll nil t - 2] 10 (#$ . 319026) "P"]) #@44 Recenter according to `w3m-view-recenter'. (defalias 'w3m-recenter #[0 "\205\301 p=\205\302\303=\203\304\202!\207" [w3m-view-recenter window-buffer recenter t (4)] 3 (#$ . 319678)]) #@89 Make the beginning of the line visible and move the point to there. (fn &optional ARG) (defalias 'w3m-beginning-of-line #[256 "\203$\301\302\303\304\"@\206\305\"\203$\306e\307\"\310=\203$\311\206\"\312!\207\211<\203-\211@\262\313\304\314\"\210\315!\207" [w3m-current-url string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-bol 1 set-window-hscroll 0 beginning-of-line] 6 (#$ . 319877) "P"]) #@213 Move the point to the end of the line and scroll the window left. It makes the ends of upper and lower three lines visible. If `truncate-lines' is nil, it works identically as `end-of-line'. (fn &optional ARG) (defalias 'w3m-end-of-line #[256 "\203$\305\306\307\310\"@\206\311\"\203$\312e\313\"\314=\203$\315\206\"\316!\207 \203v\211<\2031\211@\262\211\2066\316Sy\210\317\310\310\210`\262i\262\320\211\203b\211@\211y\210\310\210i]\262b\210A\266\202\202G\210)\266\211\321\322\310\323 Z\324Z\325]\"\207\322\310\325\"\210\211\207" [w3m-current-url truncate-lines inhibit-point-motion-hooks temporary-goal-column this-command string-match "\\`image/" w3m-attributes nil "" get-text-property w3m-image-status on image-eol 1 t (-3 -2 -1 1 2 3) next-line set-window-hscroll window-width -2 0] 7 (#$ . 320327) "P"]) #@88 Create a new uri from URI matched by last search according to FORMAT. (fn URI FORMAT) (defalias 'w3m-pattern-uri-replace #[514 "\300\301\211$\207" [replace-match nil] 7 (#$ . 321173)]) #@74 Return the converted URI according to `w3m-uri-replace-alist'. (fn URI) (defalias 'w3m-uri-replace #[257 "\3012N\211\203J\211@\302@\"\203C\303\301A:\203(\304A@AA#\202A\305A!\2036A!\202AA;\205A\306A\"\"\210A\266\202\202\2620\207" [w3m-uri-replace-alist found-replacement string-match throw apply functionp w3m-pattern-uri-replace] 9 (#$ . 321367)]) #@744 Process `.torrent' links and `magnet:' protocol URLs. This handler is currently hard-coded to require the external command- line programs `transmission-daemon' and `transmission-remote', and to recommend the external NCURSES program `transmission-remote-cli'. The `transmission-daemon' program initiates a web interface on `http://localhost:9091' from which one may view and manipulate torrents; however, that interface requires javascript, so is unavailable directly via `emacs-w3m'. An alternative NCURSES interface is available using `transmission-remote-cli', so if that external program is available, this function concludes by starting that external program in a dedicated `ansi-term' buffer, if one does not already exist. (fn URL) (defalias 'w3m--goto-torrent-url #[257 "\301\302!\203\f\301\303!\204\304\305!\207\211\205G\306\307!\310U\204&\306\311P!\210\312\313!\210\306\314P!\210\301\315!\205G\316\317!?\205G\320\315\321\"\210\322\323p!\324\"\210\325 \207" [w3m-default-save-directory executable-find "transmission-daemon" "transmission-remote" w3m-message "Missing executable for processing torrents." shell-command "pgrep -f transmission-daemon" 0 "transmission-daemon -w " sit-for 1 "transmission-remote -a " "transmission-remote-cli" get-buffer "*w3m-torrents*" ansi-term "w3m-torrents" set-process-sentinel get-buffer-process #[514 "\300\301\"\205 \302 \207" [string-match "finished" kill-buffer] 5 "\n\n(fn PROCESS EVENT)"] bury-buffer] 4 (#$ . 321750)]) #@32 (fn URL &optional POST-DATA) (defalias 'w3m-goto-mailto-url #[513 "\306 \237\307\211C\307\211\211\211\310\311\312\310\313\314\315!##\262 \316 \317\320\"\216\321!\203-\n!\210\202\223 \322N\211\262\203=\321!\204B\323\324 \"\210\325\326!\210\327 !\240\210\330\331\242\"\262\332\242\"\240\210\332\307AC\"\262\203\200 :\203z @\202| C\244\262\333\334\335\317\336 \"\337\" \242C\"\"\210)\210\306 \237\262r\203\301@\262A\262>\204\233q\210\n \236A\211\262\203\233\307\262\202\233)\211\205\307\211\211\307%!\210)\205\340 \262eb\210\341\311\342&!\311Q\307\343#\210n\204\364\311c\210\203\f\211A\262\242c\210n\204\364\311c\210\202\364\344!*\266\203\207" [w3m-mailto-url-function mail-user-agent major-mode w3m-mailto-url-popup-function-alist same-window-regexps same-window-buffer-names buffer-list nil replace-regexp-in-string "\n" "%0a" "\\(?: \\|%0[Dd]\\)+" "" w3m-url-readable-string current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] functionp composefunc error "No mail composing function for `%s'" require rfc2368 rfc2368-parse-mailto-url assoc "Body" delq apply append mapcar #[257 "\301\300\242\"A\300\302\301\300\242\"\300\242\"\240\210\207" [V0 assoc delq] 7 "\n\n(fn X)"] ("To" "Subject") buffer-modified-p search-forward regexp-quote move set-buffer-modified-p display-buffer-alist mail-header-separator] 17 (#$ . 323242)]) #@12 (fn URL) (defalias 'w3m-convert-ftp-url-for-emacsen #[257 "\300\301\"\203(\302\303\224\203\303\224\303\225O\202\304\305\224\305\225O\306\305\225\307O\260\206+\310\311!\207" [string-match "\\`ftp://?\\([^/@]+@\\)?\\([^/]+\\)\\(?:/~/\\)?" "/" 1 "anonymous@" 2 ":" nil error "URL is strange"] 8 (#$ . 324701)]) #@78 Emulate the `file-directory-p' function for the remote file FILE. (fn FILE) (defalias 'w3m-file-directory-p #[257 "\300!\205:\301\302\30328\211\304V\2057\305!@\262;\203/\306\307\310!!\"\262\211S\262\202\f\311\303\"\210\202\f0\266\202\207" [file-exists-p nil 10 loop 0 file-attributes expand-file-name file-name-directory directory-file-name throw] 8 (#$ . 325028)]) #@339 Copy a remote file to the local system or run dired for ftp URLs. If URL looks like a file, it will perform the copy. Otherwise, it will run `dired-other-window' using `ange-ftp' or `efs'. Optional FILENAME specifies the name of a local file. If FILENAME is omitted, this function will prompt user for it. (fn URL &optional FILENAME) (defalias 'w3m-goto-ftp-url #[513 "\300!\301\302\301O\303\230\204\304!\203\305!\207\306!\262\204)\307\301\211\211\211%\262\310\311!!\2048\312\313\311!\"\210\314!\203_\310!\203X\315\316\317\"!\320\301!\210\205h\321!\210\202_\312\313\"\205h\322\"\210\320\323\"\207" [w3m-convert-ftp-url-for-emacsen nil -1 "/" w3m-file-directory-p dired-other-window file-name-nondirectory w3m-read-file-name file-writable-p file-name-directory error "Permission denied, %s" file-exists-p y-or-n-p format "File(%s) already exists. Overwrite? " message delete-file copy-file "Wrote %s"] 10 (#$ . 325418)]) (byte-code "\204 \301 \302\303\304#\210\301\207" [w3m-doc-view-map make-sparse-keymap define-key "q" w3m-doc-view-quit] 4) #@134 View PDF/PostScript/DVI files using `doc-view-mode'. Where the document is displayed depends upon the `w3m-display-mode'. (fn URL) (defalias 'w3m-doc-view #[257 "\306\307!!\310\311!\312Q\313 \314\211\211r\203C\211A\262\242\262\315\316!\"\203=q\210 \317=\203=\n\232\203=\314\262\202\314\262\202)\211\204S\320!\262\321 \262 \f\322!\210*?\205~\323\314!\210\211c\210\324\314!\210\317 \210\325!\210\326\"\210\327)\207" [case-fold-search major-mode buffer-file-name w3m-pop-up-windows w3m-pop-up-frames pop-up-frames file-name-nondirectory w3m-url-strip-query "\\`" regexp-quote "\\(?:<[0-9]+>\\)?\\'" buffer-list nil string-match buffer-name doc-view-mode generate-new-buffer buffer-string pop-to-buffer set-buffer-multibyte set-buffer-modified-p use-local-map set-keymap-parent internal-view pop-up-windows w3m-doc-view-map doc-view-mode-map] 10 (#$ . 326506)]) #@127 Quit the `doc-view-mode' window that emacs-w3m launches. With the prefix argument KILL, kill the buffer. (fn &optional KILL) (defalias 'w3m-doc-view-quit #[256 "\203\302\303!\304!\210\205(\305\306 !\207 \205(\304!\210\307\310\311\"\312 =?\205(\313 \207" [w3m-pop-up-frames w3m-pop-up-windows one-window-p t quit-window delete-frame selected-frame next-window nil no-mini selected-window delete-window] 4 (#$ . 327414) "P"]) #@239 Memorize the current positions whenever every command starts. The value will be held in the `w3m-current-position' variable. This function is designed as the hook function which is registered to `pre-command-hook' by `w3m-buffer-setup'. (defalias 'w3m-store-current-position #[0 "`\301\302 !\301\303 !E\211\207" [w3m-current-position copy-marker point-at-bol point-at-eol] 4 (#$ . 327854)]) #@233 Run `w3m-after-cursor-move-hook' after invoking a command. This function is designed as a hook function which is registered to `post-command-hook' by `w3m-buffer-setup' for showing some infomations when the command moves the point. (defalias 'w3m-check-current-position #[0 "`@U?\205\302\303\304!)\207" [w3m-current-position deactivate-mark nil run-hooks w3m-after-cursor-move-hook] 2 (#$ . 328254)]) #@156 Generate a new buffer, select it and set it up for emacs-w3m. When the current buffer has already been prepared, it won't bother to generate a new buffer. (defalias 'w3m-buffer-setup #[0 "\303=\204\304\305!\211\206\306\307!q\266\305\310\311\312\313\305$\210\310\314\315\313\305$\210\316 \210\317\320\321!\322\"\211\207" [major-mode truncate-lines mode-line-buffer-identification w3m-mode w3m-alive-p t w3m-generate-new-buffer "*w3m*" add-hook pre-command-hook w3m-store-current-position nil post-command-hook w3m-check-current-position w3m-initialize-graphic-icons append propertized-buffer-identification "%b" (" " (w3m-current-process w3m-modeline-process-status-on (w3m-current-ssl (w3m-display-inline-images w3m-modeline-ssl-image-status-on w3m-modeline-ssl-status-off) (w3m-display-inline-images w3m-modeline-image-status-on w3m-modeline-status-off))) (w3m-show-graphic-icons-in-mode-line (w3m-use-favicon (w3m-favicon-image w3m-modeline-favicon w3m-modeline-separator) w3m-modeline-separator) w3m-modeline-separator) (w3m-current-process (:eval (if w3m-process-modeline-string (concat "Downloading " (mapconcat #'cdr w3m-process-modeline-string " ")) "Loading...")) (:eval (w3m-modeline-title))))] 5 (#$ . 328666)]) #@104 Internal variable used to keep contents to be shown in the mode line. This is a buffer-local variable. (defvar w3m-modeline-title-string nil (#$ . 329903)) (make-variable-buffer-local 'w3m-modeline-title-string) #@200 Say time has not gone by after the mode line was updated last time. It is used to control the `w3m-modeline-title' function running too frequently, set by the function itself and cleared by a timer. (defvar w3m-modeline-title-timer nil (#$ . 330122)) (make-variable-buffer-local 'w3m-modeline-title-timer) #@69 Return a truncated title not to cut the right end of the mode line. (defalias 'w3m-modeline-title #[0 "\203\305\207 \205T\n\203 \206T \306\307\3101#\311\f\312\"0\202%\210\305!\313 Z\307 !\314V\203J\211\315V\203J\316\317\305\320 Z\315Z\321]\"#\322P \266\202\323\324\325\326p$\210\207" [w3m-use-title-buffer-name w3m-current-title w3m-modeline-title-timer w3m-modeline-title-string mode-line-format "" t string-width (error) format-mode-line 1 window-width 0 3 replace-regexp-in-string "[ ]+\\'" truncate-string-to-width 2 "..." run-at-time 0.5 nil #[257 "\301!\205r\211q\210\302\211)\207" [w3m-modeline-title-timer buffer-live-p nil] 3 "\n\n(fn BUFFER)"]] 9 (#$ . 330434)]) #@305 Uniform error handling for conition of a busy buffer. Although operations are asynchronous, it makes sense that only one GET operation can be performed at any one time in any single buffer, so if the user tries to perform a second operation, a helpful message is presented and the operation is aborted. (defalias 'w3m--buffer-busy-error #[0 "\205\n\301\302\303\304!\"\207" [w3m-current-process error "%s" substitute-command-keys "This buffer is currently busy.\n `\\\\[w3m-process-stop]' to abort current operation,\n `\\\\[w3m-search-new-session]' to perform a search in a new buffer.\n `\\\\[w3m-goto-url-new-session]' to visit a URL in a new buffer."] 4 (#$ . 331137)]) #@103 (fn URL RELOAD CHARSET POST-DATA REFERER REDISPLAY NAME REUSE-HISTORY ACTION ORIG HISTORY-POSITION) (defalias 'w3m--goto-url--handler-function #[2827 "rq\210 \205/\306\204\307 \310 \206\311D\"\210\202\247 \3121H\313 \f\"\314\224\203D\314\224\314\225W\203D\f\314\224H\315=\203D\316\317\320 \321\"!\2100\202L\210\322\f!)\210\323\224\203Y\324\314 \"\262\203\263\325\306\326=?#\203\263\327!\330\306\211\331!$\266@\204A\332=\203\333\334 \"\204\313\335\336!\211\262\"\203\235\324\337\"\262\340\341\f#\210\342\343\306\344B\306B$\210\202\345 !\203\346\347 !!\203\350 !\211\351Ped\306\352\353\"\204\331\354\353\306$\262\203\352\353\"\262\232\204\232\204\355\353\306$\211\262\203\331\354\353\306$\262\202\331\203 b\210\266\326=\204\247\356\232\2035\357C\307 \310 D\"\210\211\2031D\360!\240\210)\202V\211\361=\205AD@A@C\307 \310 D\"\210\211\203S\362!\210)\266\363\364\365 F!\210E\204iFGH\203v \203v\366 \210\367 \203\215I\203\204\370\337!\210\371\372 \"\210\202\247\373 \203\247\374=\203\247I\203\241\370\337!\210\375\372 \"\210\357J\376\306!\210 K\377 !L\201N \210\201O !\203\322\201P !\206\324\n\202\324\n\201Q\201R\"\210\201Q\201S\"\266\201T \210\201U \210 \203 ;\203\313\201V \"\204\201W \306\"@\201X\232\203\306M \204\203\"\201Y \210\204+\201Z \210\201[ )\207" [w3m-current-buffer w3m-current-url w3m-current-process w3m-current-title string w3m-url-components-regexp nil w3m-history-push :title "" (error) string-match 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 8 match-string w3m-search-name-anchor cursor-moved w3m-url-strip-authinfo w3m-arrived-add w3m-arrived-time w3m-view-this-url-new-session get-buffer-window selected-frame "\\*w3m\\*<[0-9]+>\\'" buffer-name 0 w3m-message "The content (%s) has been retrieved in %s" run-at-time 0.5 #[257 "\211\211\207" [w3m-after-cursor-move-hook] 3 "\n\n(fn ORIG)"] w3m-url-local-p file-directory-p w3m-url-to-file-name directory-file-name "/" get-text-property w3m-href-anchor text-property-not-all text-property-any "about://history/" t w3m-history-regenerate-pointers reload w3m-history-set-current w3m-history-add-properties :referer :post-data w3m-form-textarea-files-remove w3m-display-inline-images-p sit-for w3m-toggle-inline-images force display-images-p image-page w3m-toggle-inline-image set-buffer-modified-p w3m-current-directory w3m-message-silent this-command w3m-after-cursor-move-hook w3m-history-reuse-history-elements w3m-history w3m-toggle-inline-images-permanently w3m-default-display-inline-images w3m-display-inline-images w3m-use-form w3m-force-redisplay buffer-read-only list-buffers-directory default-directory truncate-lines w3m-buffer-name-add-title w3m-arrived-p w3m-real-url run-hook-with-args w3m-display-functions w3m-display-hook w3m-select-buffer-update w3m-session-crash-recovery-save "\\`about://\\(?:header\\|source\\)/" w3m-attributes "text/plain" w3m-history-restore-position w3m-set-buffer-unseen w3m-refresh-at-time] 21 (#$ . 331862)]) #@146 Main function called by `w3m-goto-url' for handling generic URLS. (fn URL RELOAD CHARSET POST-DATA REFERER HANDLER ELEMENT BACKGROUND SAVE-POS) (defalias 'w3m--goto-url--valid-url #[2313 "CC\306\242!\240\210\307 \210\310 \210\204\311p!\210\312p!\210\313 \210\314p!\210\315p!\210\2044\316\317!\2037\320 \210\321\322\242\"\203\312\323\324\325\242\326\225\327O\330\"\"\327\331\211 B\332 \333\334\"\216\335\211A\262\242!G\326\211W\203~\327\336\327\211\211\337\340%B\262\210\211T\262\202c\266\237\211\203\236\211@r\211A\262\242q\210\335!\210)A\266\202\202\202\210)\262\262\341!\203\264 \203\260\207\342!\207\341!\211\262!\203\311 \203\305\207\342!\207\207\211\242\343=\327C\344`\345\"\346\242!\240\210?\205\345\242\240\210 \203\360\347\350 \"\210p\204\n\351\232\203 \203 \352\340\"\202\205\242\353 \f\")\262 \242?\205: ?\205:\354\242!\2043\355\242!\205:\356\357\n\233\350\"\211\203C\340 B \203V\203V\360 A@\350\327#\210\355\242!\203\214\361\362\242!!\203\214\363\242!\240\203\214 \364=\203\214\321\365\242\"\203\214\366\367\327\211\n\242$\240\210\242@\3701\275\321A@\"\371\224\203\271\371\224\371\225W\203\271@\371\224H\372=\203\271\373\374\375 \376\"!\2100\202\302\210\377@!)\210\201E\224\203\341\201F\371\242\"\240\210\211\242\326\201E\224O\240\210\355\242!\203\374\321\201G\242\"\204\374\324\242!\240\210\333\201H\n\n\n\n&\n\211 B\242\204<\204<B;\203<\242B\230\203<\201I \210\201J\202\205C\203^\347\201K\201L\201M\327DC@\250\205[C@TC\233\"\"\210\356\357\f\233\201K\"C\201N\242\242&\211DBD\211\262\262\341!\203\234 \203\226\211\202\267\342!\202\267\341!\211\262!\203\266 \203\260\211\202\267\342!\202\267\211\262\262)\207" [w3m-history-reuse-history-elements w3m-current-forms w3m-current-buffer url w3m-history-flat w3m-local-directory-view-method w3m--url-strip-unwanted-queries w3m-buffer-setup w3m-arrived-setup w3m-popup-buffer w3m-cancel-refresh-timer w3m--buffer-busy-error w3m-process-stop w3m-idle-images-show-unqueue called-interactively-p any w3m-history-store-position string-match "\\`group:" mapcar w3m-url-decode-string split-string 0 nil "&" #[257 "\207" [] 2 "\n\n(fn TYPE)"] current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] w3m-goto-url w3m-copy-buffer empty t w3m-process-p w3m-process-start-process redisplay get-text-property history-position w3m-url-strip-authinfo w3m-history-plist-put :forms "about://history/" w3m-history-element assoc w3m-cache-available-p w3m-url-local-p plist-get 3 w3m-history-set-plist file-directory-p w3m-url-to-file-name file-name-as-directory w3m-dtree "\\`file:///" replace-match "about://dtree/" (error) 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 string w3m-url-components-regexp w3m-current-url w3m-name-anchor-from-hist w3m-current-process 8 match-string "[^-]" #[257 "\311\300\242\301\242\302\303\304\305\306\242\310 \300\242\307& \207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 w3m--goto-url--handler-function] 13 "\n\n(fn ACTION)"] w3m-refontify-anchor cursor-moved :name-anchor-hist append 1 w3m-retrieve-and-render] 26 (#$ . 334998)]) #@1631 Visit World Wide Web pages in the current buffer. This is the primitive function of `w3m'. If the second argument RELOAD is non-nil, reload a content of URL. Except that if it is 'redisplay, re-display the page without reloading. The third argument CHARSET specifies a charset to be used for decoding a content. The fourth argument POST-DATA should be a string or a cons cell. If it is a string, it makes this function request a body as if the content-type is "x-www-form-urlencoded". If it is a cons cell, the car of a cell is used as the content-type and the cdr of a cell is used as the body. If the fifth argument REFERER is specified, it is used for a Referer: field for this request. The remaining HANDLER, ELEMENT[1], BACKGROUND, and SAVE-POS[2] are for the internal operations of emacs-w3m. You can also use "quicksearch" url schemes such as "gg:emacs" which would search for the term "emacs" with the Google search engine. See the `w3m-search' function and the variable `w3m-uri-replace-alist'. Notes for the developers: [1] ELEMENT is a history element which has already been registered in the `w3m-history-flat' variable. It is corresponding to URL to be retrieved at this time, not for the url of the current page. [2] SAVE-POS leads this function to save the current emacs-w3m window configuration; i.e. to run `w3m-history-store-position'. `w3m-history-store-position' should be called in a w3m-mode buffer, so this will be convenient if a command that calls this function may be invoked in other than a w3m-mode buffer. (fn URL &optional RELOAD CHARSET POST-DATA REFERER HANDLER ELEMENT BACKGROUND SAVE-POS) (defalias 'w3m-goto-url #[2305 "\204k\306\307!\210\3102+\211\205(\211@\311@\f\"\203!\312\310\"\210A\266\202\202 \2620\211\2055 \313\225\314O\314\203i\203iA@\315=\203i\316\3178 \"\262\211\203i\320GW\203i\321\3208\322\3178\"\"\262 \323\262 \266\324 !\262 \325\313\nG\314\f$\210\326 !\204\355\311\327\n\"\204\355\323\311\330\n\")\204\355\3311\302\311\f \"\332\224\203\276\332\224\332\225W\203\276 \332\224H\333=\203\276\334\335\336 \337\"!\2100\202\306\210\340 !)\210\336 \341\342\"\216\343\n\313\344\224O!)\262\344\224\203\351\345\346\332\f\"P\202\352\347P\262 \311\330\n\"\203\374\350 \"\207\311\351\n\"\204\f\311\352\n\"\203\353 !\207 \203,\311\354\n\"\203,\355 !@\356\230\204,\357 !\207\3601\221\326 !\205\215@\205\215\361 !A@\314\211\203P\311\"\205\213AA\211\262\205]\311\"?\205\213\362!\211\262\205\213\363!\205\213\364!?\205\213\323\365@!\203\204@\202\210\366@!!\210\266\2040\202\225\210\202\230\206T\367 !\203\314\211\n\3311\316\311\f \"\332\224\203\312\332\224\332\225W\203\312 \332\224H\333=\203\312\334\335\336 \337\"!\2100\202\322\210\340 !)\210\346\337\f\"\346\370 \"P\262\346\332\f\"\262\347\230\203\366\211\203\366\371!\207\347\230\204\372\373\f\337\224\314O\374BP\"       &\207\375\376!\207\211C\2051\311\377C\"?\2051C)\203M\201D         & \207\375\201E\n\"\207" [w3m-uri-replace-alist w3m-search-engine-alist case-fold-search string w3m-url-components-regexp w3m-use-ange-ftp require w3m-search found-replacement string-match throw 0 nil w3m-search-uri-replace assoc 2 3 format w3m-search-escape-query-string t w3m-canonicalize-url set-text-properties w3m-url-local-p "\\`about:" "\\`mailto:" (error) 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] w3m-url-transfer-encode-string 8 "#" match-string "" w3m-goto-mailto-url "\\`magnet:" "\\.torrent\\'" w3m--goto-torrent-url "\\`ftps?://" w3m-local-file-type "text/html" w3m-goto-ftp-url (error) w3m-url-strip-fragment w3m-url-to-file-name file-exists-p file-directory-p functionp eval w3m-buffer-local-url-p 5 w3m-search-name-anchor w3m-goto-url w3m-expand-url "file://" w3m-message "No URL at point" "\\`http:///" w3m-local-find-file-function w3m-local-find-file-regexps default-directory url w3m--goto-url--valid-url "Invalid URL: %s"] 21 (#$ . 338286) (byte-code "\302 ?\205\303\304\305\211\211\306\307& E\207" [current-prefix-arg coding-system-for-read w3m--buffer-busy-error w3m-input-url "Open URL in current buffer" nil feeling-searchy no-initial] 7)]) #@113 Return a directory used as the current directory in a page visiting URL. See `w3m-default-directory'. (fn URL) (defalias 'w3m-current-directory #[257 "\211\203L\211;\203L\302\303\304\"\203)\305!\262\306\303\307\"\203\"\202%\310!!\202G\311!\211\262\205G\312!\205G\306\313!\203C\202F\310!!\262\206\255\302\306;\203_\313!\203_\314!\206\2529\203\203\315!\203\203J\211\262\203\203;\203\203\313!\203\203\314!\206\252\316!\203\251\3171\224!0\202\226\210\302\211\262;\203\251\313!\203\251\314!\206\252 !\262\207" [w3m-default-directory w3m-profile-directory nil string-match "\\`ftp://" w3m-convert-ftp-url-for-emacsen file-name-as-directory "/\\`" file-name-directory w3m-url-to-file-name file-exists-p file-directory-p expand-file-name boundp functionp (error)] 6 (#$ . 342605)]) (defalias 'w3m-refresh-at-time #[0 "\205' \205' @ A\n]\262\304U\203\305p\"\207\306\307\305p%\211\266\202\207" [w3m-use-refresh w3m-current-refresh w3m-refresh-minimum-interval w3m-refresh-timer 0 w3m-goto-url-with-timer run-at-time nil] 8]) #@72 Run the `w3m-goto-url' function by the refresh timer. (fn URL BUFFER) (defalias 'w3m-goto-url-with-timer #[514 "\211\205\302\303\"?\205)\205\226\211\205\226\211;\203\"\304!\202%\305!\205\226\306!\203W\307 r\310\311\"\216\312!\210rq\210\313!\210 \203R \230\203R\314\315!\202U\316!+\207\317!\203\216\320 \321!rq\210\313!\210 \203| \230\203|\314\315\211\"\210\202\210\316\322\211\211\211\211\211\315&\210)\323\"\207r\211q\210\313!)\207" [url w3m-current-url string-match "\\`http:///" get-buffer buffer-name get-buffer-window internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] pop-to-buffer w3m-cancel-refresh-timer w3m-reload-this-page t w3m-goto-url buffer-live-p selected-window window-buffer nil set-window-buffer] 14 (#$ . 343695)]) #@69 Open `w3m-new-session-url' in a new session. (fn &optional RELOAD) (defalias 'w3m-goto-new-session-url #[256 "\302=\204\n\303\304!\207\305 \"\207" [major-mode w3m-new-session-url w3m-mode message "This command can be used in w3m mode only" w3m-goto-url-new-session] 4 (#$ . 344542) "P"]) #@573 Visit World Wide Web pages in a new buffer. Open a new tab if you use tabs, i.e., `w3m-display-mode' is set to `tabbed' or `w3m-use-tab' is set to a non-nil value. The buffer will get visible if BACKGROUND is nil or there is no other emacs-w3m buffer regardless of BACKGROUND, otherwise (BACKGROUND is non-nil) the buffer will be created but not appear to be visible. BACKGROUND defaults to the value of `w3m-new-session-in-background', but it could be inverted if called interactively with the prefix arg. (fn URL &optional RELOAD CHARSET POST-DATA REFERER BACKGROUND) (defalias 'w3m-goto-url-new-session #[1537 "\306\307\310!)\205!\311\312!\203 \203\n?\202!\n\202!\211\206!\n\262\306 \313=\2046\314 \211\262\203E\315!\210\316 \210\317\306\320\321\310%\262\202J\322\320!\262\203T\211q\210\202\221\f\203e \313=\203e\323!\210\202\214 \203u\324 \203u\325!\210\202\214&\203\210\326'!\204\210\327!\210\202\214\323!\210\330!\210\331\206\331(\3321\312\333)(\"\334\224\203\306\334\224\334\225W\203\306(\334\224H\335=\203\306\336\337\340 \341\"!\2100\202\317\210\342(!)\205\331\343\224\205\331\344\306\211 &\210\345!\207" [w3m-fb-mode current-prefix-arg w3m-new-session-in-background major-mode w3m-use-tab w3m-pop-up-frames nil w3m-list-buffers t called-interactively-p any w3m-mode w3m-alive-p w3m-popup-buffer w3m-history-store-position w3m-copy-buffer "*w3m*" empty w3m-generate-new-buffer switch-to-buffer display-graphic-p switch-to-buffer-other-frame get-buffer-window switch-to-buffer-other-window w3m-display-progress-message w3m-goto-url (error) string-match 9 47 set-match-data nbutlast match-data 4 w3m-string-match-url-components-1 8 redisplay w3m-delete-buffer-if-empty w3m-pop-up-windows w3m-select-buffer-name string w3m-url-components-regexp] 16 (#$ . 344841) (byte-code "\302\303\304\305 \206 \304\306\307&\304 \304\211\211\257\207" [w3m-new-session-url coding-system-for-read w3m-input-url "Open URL in new buffer" nil w3m-active-region-or-url-at-point feeling-searchy no-initial] 7)]) #@12 (fn URL) (defalias 'w3m-move-point-for-localcgi #[257 "\301!\205(\302\303!!\205(\304=?\205(e`U\205(\305\306\307\"\205(\310\311 \312\245!\207" [w3m-local-directory-view-method w3m-url-local-p file-directory-p w3m-url-to-file-name w3m-dtree w3m-search-name-anchor "current" quiet recenter window-height 5] 4 (#$ . 346916)]) #@22 Go to the Home page. (defalias 'w3m-gohome #[0 "\204\301\302!\210\303\304\305\211\211\211\211\211\304& \207" [w3m-home-page error "You have to specify the value of `w3m-home-page'" w3m-goto-url t nil] 10 (#$ . 347254) nil]) #@53 Create an empty page as a new session and visit it. (defalias 'w3m-create-empty-session #[0 "\300\301!\207" [w3m-goto-url-new-session "about:blank"] 2 (#$ . 347488) nil]) #@217 Return a site-specific user-agent string. Compares URL against the regexps of `w3m-user-agent-site-specific-alist' and returns the corresponding user-agent string of the first match, or NIL if none match. (fn URL) (defalias 'w3m-user-agent-site-specific #[257 "\301\211\204\"\211A\262\242\211\262\203\"\302@\"\203\211A\262\202\207" [w3m-user-agent-site-specific-alist nil string-match] 7 (#$ . 347666)]) #@337 Return a user-agent string. Prompt the user to select from entries in `w3m-user-agent-default-alist', `w3m-user-agent-alist', or the user may manually enter a custom user-agent string. When called interactively, variables `w3m-user-agent' and `w3m-add-user-agent' are updated, ie. the changes are permanent. (fn &optional UA-STRING) (defalias 'w3m-user-agent-change #[256 "\211\204,\304 \"\305\306\307\310\311\312\313\314\315\316\317\304\f\320\"D\321BBBFE\"\211\262\"A\206*\266\202\211\322\230\2035\323\262\324\325!\203F\211\204B\323\207\326\211\207" [w3m-user-agent-default-alist w3m-user-agent-alist w3m-add-user-agent w3m-user-agent append assoc completing-read "Select a user-agent: " lambda (string pred action) if (eq action 'metadata) '(metadata (display-sort-function . identity)) complete-with-action action quote (("Don't send user agent" . #1="")) (string pred) #1# nil called-interactively-p interactive t] 16 (#$ . 348094) "P"]) #@35 Restore tab-line if it is broken. (defalias 'w3m-restore-tab-line #[0 "\205 \205\303\302!\205\n\304\232?\205\305\211\207" [w3m-use-tab w3m-use-tab-line tab-line-format boundp (:eval (w3m-tab-line)) (:eval (w3m-tab-line))] 2 (#$ . 349059)]) #@429 Reload the current page, disregarding the cached contents. If the prefix arg ARG is given, it also clears forms and post data. If the prefix arg is given twice, prompt the user to change the user-agent string to be sent for the reload. If the prefix arg is given three times, do both, ie. clear forms and post data, AND prompt the user to change the user-agent string to be sent for the reload. (fn &optional ARG BACKGROUND) (defalias 'w3m-reload-this-page #[512 "\306 \210\203r\307\310\232\204\311\232\203\312 \202\n\313\232\204(\314\232\203,\n\202- \315\316\232\204;\317\232\203D\320\321!\210\315\202V\322\323!\211\262\203V\324\325!\204V\315\262\326 \210\327\307\315\322\330!\315\331 @A@\332\" &\210\333 +\207\334\335!\207" [w3m-current-url w3m-history-reuse-history-elements w3m-user-agent w3m-add-user-agent w3m-current-forms w3m-history w3m-restore-tab-line reload (16) (64) w3m-user-agent-change (16) (64) nil (4) (64) w3m-history-remove-properties (:forms nil :post-data nil) w3m-history-plist-get :post-data y-or-n-p "Repost form data? " w3m-history-store-position w3m-goto-url :referer w3m-history-element t w3m-history-restore-position w3m-message "Can't reload this page"] 13 (#$ . 349316) "P"]) #@144 Reload all pages, disregarding the cached contents. The prefix arg ARG is passed to `w3m-reload-this-page' as the 1st arg. (fn &optional ARG) (defalias 'w3m-reload-all-pages #[256 "\300 \301\302\"\216\303 \211\205\211@\304!\210\305!\210A\266\202\202 \262)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] w3m-list-buffers switch-to-buffer w3m-reload-this-page] 6 (#$ . 350565) "P"]) #@222 Redisplay the current page. If the prefix arg ARG is given, it toggles the visibility of images. NO-STORE-POS if it is non-nil means not to store the window positions before redisplaying. (fn &optional ARG NO-STORE-POS) (defalias 'w3m-redisplay-this-page #[512 "\305 \210\204 \306\307!\207\203 ?\310\311\312\211\204\313 \210\314\315\"\210\316 +\207" [w3m-current-url w3m-display-inline-images w3m-clear-display-while-reading w3m-history-reuse-history-elements w3m-prefer-cache w3m-restore-tab-line w3m-message "Can't redisplay this page" t reload nil w3m-history-store-position w3m-goto-url redisplay w3m-history-restore-position] 5 (#$ . 351016) "P"]) #@307 Redisplay the current page and reset the user-specified values. This function clears the charset and the content type which the user specified for overriding the values of what the page requires. The prefix argument ARG is passed to the `w3m-redisplay-this-page' function (which see). (fn &optional ARG) (defalias 'w3m-redisplay-and-reset #[256 "\204\301\302!\207\303\304\305#\266\306\307\"\203\310\225\305O\202 \303\311\305#\266\312!\207" [w3m-current-url w3m-message "Can't execute this page" w3m-arrived-put content-type nil string-match "\\`about://source/" 0 content-charset w3m-redisplay-this-page] 6 (#$ . 351689) "P"]) #@259 Redisplay the current page, specifying a charset. If the user enters the empty string, the value which once was used for decoding the page is used. The prefix argument ARG is passed to the `w3m-redisplay-this-page' function (which see). (fn &optional ARG) (defalias 'w3m-redisplay-with-charset #[256 "\204\302\303!\207\304\305\"\203\306\225\307O\202\310\311\312\313\314 \"!#\266\315!\207" [w3m-current-url w3m-current-coding-system w3m-message "Can't execute the command" string-match "\\`about://source/" 0 nil w3m-arrived-put content-charset w3m-read-content-charset format "Content-charset (current %s, default reset): " w3m-redisplay-this-page] 9 (#$ . 352340) "P"]) #@272 Redisplay the current page, specifying a content type. If the user enters the empty string, it uses the value which was specified by the page's contents itself. The prefix argument ARG is passed to the `w3m-redisplay-this-page' function (which see). (fn &optional ARG) (defalias 'w3m-redisplay-with-content-type #[256 "\204\302\303!\207\304\305\306\307\310\311\305\"\206\312\313\"@\" \313\314$\211\315\230?\205(\211\262#\266\316!\207" [w3m-current-url w3m-content-type-alist w3m-message "Can't execute this page" w3m-arrived-put content-type completing-read format "Content-type (current %s, default reset): " w3m-arrived-get w3m-attributes nil t "" w3m-redisplay-this-page] 11 (#$ . 353033) "P"]) #@218 Redisplay pages when some operation changes the page width. Note that the visibility of the same page, i.e., the same buffer, displayed in the other unselected windows will also change unwantedly. (fn &optional ARG) (defalias 'w3m-redisplay-pages-automatically #[256 "\300 \301 =?\205-\302C\302C\302C\302C\303\304\305&\211\300 !\210\306\307\310 #\266\206\207" [selected-window minibuffer-window nil #[514 "\300@_!Tb\210\301 \300A\302 S_![y\210\303\304`\"\210b\207" [round line-beginning-position window-height set-window-start nil] 6 "\n\n(fn POS BUFSIZE)"] make-closure #[257 "\306 r\307\310\"\216\311!\210 \312=\205\244?\205\244\301\313 \240\210\300\314\302\315!\240\303\242\"A\240\2035\304\300\242\301\242\"\202\244\316!\211=?\205\244\300\301\242\317U\203N\320\202d\321 S\322\301\242!\245\323\324 `\"\322\325\326 S]!\245B\240\210\204p\203}\327\330 !\331 \210*\202\223\3321\217\327\330 !\331 *0\210\202\223\210\333 \210\304\300\242\313 \"\210\303\302\242\300\242B\303\242B\240*\207" [V0 V1 V2 V3 V4 major-mode internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window w3m-mode buffer-size assoc window-buffer window-width 0 (0 . 0) line-beginning-position float count-lines window-start 1 window-height t nil w3m-redisplay-this-page (error) w3m-reload-this-page w3m-current-process w3m-last-window-width debug-on-error debug-on-quit w3m-clear-display-while-reading w3m-message-silent] 8 "\n\n(fn WINDOW)"] walk-windows ignore-minibuf selected-frame] 13 (#$ . 353753)]) #@394 Return a url when the `w3m' command is invoked from the command line. The `w3m' Lisp command can be invoked even in the batch mode, e.g., ``emacs -f w3m'' or ``emacs -f w3m url''. This function is used in the very case, it extracts a url string from the command line arguments and passes it to the `w3m' command. If a url is omitted, it defaults to the value of `w3m-home-page' or "about:". (defalias 'w3m-examine-command-line-args #[0 "@\304\305\203#\306\307\"\204#A\306\310\"\203F \206\311\262\202F\nGGZ\312Z\313]\n\233\262\211A@\314\232\203F\211@\235\203F \206D\311\262\203h\315!\262\211\203d\314\235A\211\262\203O\211@\235\203O\211\204m\316\317\320\"\210\203\230\305 \204\227\321\322\323!\262\211\324\305\325\326\327\330DE\331\330DD\257M\210\332\333\"\210\210\207" [command-line-args-left w3m-home-page command-line-args inhibit-startup-screen ("-f" "-funcall" "--funcall" "-e") nil string-match "\\`-" "\\`[ ]*\\'" "about:" 2 1 "w3m" reverse defalias w3m-examine-command-line-args #[0 "\300\207" [nil] 1] t make-symbol "w3m-inhibit-startup-screen" lambda (setq inhibit-startup-screen nil) remove-hook 'window-setup-hook quote fmakunbound add-hook window-setup-hook] 12 (#$ . 355350)]) #@1743 Visit World Wide Web pages using the external w3m command. If no emacs-w3m session already exists: If POINT is at a url string, visit that. Otherwise, if `w3m-home-page' is defined, visit that. Otherwise, present a blank page. This behavior can be over-ridden by setting variable `w3m-quick-start' to nil, in which case you will always be prompted for a URL. If an emacs-w3m session already exists: Pop to one of its windows or frames. You can over-ride this behavior by setting `w3m-quick-start' to nil, in order to always be prompted for a URL. In you have set `w3m-quick-start' to nil, but wish to over-ride default behavior from the command line, either run this command with a prefix argument or enter the empty string for the prompt. In such cases, this command will visit a url at the point or, lacking that, the URL set in variable `w3m-home-page' or, lacking that, the "about:" page. Any of five display styles are possible. See `w3m-display-mode' for a description of those options. You can also run this command in the batch mode as follows: emacs -f w3m http://emacs-w3m.namazu.org/ & In that case, or if this command is called non-interactively, the variables `w3m-pop-up-windows' and `w3m-pop-up-frames' will be ignored (treated as nil) and it will run emacs-w3m at the current (or the initial) window. If the optional NEW-SESSION is non-nil, this function creates a new emacs-w3m buffer. Besides that, it also makes a new emacs-w3m buffer if `w3m-make-new-session' is non-nil and a user specifies a url string. The optional INTERACTIVE-P is for the internal use; it is mainly used to check whether Emacs calls this function as an interactive command in the batch mode. (fn &optional URL NEW-SESSION INTERACTIVE-P) (defalias 'w3m #[768 "\302=\303 ?\205 \303\304!C\205\205 ;\203&G\305V\204<\211\242\2031\304\262\202<\306 \2067\307\262\310\262\211\242\204G\211\311\312!\240\210\313\242!\210?\205\200\314\315\"\216?\205]\316 ?\205i\211?\205i\317 \320!\210\204v\211\205}\321\206|!\266\202)*\207" [w3m-pop-up-frames w3m-pop-up-windows popup w3m-alive-p t 0 w3m-examine-command-line-args "about:" nil w3m-generate-new-buffer "*w3m*" w3m-popup-buffer make-closure #[0 "\301\300\242!\207" [V0 w3m-delete-buffer-if-empty] 2] w3m-session-last-crashed-session w3m-session-last-autosave-session w3m-goto-url w3m-session-goto-session] 10 (#$ . 356594) (byte-code "\304 \305\206,\306 \206\307 \203\310\202 \203\211\202'\311\305\211\n\312\313&\211\262\262 \2059\307 \2059\310=??E\207" [w3m-home-page current-prefix-arg w3m-quick-start w3m-make-new-session w3m-examine-command-line-args nil w3m-url-at-point w3m-alive-p popup w3m-input-url feeling-searchy no-initial] 10)]) #@508 Ask emacs-w3m to browse URL. When called interactively, URL defaults to the string existing around the cursor position and looking like a url. If the prefix argument is given[1] or NEW-SESSION is non-nil, create a new emacs-w3m session. If REFRESH-IF-EXISTS is non-nil, refresh the page if it already exists but is older than the site. [1] More precisely the prefix argument inverts the boolean logic of `browse-url-new-window-flag' that defaults to nil. (fn URL &optional NEW-SESSION REFRESH-IF-EXISTS) (defalias 'w3m-browse-url #[769 ";\205I\302!\262\203\303!\207\304\305\205>\306\307!\211\262\205>rq\210)\230\205>\310\307\311\312\307\"8)\313\314\"\"\262\305\211\211\211\211\211\307& \207" [w3m-current-url w3m-message-silent w3m-canonicalize-url w3m-goto-url-new-session w3m-goto-url nil w3m-alive-p t w3m-time-newer-p 4 w3m-attributes w3m-arrived-get last-modified] 13 (#$ . 359346) (byte-code "\300\301!\210\302\303!\207" [require browse-url browse-url-interactive-arg "Emacs-w3m URL: "] 2)]) #@138 Function used to open FILE whose name is expressed in ordinary format. The file name will be converted into the file: scheme. (fn FILE) (defalias 'w3m-find-file #[257 "\301\302!\303\303\211\211\211\211\304& \207" [coding-system-for-read w3m-goto-url w3m-expand-file-name-as-url nil t] 11 (#$ . 360377) "fFilename: "]) #@100 Convert PATH in the win32 style into the cygwin format. ex. c:/dir/file => //c/dir/file (fn PATH) (defalias 'w3m-cygwin-path #[257 "\300\301\"\203\302\303\304\211$\207\207" [string-match "\\`\\([A-Za-z]\\):" replace-match "//\\1" nil] 6 (#$ . 360705)]) #@348 Render the region of the current buffer between START and END. URL specifies the address where the contents come from. It can be omitted or nil when the address is not identified. CHARSET is used for decoding the contents. If it is nil, this function attempts to parse the meta tag to extract the charset. (fn START END &optional URL CHARSET) (defalias 'w3m-region #[1026 "\306 \210\307p!\210\310 \210\206\262\311p\312\214}\210\211\204>\313 \203:\313 ;\203:\314\313 \227\"A\206<\313 \262\211\203H\315!\202J\311=\204a\312\211{BE\244\311\316!\317 \210db\210\320\312x\210`d|\210\321c\210)\311=\204\212AdB\240\210\322 \205\233\203\230\323\324!\210\325\326!,\207" [w3m-buffer-local-url w3m-current-url w3m-current-base-url w3m-use-refresh w3m-current-buffer inhibit-read-only w3m-arrived-setup w3m-process-stop w3m-clear-local-variables t nil w3m-detect-meta-charset assoc w3m-charset-to-coding-system w3m-rendering-buffer w3m-fontify " \n " "\n" w3m-display-inline-images-p sit-for 0 w3m-toggle-inline-images force w3m-correct-charset-alist w3m-coding-system w3m-current-coding-system buffer-undo-list w3m-current-title w3m-force-redisplay] 8 (#$ . 360970) (byte-code "\301 \302 \303\304 \206 !E\207" [default-directory region-beginning region-end w3m-expand-file-name-as-url buffer-file-name] 4)]) #@101 Render the current buffer. See `w3m-region' for the optional arguments. (fn &optional URL CHARSET) (defalias 'w3m-buffer #[512 "\300ed$\207" [w3m-region] 7 (#$ . 362332) (byte-code "\301\302 \206!C\207" [default-directory w3m-expand-file-name-as-url buffer-file-name] 2)]) #@23 (fn URL &rest ARGS) (defalias 'w3m-about #[385 "\301\302\232\203 \303\202\f\304\305\261\210\306\207" [w3m-language "\n\nAbout emacs-w3m\n\n
\nWelcome to \"emacs-w3m\"!

\nemacs-w3m is an interface program of\nw3m,\nworks on Emacs.\n
\n\n" "text/html"] 5 (#$ . 362617)]) #@527 Display an html source of a page visited in the current buffer. ARG should be a number (a non-numeric value is treated as `1') which controls how much to decode a source. A number larger than or equal to 4 (which the `C-u' prefix produces) means don't decode. The number 2 or 3 means decode normal text. The number 1 means decodes `&#nnn;' entities in 128..159 and 160 in addition to normal text (the default). A number less than or equal to zero means also encode urls containing non-ASCII characters. (fn &optional ARG) (defalias 'w3m-view-source #[256 "\203H\304\247\203\202\305\304\306 \210\307\310\"\203(\311\305\225\312O!\210\202B\307\313\"\203<\311\314\305\225\312OP!\210\202B\311\314P!\210\315 \210+\304\207\316\317!\207" [w3m-current-url w3m-history-reuse-history-elements w3m-view-source-decode-level w3m-prefer-cache t 0 w3m-history-store-position string-match "\\`about://source/" w3m-goto-url nil "\\`about://header/" "about://source/" w3m-history-restore-position w3m-message "Can't view page source"] 6 (#$ . 363254) "p"]) (defalias 'w3m-make-separator #[0 "\301\230\203\302\303 \304\245\305\306\307\310#\"\207\302\303 \311\"\207" [w3m-language "Japanese" make-string w3m-display-width 2 make-char japanese-jisx0208 40 44 45] 6]) #@56 (fn URL &optional NO-UNCOMPRESS NO-CACHE &rest ARGS) (defalias 'w3m-about-header #[897 "\306\307\"\205\310\225\311O\262\312\313\314\315!\316\"\206\317\320\321\322\n\311\"@\206)\317\323\324\322 \311\"8\211\203;\325!\202<\317\262\261 \210\311\211\211\211\211rq\210 \232\203\202`\311\326\327\"\206\212n\204s\326S\327\"\211\262\203sSb\203s\211\206\212l?\205\212\326T\327\"\211\262\205\212Tb\205\212\211\266\202\262`\311\326\330\"\206\307n\204\260\326S\330\"\211\262\203\260Sb\203\260\211\206\307l?\205\307\326T\330\"\211\262\205\307Tb\205\307\211\266\202\262`\311\326\331\"\206n\204\355\326S\331\"\211\262\203\355Sb\203\355\211\206l?\205\326T\331\"\211\262\205Tb\205\211\266\202\262`\311\326\332\"\206An\204*\326S\332\"\211\262\203*Sb\203*\211\206Al?\205A\326T\332\"\211\262\205ATb\205A\211\266\202\262`\311\326\333\"\206~n\204g\326S\333\"\211\262\203gSb\203g\211\206~l?\205~\326T\333\"\211\262\205~Tb\205~\211\266\202\262)\203\214\334\261\210\203\225\335\261\210\203\236\336\261\210\203\247\337\261\210\211\203\264\340\341@A#c\210\266\314\342\"\314\343\"\344 \345\311\211\211\204\317\203\351\346\347\261\210\350\206\334\317\261\210\351\206\346\317\261\210\352 !\204 \3531\210\204\354 !\206\204\345\311\355\356!\211\357M\210\211C\360\"\262\262\361!\203\200\3621@\311\211\363\345\"\210\364A\365H7\"?\205:\366\367C\"*0\210\202F\366\"\266\370A\365H\371\345#\210\3722{A\373H\211\203s\211@\365H>\203l\374\372\373H\"\210A\266\202\202W\210\366\375\376B\"0\262\202)\266\2030\202\212\210\311\211\262\203 \346\377\261\210eb\210\201@\201A\311\345#\203 \310\225\262\311y\210m\204\301\201B\201C!\203\301\311y\210\202\255\211`{\262\211`|\210\211b\210\201Dc\210db\210\201E\261\210`\262c\210\211b\210\201@\201F\311\345#\203 \201G\201H!\210\201B\201I!\203\345\201Jc\210\202\345)\266\201K\207" [w3m-current-buffer w3m-current-url case-fold-search w3m-process-waited inhibit-quit w3m-process-inhibit-quit string-match "\\`about://header/" 0 nil "Page Information\n" "\nTitle: " w3m-arrived-get w3m-url-strip-authinfo title "" "\nURL: " "\nDocument Type: " w3m-attributes "\nLast Modified: " 4 current-time-string get-text-property w3m-href-anchor w3m-anchor-title w3m-image w3m-image-alt w3m-image-size "\nCurrent Anchor: " "\nAnchor Title: " "\nImage: " "\nImage Alt: " format "\nImage Size: %sx%s" content-type content-charset w3m-make-separator t "\n\n" "\n\nModifier Information\n" "\nDocument Content-Type: " "\nDocument Charset: " w3m-url-local-p (w3m-process-timeout) w3m-cache-request-header make-symbol "wait-function" identity w3m-w3m-dump-head w3m-process-p (quit) w3m-process-start-process w3m-process-wait-process 2 w3m-process-error-handler w3m-process-timeout w3m-process-sentinel "finished\n" result 3 throw error "Can't find wait handler" "\n\nHeader Information\n\n" re-search-forward "^w3m-ssl-certificate: " looking-at "^[ ]" "SSL\n" "\n\nSSL Information\n\n" "^ " delete-char -1 "Certificate:" "\n" "text/plain"] 20 (#$ . 364532)]) #@41 Display the header of the current page. (defalias 'w3m-view-header #[0 "\203Y\303\211\304\305\"\203\306\225\307O\202?\304\310\"\2031\306\225\307O\304\311\"?\205,\312P\262\202?\304\311\"\203<\307\202?\312P\211\203S\313 \210\314!\210\315 \202W\316\317\"*\207\316\320!\207" [w3m-current-url w3m-history-reuse-history-elements w3m-prefer-cache t string-match "\\`about://header/" 0 nil "\\`about://source/" "\\`about:" "about://header/" w3m-history-store-position w3m-goto-url w3m-history-restore-position w3m-message "Can't load a header for %s" "Can't view page header"] 6 (#$ . 367733) nil]) #@217 *Number used to limit the identation level when showing a history. This value is evaluated whenever a history page is displayed by the `w3m-about-history' command. So, it can be any s-expression returning a number. (defvar w3m-about-history-max-indentation '(/ (* (window-width) 2) 3) (#$ . -368358)) #@133 *Number used to specify the indentation level when showing a history. A history page is invoked by the `w3m-about-history' command. (defvar w3m-about-history-indent-level 4 (#$ . -368667)) #@88 Render the current buffer's tree-structured browsing history in HTML. (fn &rest ARGS) (defalias 'w3m-about-history #[128 "\306\211\211rq\210 \262\n@A@\262)\307c\210`\262\203H\310\311\312\313\314\313\315\316\317\n\"\"\"!G\"p \320V\2037\320\2028\321\3221E\323\f!\320_0\202G\210\306\324\321\306\211\211\211\211\211\211\203\336\211A\262\242\262@\262;?\206n\325 \"\262\326A@\327\"\262AA@\262\203P\310\330\331\332\333\"\334#GS\335\245\232\203\241\320\202\242\321\n\n\203\255\336\202\256\337\n\203\302\n\340\230\204\302\325\341\f\"\203\307\f\202\313\342 !\f\203\324\343\202\325\337 & c\210\202P\344\321d#\210b\210m\204F`\262\345\306w\210\346\f!\262\211 U\203T\202\321\262\211\262 _\\\262\346\f!\320U`|\210\347\350  \203/ ^\2020\\\"\210\203@\351 \210\352\320!\210\343c\210\320y\210\202\351\266 \353c\210\354\207" [w3m-current-buffer w3m-history-flat w3m-history w3m-about-history-indent-level w3m-about-history-max-indentation w3m-history-ignored-regexp nil "URL history\n

List of all the links you have visited in this tab.

\n" format "%%0%dd" number-to-string apply max append mapcar #[257 "\211AA@\207" [] 2 "\n\n(fn E)"] 1 0 (error) eval -1 string-match plist-get :title "h%s %d %d %s%s%s %s\n" mapconcat make-closure #[257 "\301\300\"\207" [V0 format] 4 "\n\n(fn D)"] "-" 2 "<" "" "" "\\`[	 　]*\\'" w3m-encode-specials-string ">" sort-fields "^ " read insert-char 32 beginning-of-line delete-char "
" "text/html"] 27 (#$ . 368862)]) (defvar w3m-db-history-align-to-column nil) #@94 Render a flat chronological HTML list of all buffers' browsing history. (fn URL &rest ARGS) (defalias 'w3m-about-db-history #[385 "C\302\211\303\304 \305 \203\306\202\307Z\310 \311\312\211\211C\312\211\211\211\313\314\242\"\203i\315\242\302\225\312O\316\"\211\203h\211@\313\317\"\203a\320\224\203N\321\302\225\312O!\262\202a\321\302\225\312O!\262 \302U\204a\312\262 A\266\202\2020\210\203\201\322\323\324#\"\210\325\242\326\"\240\210\242G\262 \242\233\240\210 \302U\204\343\f\302V\203\253\327\330\302Z]#\262\242G\fV\203\300\327\330\\#\262\211\302V\203\343\211\f\245 \246\302V\203\327\320\202\330\302\\\262\f\f\245T\262\331\203\360\327\332\"\202\361\333\203\375\327\334\"\202\376\333\327\335\203\203\327\336#\202\333\"\261\210\204 \203C\337\203-\327\340\"\202.\341\203:\327\342\"\202;\341\343R\211\262\202D\333\262\242\204Q\344c\210\202\345\261\210\242\203\n S\211\262 \302Y\204k\n\203\n \242@@\240\210\242@A\262\211\242A\240\210\346\242\347\"\262\203\223\350\230\203\273\351\352\242! \353ZV\203\261\354\242\f\355Z\312\356 %\202\264\242\357Q\262\202\331\360\352! V\203\324\354\fS\312\356 %\202\326!\262\327\361\242 #c\210\203\362\363 \"\364X\203\373\365\366\"\202\365\367\"\370\261\210\371c\210\202V\372\203\373\202\333\261\210\374c\210 \266 \375\207" [w3m-arrived-db w3m-db-history-align-to-column 0 t w3m-display-width display-graphic-p 18 19 current-time "…" nil string-match "\\`about://db-history/\\?" split-string "&" "\\`\\(?:size\\|\\(start\\)\\)=" 1 string-to-number maphash make-closure #[514 "\211\205*\300\303!\240\205*\304\305\300\242\"?\205*\304\n\300\242\"?\205*\301\300\242\306\300\242!B\301\242B\240\207" [V0 V1 w3m-history-ignored-regexp symbol-name string-match "#" w3m-arrived-time] 6 "\n\n(fn KEY SYM)"] sort #[514 "\300AA\"\207" [w3m-time-newer-p] 5 "\n\n(fn A B)"] format "about://db-history/?start=%d&size=%d" "URL history in DataBase" "\n" "" "\n" "

Global URL history for all w3m buffers%s

\n" " (page %d/%d)" "" "" "" "" "
[Prev Page][Next Page]
\n" "Nothing in DataBase.\n" "\n\n" w3m-arrived-get title "" "<" string-width 2 truncate-string-to-width 3 32 ">" w3m-encode-specials-string "" "" "\n" "

Title/URL

Time/Date

%s" w3m-time-lapse-seconds 64800 format-time-string "%H:%M:%S Today" "%H:%M:%S %Y-%m-%d" "
" "\n
\n
\n" "\n" "text/html"] 25 (#$ . 370534)]) #@116 Highlight the current url if it is a page for the history. It does manage history position data as well. (fn URL) (defalias 'w3m-history-highlight-current-url #[257 "\211\301\230\205k\302p\303eb\210\304 \210`\262\305\306 \307\310\307\"$\210\311\312\303\302#\203H\313\224b\210\305\313\224\314\315!$\210\316\313\224\313\225\317#\210\320u\210\321\303w\210\202eb\210\322\323\303\302#\203e\304 \210`\262\303\210\324`\325#\210\211b\210)\266\326\303!\207" [inhibit-read-only "about://history/" t nil w3m-next-anchor put-text-property point-at-bol w3m-href-anchor get-text-property re-search-forward " (\\(?:[0-9]+ \\)*[0-9]+)$" 0 history-position read add-text-properties (invisible t intangible t) 2 " " search-forward "\n>" w3m-add-face-property w3m-history-current-url set-buffer-modified-p] 11 (#$ . 373509)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable w3m-db-history-display-size funcall function #[0 "\301V\205\301\207" [w3m-keep-arrived-urls 500] 2] "Maximum number of arrived URLs which are displayed per page." :group w3m :type (radio (const :tag "All entries are displayed in single page." nil) (integer :format "%t: %v\n")) w3m-history-in-new-buffer #[0 "\300\207" [nil] 1] "Whether to display URL histories in the current buffer." boolean] 8) #@170 Fix wrong indentation that `w3m -halfdump' may produce in db history. Time/Date columns might nevertheless not align depending on the fonts especially on TTY. (fn URL) (defalias 'w3m-db-history-fix-indentation #[257 "\302\303\"\205H\304\305\306\307\310\311\312E#\305\313\212eb\210\314\313\305#\203A\315\224\315\225b|\210iZ\211\262\316V\203\317\320S\"\210c\210\202)\321\313!*\266\205\207" [w3m-db-history-align-to-column inhibit-read-only string-match "\\`about://db-history/" "\\( +\\)\\(?:[012][0-9]:[0-5][0-9]:[0-5][0-9] \\(?:20[1-9][0-9]-[01][0-9]-[0-3][0-9]\\|Today\\)\\|Time/Date\\) *$" t propertize " " display space :align-to nil re-search-forward 1 0 insert-char 32 set-buffer-modified-p] 10 (#$ . 374878)]) #@955 Display a flat chronological list of all buffers' browsing history. This is a flat (not hierarchial) presentation of all URLs visited by ALL w3m buffers, and includes a timestamp for when the URL was visited. The list is presented in reverse-chronological order, i.e., most recent URL first. START is a positive integer for the point in the history list at which to begin displaying, where 0 is the most recent entry. SIZE is the maximum number of arrived URLs which are displayed per page. Variable `w3m-db-history-display-size' sets the default. Use 0 to display the entire history on a single page. If this function is called interactively with the prefix argument, prompt a user for START and SIZE if the prefix argument is not a number (i.e., `C-u'). Otherwise if the prefix argument is a number (i.e., `C-u NUM'), use it as START and leave SIZE nil, that will be overridden by `w3m-db-history-display-size' or 0. (fn &optional START SIZE) (defalias 'w3m-db-history #[512 "\302\303!\203 \203 \304!\204 \305\306\307\"\262\305\310\206\307\"\262\204'\307\262\211\2042\2060\307\262\311\312# \203?\313!\207\314\315\211\211\211\211\211\211\316& \207" [w3m-db-history-display-size w3m-history-in-new-buffer called-interactively-p any natnump read-number "How far back in the history to start displaying: " 0 "How many entries per page (0 for all on one page): " format "about://db-history/?start=%d&size=%d" w3m-goto-url-new-session w3m-goto-url nil t] 13 (#$ . 375619) "P"]) #@592 Display the current buffer's browsing history tree. If called with the prefix argument, display a flat chronological list of ALL buffers' browsing history. A buffer's history tree is a hierarchal presentation of all URLs visited by the current buffer and its "parents", meaning that if the buffer was spawned using a command such as `w3m-goto-url-new-session', its history will include that of the prior w3m buffer. The flat chronological list is not hierarchial, but includes all URLs visited by ALL w3m buffers, as well as a timestamp for when the URL was visited. (fn &optional ARG) (defalias 'w3m-history #[256 "\211\203 \302\303\"\207 \203\304\305!\207\306\305\303\211\211\211\211\211\211\307& \207" [w3m-db-history-display-size w3m-history-in-new-buffer w3m-db-history nil w3m-goto-url-new-session "about://history/" w3m-goto-url t] 11 (#$ . 377131) "P"]) #@12 (fn URL) (defalias 'w3m-w32-browser-with-fiber #[257 "\300\301p\302\303\304!\203\305!\202%\306\307\"\210\310\307\"\207" [start-process "w3m-w32-browser-with-fiber" "fiber.exe" "-s" w3m-url-local-p w3m-url-to-file-name set-process-filter ignore set-process-sentinel] 8 (#$ . 378008)]) #@310 Pipe the page source of url URL in binary to a shell command COMMAND. For the interactive use, URL defaults to that of a link at the point; if there are both a link to a page and a link to an image at the point, the link to a page is preferred unless the prefix argument is given. (fn &optional URL COMMAND) (defalias 'w3m-pipe-source #[512 "\305=\203\306\207;\203\n\211\205\307\310\"?\205)\203\n\211;\203\n\307\311\"\204\n\312\313#\210\314\315\316\"r\211q\210\317\320\"\216\321\306!\210\316\306\322\323!\211\324M\210\211C\325\307\326 \"\203^\202u\307\327 \"\203q\330\331\225\306OP\202u\330P!\262\262\332!\203\343\3331\243\306\211\334\316\"\210\335A\336H\f\"?\205\235\337\304C\"*0\210\202\251\337\"\266\340A\336H\341\316#\210\3422\336A\343H\211\203\326\211@\336H>\203\317\344\342\343H\"\210A\266\202\202\272\210\337\345\346B\"0\262\202z)\266\347ed\306$\210\312\350#\210\351\352!\211\205\353!\331U?\205\354!\262*\207\345\355!\207" [url w3m-process-waited inhibit-quit w3m-process-inhibit-quit w3m-process-timeout none nil string-match "\\`http:///" "\\`[- ]*\\'" w3m-message "Pipe <%s> to \"| %s\"..." generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte make-symbol "wait-function" identity w3m-retrieve "\\`about://source/" "\\`about://header/" "about://source/" 0 w3m-process-p (quit) w3m-process-start-process w3m-process-wait-process 2 w3m-process-error-handler w3m-process-sentinel "finished\n" result 3 throw error "Can't find wait handler" shell-command-on-region "Pipe <%s> to \"| %s\"...done" get-buffer "*Shell Command Output*" buffer-size display-buffer "Can't pipe page source"] 13 (#$ . 378312) (byte-code "\203\200`\303\304\305\"\206=n\204&\304S\305\"\211\262\203&Sb\203&\211\206=l?\205=\304T\305\"\211\262\205=Tb\205=\211\266\202\206`\303\304\306\"\206{n\204d\304S\306\"\211\262\203dSb\203d\211\206{l?\205{\304T\306\"\211\262\205{Tb\205{\211\266\202\202\371`\303\304\306\"\206\271n\204\242\304S\306\"\211\262\203\242Sb\203\242\211\206\271l?\205\271\304T\306\"\211\262\205\271Tb\205\271\211\266\202\206`\303\304\305\"\206\367n\204\340\304S\305\"\211\262\203\340Sb\203\340\211\206\367l?\205\367\304T\305\"\211\262\205\367Tb\205\367\211\266\202\206 \205\307\310\311 \"!\312\303!\210\205 \303\211\205\313\314\n\"?\205\n)\2032\315\316!\262\313\317\"\2042D\207\320\303D\207" [current-prefix-arg w3m-current-url url nil get-text-property w3m-image w3m-href-anchor y-or-n-p format "Pipe <%s> ? " message string-match "\\`http:///" read-string "Command: " "\\`[- ]*\\'" none] 6)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable w3m-select-buffer-horizontal-window funcall function #[0 "\300\207" [t] 1] "Non-nil means split windows horizontally to open selection pop-up windows." :group w3m :type boolean w3m-select-buffer-window-ratio #[0 "\300\207" [(18 . 12)] 1] "The percentage of the selection window to the whole frame.\nThe car is used when splitting windows horizontally and the cdr is for\nsplitting windows vertically." (cons (integer :format "H: %v%% " :size 1) (integer :format "V: %v%%" :size 1))] 8) (defvar w3m-select-buffer-window nil) #@72 Help message used when the emacs-w3m buffers selection window is open. (defconst w3m-select-buffer-message "n: next buffer, p: previous buffer, q: quit." (#$ . 381706)) #@71 Return the maximum width which should display lines within the value. (defalias 'w3m-display-width #[0 "\304W\203\207 \203\305\n!\204r\306 q\210 )\307=\203#\310 \202%\311 \206*\312\\\207" [w3m-fill-column w3m-select-buffer-horizontal-window w3m-select-buffer-name major-mode 0 get-buffer-window window-buffer w3m-session-select-mode frame-width window-width -1] 2 (#$ . 381881)]) #@172 Create a generic w3m popup window and its buffer. TOGGLE toggles the position of the window between being below or beside the main window. (fn TOGGLE BUFFER-NAME NOMSG) (defalias 'w3m--setup-popup-window #[771 "\203?\304!\203\305!\210 \306>\204/\307\310!\211\203&\311!\266\202/\312\n\206,\313!\266\314!q\210\211\315=\204=\316 \304!\206J\317\316 \320 #\321p\"\210\322!\207" [w3m-select-buffer-horizontal-window major-mode w3m-home-page w3m-select-buffer-window get-buffer-window delete-windows-on (w3m-mode w3m-select-buffer-mode w3m-session-select-mode) w3m-alive-p t w3m-popup-buffer w3m-goto-url "about:" w3m-get-buffer-create update selected-window split-window w3m-select-buffer-window-size set-window-buffer select-window] 7 (#$ . 382280)]) #@320 Pop-up an emacs-w3m buffers selection window. Allows convenient switching between emacs-w3m buffers. With the prefix-argument, toggles the position of the popup window between being below or beside the main window. The following command keys are available: \{w3m-select-buffer-mode-map} (fn &optional TOGGLE NOMSG) (defalias 'w3m-select-buffer #[512 "p\302#\210\303!\210\304 \210\206\305 !\207" [w3m-select-buffer-name w3m-select-buffer-message w3m--setup-popup-window w3m-select-buffer-generate-contents w3m-select-buffer-mode w3m-message] 7 (#$ . 383059) "P"]) #@19 (fn &rest ARGS) (defalias 'w3m-select-buffer-update #[128 "\302!\203\303 r\304\305\"\216\306\307\310\"\210*\210 \205\311 \207" [w3m-select-buffer-name w3m-use-tab get-buffer-window internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] w3m-select-buffer nil update w3m-force-window-update] 5 (#$ . 383639)]) #@15 (fn CURBUF) (defalias 'w3m-select-buffer-generate-contents #[257 "\301\302ed|\210\303 \211\2038\211@\304`\305\306T\211\262\307!\203$\310\202%\311\312!$c\210`\313$\210A\266\202\202 \210\314\315x\210`d|\210\316\315!\210\317ed\313$\206Oeb)\207" [inhibit-read-only 0 t w3m-list-buffers put-text-property format "%d:%s %s\n" w3m-unseen-buffer-p "(u)" " " w3m-buffer-title w3m-select-buffer " \f\n" nil set-buffer-modified-p text-property-any] 12 (#$ . 384022)]) (defvar w3m-select-buffer-mode-map nil) (byte-code "\204\275\303 \304!\210\305\306\307 $\210\305\310\311 $\210\305\312\313\n$\210\305\314\307\n$\210\305\315\311\n$\210\305\316\317\n$\210\305\320\321\n$\210\305\322\323\n$\210\305\324\325\n$\210\305\326\327\n$\210\330\331\323#\210\330\332\333#\210\330\334\307#\210\330\335\311#\210\330\336\307#\210\330\337\311#\210\330\340\341#\210\330\342\343#\210\330\344\345#\210\330\346\347#\210\330\350\351#\210\330\352\351#\210\330\353\354#\210\330\355\354#\210\330\356\347#\210\330\357\347#\210\330\360\347#\210\330\361\362#\210\303\207" [w3m-select-buffer-mode-map global-map w3m-mode-map make-keymap suppress-keymap substitute-key-definition next-line w3m-select-buffer-next-line previous-line w3m-select-buffer-previous-line w3m-copy-buffer w3m-select-buffer-copy-buffer w3m-next-buffer w3m-previous-buffer w3m-delete-buffer w3m-select-buffer-delete-buffer w3m-delete-other-buffers w3m-select-buffer-delete-other-buffers w3m-scroll-up-or-next-url w3m-select-buffer-show-this-line w3m-scroll-down-or-previous-url w3m-select-buffer-show-this-line-and-down w3m-select-buffer w3m-select-buffer-toggle-style define-key " " "g" w3m-select-buffer-recheck "j" "k" "n" "p" "" w3m-select-buffer-move-next "" w3m-select-buffer-move-previous "u" w3m-select-buffer-toggle-unseen "q" w3m-select-buffer-quit "h" w3m-select-buffer-show-this-line-and-switch "w" " " w3m-select-buffer-show-this-line-and-quit "" " " "" "" "?" describe-mode] 6) #@1268 Major mode for switching emacs-w3m buffers using the buffer list. \\[w3m-select-buffer-next-line] Advance to next buffer on the list. \[w3m-select-buffer-previous-line] Advance to previous buffer on the list. \[w3m-select-buffer-show-this-line-and-switch] Switch to the selected buffer, leaving the list displayed. \[w3m-select-buffer-show-this-line] Scroll the selected buffer forward one page. \[w3m-select-buffer-show-this-line-and-down] Scroll the selected buffer backward one page. \[w3m-select-buffer-copy-buffer] Create a copy of the selected buffer. \[w3m-select-buffer-move-next] Move the selected buffer down the list. \[w3m-select-buffer-move-previous] Move the selected buffer up the list. \[w3m-select-buffer-delete-buffer] Delete the selected buffer. \[w3m-select-buffer-delete-other-buffers] Delete all buffers on the list, except for the selected one. \[w3m-select-buffer-toggle-style] Toggle the list style between horizontal and vertical. \[w3m-select-buffer-toggle-unseen] Toggle the read/unread status of the selected buffer. \[w3m-select-buffer-recheck] Refresh the list. \[w3m-select-buffer-show-this-line-and-quit] Quit the buffers selection list. \[w3m-select-buffer-quit] Quit the buffers selection list. (defalias 'w3m-select-buffer-mode #[0 "\306\307\310\211\311\312 !\210\313\314!\207" [major-mode mode-name truncate-lines buffer-read-only buffer-quit-function w3m-select-buffer-mode-map w3m-select-buffer-mode "w3m buffers" t w3m-select-buffer-quit use-local-map run-mode-hooks w3m-select-buffer-mode-hook] 3 (#$ . 386020)]) #@68 Do the roll call to all emacs-w3m buffers and regenerate the menu. (defalias 'w3m-select-buffer-recheck #[0 "\302\303 \210)\304\305 !!\210\306 \207" [inhibit-read-only w3m-select-buffer-window t erase-buffer w3m-select-buffer-generate-contents window-buffer w3m-select-buffer-show-this-line] 3 (#$ . 387622) nil]) (defalias 'w3m-select-buffer-current-buffer '(macro . #[0 "\300\207" [(get-text-property (point-at-bol) 'w3m-select-buffer)] 1])) #@89 Show the buffer on the current menu line or scroll it up. (fn &optional INTERACTIVE-P) (defalias 'w3m-select-buffer-show-this-line #[256 "\303!\205 \304!\305\306 \307\"\211\204\310\311!\210\312!\203#\312!\202A\303!\204A\313\314!\203>\315 \316\317\320\321 #!\210\202A\322 \323\"\210\203b=\203b\324 r\325\326\"\216\327!\210\330\320!\210*\210\331!\210\332\n!\210\207" [w3m-select-buffer-window w3m-select-buffer-horizontal-window w3m-select-buffer-message window-live-p window-buffer get-text-property point-at-bol w3m-select-buffer error "No buffer at point" get-buffer-window one-window-p t selected-window select-window split-window nil w3m-select-buffer-window-size get-largest-window set-window-buffer internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] pop-to-buffer w3m-scroll-up-or-next-url w3m-force-window-update w3m-message] 8 (#$ . 388073) (list t)]) #@61 Show the buffer on the current menu line or scroll it down. (defalias 'w3m-select-buffer-show-this-line-and-down #[0 "\301!\205 \302!\303 =\205#\304 r\305\306\"\216\307!\210\310\311!*\262\207" [w3m-select-buffer-window window-live-p window-buffer w3m-select-buffer-show-this-line internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] pop-to-buffer w3m-scroll-down-or-previous-url nil] 6 (#$ . 389031) nil]) #@88 Move cursor vertically down N lines and show the buffer on the menu. (fn &optional N) (defalias 'w3m-select-buffer-next-line #[256 "\211\203\n\211\300V\203\301 dW\202\302 eV\205#iy\210\303!\266\304 \207" [0 line-end-position line-beginning-position move-to-column w3m-select-buffer-show-this-line] 4 (#$ . 389515) "p"]) #@86 Move cursor vertically up N lines and show the buffer on the menu. (fn &optional N) (defalias 'w3m-select-buffer-previous-line #[256 "\300[!\207" [w3m-select-buffer-next-line] 3 (#$ . 389851) "p"]) #@173 Move the current buffer down the list (ie. higher number). Use the prefix argument to move N positions. EVENT is an internal arg for mouse control. (fn &optional N EVENT) (defalias 'w3m-select-buffer-move-next #[512 "r\300\301 \302\"q\210\303\")\207" [get-text-property point-at-bol w3m-select-buffer w3m-tab-move-right] 5 (#$ . 390058) (byte-code "\302! D\207" [current-prefix-arg last-command-event prefix-numeric-value] 2)]) #@170 Move the current buffer up the list (ie. lower number). Use the prefix argument to move N positions. EVENT is an internal arg for mouse control. (fn &optional N EVENT) (defalias 'w3m-select-buffer-move-previous #[512 "r\300\301 \302\"q\210\303[\")\207" [get-text-property point-at-bol w3m-select-buffer w3m-tab-move-right] 5 (#$ . 390497) (byte-code "\302! D\207" [current-prefix-arg last-command-event prefix-numeric-value] 2)]) #@68 Create a copy of the buffer on the current menu line, and show it. (defalias 'w3m-select-buffer-copy-buffer #[0 "\300 \210\301 \302\303\304\305 \306\"!!\210\307 \210\302!\207" [w3m-select-buffer-show-this-line selected-window select-window get-buffer-window get-text-property point-at-bol w3m-select-buffer w3m-copy-buffer] 6 (#$ . 390937) nil]) #@308 Delete the buffer on the current menu line. If only one emacs-w3m buffer exists, it is assumed that the function was called to terminate the emacs-w3m session. In this case, the optional prefix argument FORCE can be set non-nil to exit the session without prompting for confirmation. (fn &optional FORCE) (defalias 'w3m-select-buffer-delete-buffer #[256 "`\302\303 \304\"\305!=\306ed\"\307U\203\310!\207\311!\210\312!\210\313!\210 \203,\314!\210\315\316!\210\317\302\303 \304\"!\210d^b\210\320 \210\211\205F\321 \207" [w3m-select-buffer-window w3m-use-form get-text-property point-at-bol w3m-select-buffer window-buffer count-lines 1 w3m-quit w3m-process-stop w3m-idle-images-show-unqueue kill-buffer w3m-form-kill-buffer run-hooks w3m-delete-buffer-hook w3m-select-buffer-generate-contents beginning-of-line w3m-select-buffer-show-this-line] 8 (#$ . 391291) "P"]) #@69 Delete emacs-w3m buffers except for the buffer on the current menu. (defalias 'w3m-select-buffer-delete-other-buffers #[0 "\300 \210\301\302\303 \304\"!\207" [w3m-select-buffer-show-this-line w3m-delete-other-buffers get-text-property point-at-bol w3m-select-buffer] 4 (#$ . 392176) nil]) #@29 Quit the buffers selection. (defalias 'w3m-select-buffer-quit #[0 "\302\303!\203\304\305 \306\307 \310\"\206\311 \"\210\2024\306\307 \310\"\206\"\311 \312\313!\210\314 !\2032\315 !\210)\210\316 \207" [pop-up-frames w3m-select-buffer-name one-window-p t set-window-buffer selected-window get-text-property point-at-bol w3m-select-buffer w3m-alive-p nil pop-to-buffer get-buffer-window delete-windows-on w3m-set-buffer-seen] 5 (#$ . 392471) nil]) #@55 Show the buffer on the menu and switch to the buffer. (defalias 'w3m-select-buffer-show-this-line-and-switch #[0 "\300\301 !\210\302\303!\207" [pop-to-buffer w3m-select-buffer-show-this-line message nil] 2 (#$ . 392931) nil]) #@61 Show the buffer on the menu and quit the buffers selection. (defalias 'w3m-select-buffer-show-this-line-and-quit #[0 "\301 \210\302!\205\f\303!\207" [w3m-select-buffer-name w3m-select-buffer-show-this-line-and-switch get-buffer-window delete-windows-on] 2 (#$ . 393163) nil]) #@56 Close the window which displays the buffers selection. (defalias 'w3m-select-buffer-close-window #[0 "\301!\211\205\302\303!\203\304\305 \"\207\306!\207" [w3m-select-buffer-name get-buffer-window one-window-p t set-window-buffer other-buffer delete-window] 4 (#$ . 393448)]) #@68 Toggle the style of the selection between horizontal and vertical. (defalias 'w3m-select-buffer-toggle-style #[0 "\300\301!\207" [w3m-select-buffer t] 2 (#$ . 393736) nil]) #@44 Toggle the read/unread status of a buffer. (defalias 'w3m-select-buffer-toggle-unseen #[0 "\301=\204\n\302\303!\207`r\304\305 \306\"q\210\307p!\203\310 \210\202\"\311 \210)\312p!\210\211b\207" [major-mode w3m-select-buffer-mode w3m-message "This command is only available from the buffer selection pop-up window." get-text-property point-at-bol w3m-select-buffer w3m-unseen-buffer-p w3m-set-buffer-seen w3m-set-buffer-unseen w3m-select-buffer-generate-contents] 4 (#$ . 393915) nil]) (defalias 'w3m-select-buffer-window-size #[0 "\203\302 \303 @_\304\245Z\207\305 \306 A_\304\245Z\207" [w3m-select-buffer-horizontal-window w3m-select-buffer-window-ratio window-width frame-width 100 window-height frame-height] 3]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\315\316\317\320\306\321%\210\322\323\324\316#\210\315\325\326\327\306\321%\210\322\330\324\325#\210\315\331\332\333\306\321%\210\315\334\335\336\306\321%\207" [custom-declare-variable w3m-use-header-line funcall function #[0 "\300\207" [t] 1] "Non-nil means display a page location in the beginning of a window.\nInsert a text in the page body if `w3m-use-tab' is non-nil, otherwise\nuse tab-line or heade-line according to `w3m-use-tab-line' to display\na location." :group w3m :type boolean w3m-use-header-line-title #[0 "\300\207" [nil] 1] "Non-nil means display a page title in the beginning of a window.\nThis variable will be ignored if `w3m-use-tab' is non-nil (because\nin such cases the tab line is used for the tab list), otherwise use\ntab-line or heade-line according to `w3m-use-tab-line' to display\na title." custom-declare-face w3m-header-line-title ((((class color) (background light)) (:foreground "Blue" :background "Gray90")) (((class color) (background dark)) (:foreground "Cyan" :background "Gray20"))) "Face used to highlight title when displaying location in the header line." w3m-face put w3m-header-line-location-title face-alias w3m-header-line-content ((((class color) (background light)) (:foreground "DarkGoldenrod" :background "Gray90")) (((class color) (background dark)) (:foreground "LightGoldenrod" :background "Gray20"))) "Face used to highlight url when displaying location in the header line." w3m-header-line-location-content w3m-header-line-background ((((class color) (background light)) (:background "Gray90")) (((class color) (background dark)) (:background "Gray20"))) "Face used to be background of the header line." w3m-error ((((class color) (background light)) (:foreground "Red1" :bold t)) (((class color) (background dark)) (:foreground "Pink" :bold t)) (t (:inverse-video t :bold t))) "Face used to highlight errors and to denote failure."] 8) (defvar w3m-header-line-map nil) (byte-code "\204\302 \303 \"\210\304\305\306#\210\304\307\310#\210\302\207" [w3m-header-line-map w3m-mode-map make-sparse-keymap set-keymap-parent define-key [mouse-2] w3m-goto-url [tool-bar] undefined] 5) #@46 Put the header line into the current buffer. (defalias 'w3m-header-line-insert #[0 "\205\241 \205\241\n\205\241 \306=\205\241eb\210\307\n\310\"\307\n\311\"\312\313\203+\203+\314\202<\2033\315\202<\203;\316\202<\317\"c\266\320e`\321#\210`\322\323\324\n\"\203S\n\202X\325\n\f\326#!c\210\320`\327#\210\330`\331\332\333\334\335 \336BBBB\"\337$\210`\262\340\341\342'\203\212\343(!\203\212\344 \202\214\345 iZS]\"\210\320`\327#\210l?\205\237\346c\262\207" [w3m-use-tab w3m-use-header-line w3m-current-url major-mode w3m-current-coding-system w3m-header-line-map w3m-mode w3m-arrived-get content-type content-charset format "Location%s: " " [TC]" " [T]" " [C]" "" w3m-add-face-property w3m-header-line-title w3m-puny-decode-url string-match "[^-]" w3m-url-decode-string "%\\([2-9a-f][0-9a-f]\\)" w3m-header-line-content add-text-properties append (rear-nonsticky t) mouse-face highlight keymap (help-echo "mouse-2 prompts to input URL") nil insert-char 32 0 get-buffer-window frame-width window-width "\n" w3m-select-buffer-horizontal-window w3m-select-buffer-name] 11 (#$ . 396896)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-goto-article-function funcall function #[0 "\300\207" [nil] 1] "Function used to visit an article pointed to by a given URL\nin `w3m-minor-mode' buffer. Normally, this option is used only\nwhen you follow a link in an html article. A function set to\nthis variable must take one argument URL, and should display the\nspecified page. It may return the symbol `w3m-goto-url' when it\nfails displaying the page. In this case, either `w3m-goto-url'\nor `w3m-goto-url-new-session' is employed to display the page." :group w3m :type (radio (const :tag "Use emacs-w3m" nil) (function :value browse-url))] 8) #@716 View the URL of the link under point. This command is quite similar to `w3m-view-this-url' except for four differences: [1]don't handle forms, [2]don't consider URL-like string under the cursor, [3]compare URL with `w3m-safe-url-regexp' first to check whether it is safe, and [4]the arguments list differs; the optional FORCE, if it is non-nil, specifies URL is safe. You should use this command rather than `w3m-view-this-url' when viewing doubtful pages that might contain vicious forms. This command makes a new emacs-w3m buffer if `w3m-make-new-session' is non-nil and a user invokes this command in a buffer not being running the `w3m-mode', otherwise use an existing emacs-w3m buffer. (fn &optional FORCE) (defalias 'w3m-safe-view-this-url #[256 "\305`\305\306\307\"\206:n\204#\306S\307\"\211\262\203#Sb\203#\211\206:l?\205:\306T\307\"\211\262\205:Tb\205:\211\266\202\211\205J\310\311\"?\205J)\305\203\237\306`\312\"\262\211\203m\313!\204m\310\"\204m\203\223\314\n!\205y\n!\315=??\205  \203\215\f\316=\204\215\317!\202 \315!\202 \320\321!\205 \322\323!\202 `\305\306\324\"\206\330n\204\301\306S\324\"\211\262\203\301Sb\203\301\211\206\330l?\205\330\306T\324\"\211\262\205\330Tb\205\330\211\266\202\211\205\350\310\311\"?\205\350)\203\325 \203\320\321!\203\375\326\327!\202 \327!\202 \330 \202 \322\331!)\207" [url w3m-pop-up-windows w3m-goto-article-function w3m-make-new-session major-mode nil get-text-property w3m-href-anchor string-match "\\`http:///" w3m-safe-url-regexp w3m-buffer-local-url-p functionp w3m-goto-url w3m-mode w3m-goto-url-new-session called-interactively-p any w3m-message "This link is considered to be unsafe; use the prefix arg to view anyway" w3m-image display-images-p call-interactively w3m-toggle-inline-image w3m-view-image "No URL at point"] 10 (#$ . 398709) "P"]) #@78 Perform the command `w3m-safe-view-this-url' by the mouse event. (fn EVENT) (defalias 'w3m-mouse-safe-view-this-url #[257 "\302!\210`\303\304\305\"\206=n\204&\304S\305\"\211\262\203&Sb\203&\211\206=l?\205=\304T\305\"\211\262\205=Tb\205=\211\266\202\206}`\303\304\306\"\206{n\204d\304S\306\"\211\262\203dSb\203d\211\206{l?\205{\304T\306\"\211\262\205{Tb\205{\211\266\202\211\205\213\307\310\"?\205\213)\211\203\262\304`\311\"\312\211\203\255\313!\204\255\307\"\204\255\314\315!\205\260\316\312!)\207\317\320!\207" [url use-dialog-box mouse-set-point nil get-text-property w3m-href-anchor w3m-image string-match "\\`http:///" w3m-safe-url-regexp t w3m-buffer-local-url-p y-or-n-p "This link is considered to be unsafe; continue? " w3m-safe-view-this-url w3m-message "No URL at point"] 7 (#$ . 400593) "e"]) #@350 Alist of commands and commands to be defined in `w3m-minor-mode-map'. Each element looks like (FROM-COMMAND . TO-COMMAND); those keys which are defined as FROM-COMMAND in `w3m-mode-map' are redefined as TO-COMMAND in `w3m-minor-mode-map'. When TO-COMMAND is nil, FROM-COMMAND is defined in `w3m-minor-mode-map' with the same key in `w3m-mode-map'. (defconst w3m-minor-mode-command-alist '((w3m-next-anchor) (w3m-previous-anchor) (w3m-next-image) (w3m-previous-image) (w3m-toggle-inline-image) (w3m-toggle-inline-images) (w3m-view-this-url . w3m-safe-view-this-url) (w3m-mouse-view-this-url . w3m-mouse-safe-view-this-url) (w3m-print-this-url)) (#$ . 401452)) #@44 Return a keymap used for `w3m-minor-mode'. (defalias 'w3m-make-minor-mode-keymap #[0 "\302 \211\203\211@\303@A\206@ $\210A\266\202\202\210\304\305\306#\210\207" [w3m-minor-mode-command-alist w3m-mode-map make-sparse-keymap substitute-key-definition define-key [down-mouse-2] undefined] 8 (#$ . 402118)]) #@47 *Keymap used when `w3m-minor-mode' is active. (defvar w3m-minor-mode-map (w3m-make-minor-mode-keymap) (#$ . -402441)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-minor-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hook run after `w3m-minor-mode' initialization." :group w3m :type hook] 8) #@39 Non-nil if w3m minor mode is enabled. (defvar w3m-minor-mode nil (#$ . 402789)) (byte-code "\303\304!\210\304\236\204\304\305DB\304 \236\204\304\nB B\303\207" [minor-mode-alist minor-mode-map-alist w3m-minor-mode-map make-variable-buffer-local w3m-minor-mode " w3m"] 2) #@69 Minor mode to view text/html parts in articles. (fn &optional ARG) (defalias 'w3m-minor-mode #[256 "\211\203\f\301!\302V\202?\211\205\303\304!\207" [w3m-minor-mode prefix-numeric-value 0 run-hooks w3m-minor-mode-hook] 3 (#$ . 403073) "P"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-do-cleanup-temp-files funcall function #[0 "\300\207" [nil] 1] "Whether to clean up temporary files when emacs-w3m shutdown." :group w3m :type boolean] 8) #@105 Select how to display emacs-w3m buffers. Refer to variable `w3m-display-mode' for details. (fn STYLE) (defalias 'w3m-display-mode #[257 "\211\211\204\n\306\202*\211\307\267\202$\310\202*\311\202*\312\202*\313\202*\314\202*\211?\205*\306\211\203:\211@\211A@\211AA@\210 \203T\f\203T\315\316\306\317#\210\320\305!\205`\321\305\322\"\207\320\305!\205`\323\322 \"\211\207" [w3m-display-mode w3m-use-tab w3m-pop-up-windows w3m-pop-up-frames w3m-use-tab-line tab-line-exclude-modes nil #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain 16 tabbed 20 dual-pane 24 frames 28 tabbed-frames 32)) (nil nil nil) (t nil nil) (nil t nil) (nil nil t) (t nil t) require tab-line t boundp add-to-list w3m-mode delq] 5 (#$ . 403575) (byte-code "\301\302\303!\304\305\306\307\306\310&\266\202!C\207" [w3m-display-mode intern ("nil" "plain" "tabbed" "dual-pane" "frames" "tabbed-frames") symbol-name completing-read "Display mode: " nil t opts] 11)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-display-mode funcall function #[0 "\205\303 \205\n\303\n\205\303E\211\304\267\202&\305\207\306\207\307\207\306\207\310\207\311\207\310\207\311\207\312\207" [w3m-use-tab w3m-pop-up-windows w3m-pop-up-frames t #s(hash-table size 8 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((nil nil nil) 22 (t nil nil) 24 (nil t nil) 26 (t t nil) 28 (nil nil t) 30 (t nil t) 32 (nil t t) 34 (t t t) 36)) plain tabbed dual-pane frames tabbed-frames nil] 3] "How to display emacs-w3m buffers.\n\nThere exist five display modes for emacs-w3m when called\ninteractively: Plain, Tabbed, Dual-Pane, Dedicated-Frames, and\nTabbed-Dedicated-Frames. When emacs-w3m is run in batch mode or\nnon-interactively, only the Plain or Tabbed display modes are\navailable. In the past, these modes had been set by a combination\nof three variables, `w3m-use-tab', `w3m-pop-up-windows' and\n`w3m-pop-up-frames', but can now be set with this single setting\n`w3m-display-mode'. When this variable is set, the other three\nare ignored.\n\nPLAIN: Each emacs-w3m buffer exists on its own and can appear in\nany window in any frame, although a reasonable attempt will be\nmade to re-use an existing window. There is no tab bar. In the\npast, this had been set by the combination: `w3m-use-tab' nil,\n`w3m-pop-up-windows' nil, and `w3m-pop-up-frames' nil.\n\nTABBED: A reasonable attempt is made to keep only one window\ndisplaying emacs-w3m buffers. That window has a cliackable tab\nbar along the top. Users can manually subvert this by explicitly\nopening an emacs-w3m buffer in any number of other windows. In\nthe past, this had been set by the combination: `w3m-use-tab' t\n`w3m-pop-up-windows' ignored, and `w3m-pop-up-frames' nil.\n\nDUAL-PANE: Once more than one emacs-w3m buffer exists, a\nreasonable attempt is made to present emacs-w3m in two windows on\nthe same frame. Any action to open a new emacs-w3m buffer, such\nas `w3m-goto-url-new-session' or `w3m-search-new-session'\ndisplays the new buffer in the unfocused pane, and transfers\nfocus there. In the past, this had been set by the combination:\n`w3m-use-tab' nil `w3m-pop-up-windows' t, and `w3m-pop-up-frames'\nnil.\n\nDEDICATED-FRAMES: Each new emacs-w3m buffer is opened in a new\nsingle-window frame. In the past, this had been set by the\ncombination: `w3m-use-tab' nil `w3m-pop-up-windows' ignored, and\n`w3m-pop-up-frames' t.\n\nTABBED-DEDICATED-FRAMES: Each new emacs-w3m buffer is opened in\nthe same window of the frame from which it was spawned, and is\nnot easily visible to emacs-w3m buffers associated with other\nframes. The window includes a clickable tab bar along the top. In\nthe past, this had been set by the combination: `w3m-use-tab' t\n`w3m-pop-up-windows' ignored, and `w3m-pop-up-frames' t." :type (radio (const :format "Nil " nil) (const :format "Plain " plain) (const :format "Tabbed " tabbed) (const :format "Dual-pane\n" dual-pane) (const :format "Dedicated Frames " frames) (const :format "Tabbed Dedicated Frames" tabbed-frames)) :set #[514 "\300\"\210\301!\207" [custom-set-default w3m-display-mode] 5 "\n\n(fn SYMBOL VALUE)"]] 8) (defalias 'w3m-cleanup-temp-files #[0 "\205\302 \303\304\303$\211\205\211@\305!\210A\266\202\202\n\262\207" [w3m-do-cleanup-temp-files w3m-profile-directory directory-files t "\\`w3m\\(cache\\|el\\|src\\|tmp\\)" delete-file] 5]) #@54 Show sending form hint when the cursor is in a form. (defalias 'w3m-show-form-hint #[0 "\203\301 \210\302\303!\304`\305\"\205o\211\205o\304`\306\"\203h`\307\304\310\"\206Un\204>\304S\310\"\211\262\203>Sb\203>\211\206Ul?\205U\304T\310\"\211\262\205UTb\205U\211\266\202@\311>\203d\312 \210\313\314!\207\313\315!\207\313\316\317@!\"\207" [w3m-use-form w3m-form-unexpand-form where-is-internal w3m-submit-form get-text-property w3m-submit w3m-form-readonly nil w3m-action (w3m-form-input w3m-form-input-textarea) w3m-form-expand-form w3m-message "This form is not editable; type `c' to copy the contents" "This form is not accessible" "Press %s to send the current form" key-description] 6 (#$ . 408036)]) #@86 Generate w3m-load.el if missing so as to fix melpa installation. (fn &optional ARG) (defalias 'w3m-fix-melpa-installation #[256 "\304\305\306\"\210\307\211\211\211\211\211\211\307\2042\211A\262\242@\211\262\2032\310\311\"\2032\211\312\211\224O\211\262\n\204\266\205\241\313\314\315 \"\211\262!\205\241\313\314\316 \"\211\262!\203\217\317\320\321\"r\211q\210\322\323\"\216\3241\202\325!\210eb\210\326p!\3278\262\330>A@\211\262\2620\202\204\210\307*\262\203\217;\204\337\331\332!\205\241\313\314\333 \"\211\262!\205\241\317\320\321\"r\211q\210\322\334\"\216\3351\327\325!\210eb\210\336\326p!\236A\337\340\341\312H#\262\330\342H\236A\211\262\2620\202\331\210\307*\262\205\241;\205\241\310\343\"\205\241\344\345\"\211\262\205\241\314\346\"\262\310\347\350!\351Q\"\204\310\352\"\203\353\336\354\"\210\313!\205-\355\356!\206-\357\321\211#\205-\355\356!?\205\241\360!\203\234\360!\203\234\361!r\211q\210eb\210\362\363\307\321#\203[\364\307\211\211\345%\210\202v\362\365\307\366#\203g\312\224b\210\367\370\371\372\261\210m\204v\373c\210\321\307\374\312!\210+\375!\210\376\321#\210\377\201@\201A\n!\"\210\357\307\321#\207\201B!\207" [load-history package-user-dir message-log-max save-silently remove-hook after-load-functions w3m-fix-melpa-installation nil string-match "/w3m\\.el\\(?:c\\|\\.[-0-9_a-z]+\\)?\\'" 0 file-exists-p expand-file-name "w3m-autoloads.el" "w3m-pkg.el" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] (error) insert-file-contents read 2 :commit require package "archives/melpa/archive-contents" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] (error) w3m apply format "%s.%s" 4 "\\`\\([0-9a-z]\\{7\\}\\)[0-9a-z]+\\'" match-string 1 "w3m-load.el" "/w3m-" regexp-quote "\\'" "/w3m-[0-9]\\{8\\}\\.[0-9]\\{1,4\\}\\'" display-warning "You may want to update the emacs-w3m installation" boundp emacs-w3m-git-revision load file-writable-p find-file-noselect re-search-forward "^(defconst emacs-w3m-git-revision \"\\([^\"]+\\)" replace-match "^;; Local Variables:" move "(defconst emacs-w3m-git-revision \"" "\"\n" " \"Git revision string of this package.\")\n\n" "(provide 'w3m-load)\n" "\n" save-buffer kill-buffer add-name-to-file message "Created w3m-load.el in %s/" abbreviate-file-name (lambda (def-tmp-var) (defconst emacs-w3m-git-revision def-tmp-var "Git revision string of this package."))] 15 (#$ . 408767)]) (byte-code "\304\305!\203&\306\300!\205 \211;\203\"\307\310\"\203\"\211C B\311 \210)\210\202+\312\313\311\"\210\314\305!\210\n\204p ;\203p\3151a\307\316 \"\203W\317 \320P\321\211\211$\206\\\317 \321\211\211$\202\\\317 \321\211#0\210\202p\322\305\323\324\325 !\326!#\"\266\327\330!\207" [byte-compile-current-file load-history noninteractive w3m-init-file featurep w3m boundp string-match "/w3m\\.el[^/]*\\'" w3m-fix-melpa-installation add-hook after-load-functions provide (error) "\\.el\\'" load "c" t display-warning format "Error while loading \"%s\":\n%s\n" abbreviate-file-name error-message-string run-hooks w3m-load-hook] 8)