;ELC   
;;; Compiled by nelhage@mit.edu on Mon Mar 19 20:37:48 2007
;;; from file /home/nelhage/.elisp/w3m/w3m-e23.el
;;; in Emacs version 23.0.0.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`w3m-e23.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require w3m-util w3m-proc w3m-image w3m-favicon w3m-fsf w3m-ccl wid-edit] 2)
#@116 Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER.
CODING-SYSTEM, DECODER and ENCODER must be symbol.
(defalias 'w3m-make-ccl-coding-system #[(coding-system mnemonic docstring decoder encoder) "\305\306	\n\fB%\207" [coding-system mnemonic docstring decoder encoder make-coding-system 4] 7 (#$ . 759)])
(byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp w3m-ucs-to-char defalias #[(codepoint) "\301\302\"\206 \303\207" [codepoint decode-char ucs 126] 3]] 3)
#@62 Add to the buffer-local value of HOOK the function FUNCTION.
(defalias 'w3m-add-local-hook #[(hook function &optional append) "\303	\n\304$\207" [hook function append add-hook t] 5 (#$ . 1252)])
(defalias 'w3m-display-graphic-p 'display-images-p)
#@79 Returns non-nil when images can be displayed under the present
circumstances.
(defalias 'w3m-display-inline-images-p #[nil "\205 \301 \207" [w3m-display-inline-images display-images-p] 1 (#$ . 1506)])
#@307 Retrieve data from URL and create an image object.
If optional argument NO-CACHE is non-nil, cache is not used.
If second optional argument REFERER is non-nil, it is used as Referer: field.
If third optional argument SIZE is non-nil, its car element is used as width
and its cdr element is used as height.
(defalias 'w3m-create-image #[(url &optional no-cache referer size handler) "\204R \306\307\310\311!	\312M\210	C\313\f./%)\211\2110:\2055 \3140A!\2055 0A\315H\316=)\203O \317\320\321\217\210\322\nA\323H\324\306#\210\325\326\215\211\202 \n+\207\310\327!\310\330!\310\331!\310\332!123\2114/L\2103\fL\2102\307L\2101\307L\210\310\333!\310\334!5\2116\3357!8\3368!\206\246 \3378!\2119:B:\3409!\2109))L\2105pL\210\310\341!\310\342!;\211<\307L\210;\307L\210<\343\344\345\346\347;D\347<D\3475D\3476D\3471D\3472D\3473D\3474D\350\257EL\210;\343\344\345\351\347;D\347<D\3475D\3476D\3471D\3472D\3473D\3474D\350\257EL\210;J<JBBr6Jq\210\352\307!\210\3533J\354\307.&*\211=\2110:\205S\3140A!\205S0A\315H\316=)\203g\203`=\202\250\355=!\202\250r<JB;J=!*\211=\2110:\205\216\3140A!\205\2160A\315H\316=)\203\242\203\233=\202\250\355=!\202\250<J=!.	\207" [handler #1=#:--wait-function--50201 #2=#:--result--50200 w3m-process-waited url no-cache t nil make-symbol "wait-function" identity w3m-create-image vectorp 0 w3m-process-object error (byte-code "\306\211\307\n\310\"\210\311\nA\312H\"\204^ \303\306B\n\313\f\"\fA\312H\314\f!\203U \315\f\316\"\210\317\f\316\"\210\320\f!\321>\203U \322\f!\210\203U \320\f!\323>\203U \324\325!\210\202F )\326@A\"\210**\306\207" [inhibit-quit w3m-process-inhibit-quit #2# w3m-process-timeout process error-data nil w3m-process-start-process t w3m-process-wait-process 2 delq processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal w3m-process-queue w3m-process-kill-surely] 3) ((quit (byte-code "	\306\n\f\"\nA\307H\310\n!\203= \311\n\312\"\210\313\n\312\"\210\314\n!\315>\203= \316\n!\210\203= \314\n!\317>\203= \320\321!\210\202. )\322@A\"\210*\306\207" [error #2# process error-data w3m-process-queue w3m-process-kill-surely delq 2 processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal] 3))) w3m-process-sentinel 2 "finished\n" result (byte-code "A\306H\307\211\203$ \n@	\310H>\203 \311\312	\306H\"\210\nA\211\204 *\313\314B\315\f\"\fA\310H\316\f!\203g \317\f\320\"\210\321\f\320\"\210\322\f!\323>\203g \324\f!\210\203g \322\f!\325>\203g \326\327!\210\202X )\330@A\"*\207" [#2# handler #3=#:--cl-dolist-temp-- #1# process error-data 3 nil 2 throw result error "Can't find wait handler" delq processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal w3m-process-queue w3m-process-kill-surely] 5) "--set-size--" "--url--" "--image--" "--size--" "----temp-buffer--50204--" "----current-buffer--50205--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "----cl-var--50207--" "----cl-var--50206--" lambda (&rest --cl-rest--) apply #[(#4=#:G50208 #5=#:G50209 #6=#:G50210 #7=#:G50211 #8=#:G50212 #9=#:G50213 #10=#:G50214 #11=#:G50215 type) "J\211\204	 p	;\203 \305	!\306	!\203 \307	!\210\310	\n\")\311J!\203- Jq\210\f\207" [#7# buffer w3m-work-buffer-list #6# type get-buffer buffer-live-p kill-buffer delq buffer-name] 4] quote --cl-rest-- #[(#12=#:G50226 #13=#:G50227 #14=#:G50228 #15=#:G50229 #16=#:G50230 #17=#:G50231 #18=#:G50232 #19=#:G50233 type) "\306J!\203 Jq\210\307\310	!\211!\2055\n\311\312 	\313\314\315%L\210\2033\fJ\2033\316\313!\210\317\nJ\320\"L\210\fJ@\204P \fJA\203P \fJJ@\fJA_JA\245\240\210\fJA\204k \fJ@\203k \fJJA\fJ@_J@\245\241\210J@\fJ@=\203 JA\fJA=\2040\321\322!\211 \nJL\210\323\324\325\326\327 D\327!D\327\"D\327#D\327D\327D\327\nD\327$D\327\fD\330\257\fE\211%&B&\331\332 JA\333\"\fJ@\fJA&$)\211'\211(:\205\344 \334(A!\205\344 (A\335H\336=)\203\371 &\203\362 '\202.\337'!\202.%'!\211'\211(:\205\334(A!\205(A\335H\336=)\203,&\203%'\202.\337'!\202.'+\207\nJ\207\nJ\207" [#15# type #17# w3m-resize-images #19# #16# buffer-name w3m-image-type-available-p w3m-image-type create-image buffer-string t :ascent center set-buffer-multibyte image-size pixels make-symbol "--image--" lambda (&rest --cl-rest--) apply #[(#20=#:G50217 #21=#:G50218 #22=#:G50219 #23=#:G50220 #24=#:G50221 #25=#:G50222 #26=#:G50223 #27=#:G50224 #28=#:G50225 resized) "\203\f \302	JA\303#\210	J\207" [resized #20# plist-put :data] 4] quote --cl-rest-- w3m-resize-image plist-get :data vectorp 0 w3m-process-object w3m-process-start-process #29=#:--cl-image-- #12# #13# #14# #18# #30=#:--post-function--50216 handler resized object] 15] set-buffer-multibyte w3m-retrieve raw w3m-process-start-process referer size object #31=#:--cl-size-- #32=#:--cl-image-- #33=#:--cl-url-- #34=#:--cl-set-size-- #35=#:--cl---current-buffer--50205-- #36=#:--cl---temp-buffer--50204-- w3m-work-buffer-name name buf w3m-work-buffer-list #37=#:--cl---cl-var--50206-- #38=#:--cl---cl-var--50207-- type] 15 (#$ . 1716)])
#@233 Resize an cached image object.
URL is the image file's url.
RATE is resize percentage.
If REFERER is non-nil, it is used as Referer: field.
If SIZE is non-nil, its car element is used as width
and its cdr element is used as height.
(defalias 'w3m-create-resized-image #[(url rate &optional referer size handler) "\204Q \306\307\310\311!	\312M\210	C\313\f\307-%)\211\211.:\2054 \314.A!\2054 .A\315H\316=)\203N \317\320\321\217\210\322\nA\323H\324\306#\210\325\326\215\211\202 \n+\207\310\327!\310\330!\310\331!/0\2111\fL\21002L\210/\307L\210\310\332!\310\333!3\2114\3345!6\3356!\206\233 \3366!\21178B8\3377!\2107))L\2103pL\210\310\340!\310\341!9\211:\307L\2109\307L\210:\342\343\344\345\3469D\346:D\3463D\3464D\346/D\3460D\3461D\347\257\nEL\2109\342\343\344\350\3469D\346:D\3463D\3464D\346/D\3460D\3461D\347\257\nEL\2109J:JBBr4Jq\210\351\307!\210\3521J\353\307\211&*\211;\211.:\205?\314.A!\205?.A\315H\316=)\203S\203L;\202\224\354;!\202\224r:JB9J;!*\211;\211.:\205z\314.A!\205z.A\315H\316=)\203\216\203\207;\202\224\354;!\202\224:J;!.\207" [handler #1=#:--wait-function--50235 #2=#:--result--50234 w3m-process-waited url referer t nil make-symbol "wait-function" identity w3m-create-image vectorp 0 w3m-process-object error (byte-code "\306\211\307\n\310\"\210\311\nA\312H\"\204^ \303\306B\n\313\f\"\fA\312H\314\f!\203U \315\f\316\"\210\317\f\316\"\210\320\f!\321>\203U \322\f!\210\203U \320\f!\323>\203U \324\325!\210\202F )\326@A\"\210**\306\207" [inhibit-quit w3m-process-inhibit-quit #2# w3m-process-timeout process error-data nil w3m-process-start-process t w3m-process-wait-process 2 delq processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal w3m-process-queue w3m-process-kill-surely] 3) ((quit (byte-code "	\306\n\f\"\nA\307H\310\n!\203= \311\n\312\"\210\313\n\312\"\210\314\n!\315>\203= \316\n!\210\203= \314\n!\317>\203= \320\321!\210\202. )\322@A\"\210*\306\207" [error #2# process error-data w3m-process-queue w3m-process-kill-surely delq 2 processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal] 3))) w3m-process-sentinel 2 "finished\n" result (byte-code "A\306H\307\211\203$ \n@	\310H>\203 \311\312	\306H\"\210\nA\211\204 *\313\314B\315\f\"\fA\310H\316\f!\203g \317\f\320\"\210\321\f\320\"\210\322\f!\323>\203g \324\f!\210\203g \322\f!\325>\203g \326\327!\210\202X )\330@A\"*\207" [#2# handler #3=#:--cl-dolist-temp-- #1# process error-data 3 nil 2 throw result error "Can't find wait handler" delq processp set-process-filter ignore set-process-sentinel process-status (run stop) kill-process (run stop) sit-for 0.1 signal w3m-process-queue w3m-process-kill-surely] 5) "--url--" "--rate--" "--image--" "----temp-buffer--50238--" "----current-buffer--50239--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "----cl-var--50241--" "----cl-var--50240--" lambda (&rest --cl-rest--) apply #[(#4=#:G50242 #5=#:G50243 #6=#:G50244 #7=#:G50245 #8=#:G50246 #9=#:G50247 #10=#:G50248 type) "J\211\204	 p	;\203 \305	!\306	!\203 \307	!\210\310	\n\")\311J!\203- Jq\210\f\207" [#7# buffer w3m-work-buffer-list #6# type get-buffer buffer-live-p kill-buffer delq buffer-name] 4] quote --cl-rest-- #[(#11=#:G50257 #12=#:G50258 #13=#:G50259 #14=#:G50260 #15=#:G50261 #16=#:G50262 #17=#:G50263 type) "\306J!\203 Jq\210\307\310	!\211!\205\275 \n\311\312 	\313\314\315%L\210\316\313!\210\317\320\321\322\323D\323\fD\323D\323D\323\nD\323D\323D\324\257\nE\211B\325\326\nJA\327\"J#)\211 \211!:\205r \330!A!\205r !A\331H\332=)\203\207 \203\200  \202\274 \333 !\202\274  !\211 \211!:\205\245 \330!A!\205\245 !A\331H\332=)\203\272 \203\263  \202\274 \333 !\202\274  *\207" [#14# type #15# #11# #12# #13# buffer-name w3m-image-type-available-p w3m-image-type create-image buffer-string t :ascent center set-buffer-multibyte lambda (&rest --cl-rest--) apply #[(#18=#:G50250 #19=#:G50251 #20=#:G50252 #21=#:G50253 #22=#:G50254 #23=#:G50255 #24=#:G50256 resized) "\203\f \302	JA\303#\210	J\207" [resized #22# plist-put :data] 4] quote --cl-rest-- w3m-resize-image-by-rate plist-get :data vectorp 0 w3m-process-object w3m-process-start-process #16# #17# #25=#:--post-function--50249 handler resized object] 13] set-buffer-multibyte w3m-retrieve raw w3m-process-start-process size object #26=#:--cl-image-- #27=#:--cl-rate-- #28=#:--cl-url-- rate #29=#:--cl---current-buffer--50239-- #30=#:--cl---temp-buffer--50238-- w3m-work-buffer-name name buf w3m-work-buffer-list #31=#:--cl---cl-var--50240-- #32=#:--cl---cl-var--50241-- type] 14 (#$ . 6974)])
#@97 Display image on the current buffer.
Buffer string between BEG and END are replaced with IMAGE.
(defalias 'w3m-insert-image #[(beg end image &rest args) "\306\301\"\307\310\211\211\311\312\313\314\310\257#\210\205b <\204) C\315!\211G\f\nW\203L \316\f8\211!\203E \317	\"\fT\211\2021 G\nW\205b \320\301$\210\320\321$-\207" [beg face len orig idx faces get-text-property 0 nil add-text-properties display intangible invisible copy-sequence face-underline-p delq put-text-property w3m-faces-with-underline end image] 10 (#$ . 11764)])
#@56 Remove an image which is inserted between BEG and END.
(defalias 'w3m-remove-image #[(beg end) "\304	\305#\210\306\307\"\211\205 \210\310	\311\n\307\312F#)\207" [beg end underline o remove-text-properties (display nil intangible nil) get-text-property w3m-faces-with-underline add-text-properties face nil] 8 (#$ . 12336)])
#@69 Return non-nil if an image with IMAGE-TYPE can be displayed inline.
(defalias 'w3m-image-type-available-p #[(image-type) "\301 \205 \302!\207" [image-type display-images-p image-type-available-p] 2 (#$ . 12672)])
(byte-code "\304\305\306\307\310\311%\210\304\312\313\314\310\311%\210\304\315\316\317\310\311%\210\303B\320\303!\2048 \321\303\322	!\323\324\325\n#\210\323\326\325\n#\210\n)\"\210\327\330\331\332\333\334\335&\207" [current-load-list widget-keymap map w3m-form-button-keymap custom-declare-face w3m-form-button-face ((((type x w32 mac) (class color)) :background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)) (((class color) (background light)) (:foreground "cyan" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "*Face to fontify buttons in forms." :group w3m-face w3m-form-button-mouse-face ((((type x w32 mac) (class color)) :background "DarkSeaGreen1" :foreground "black" :box (:line-width 2 :style released-button)) (((class color) (background light)) (:foreground "cyan" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "*Face to fontify focused buttons in forms." w3m-form-button-pressed-face ((((type x w32 mac) (class color)) :background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)) (((class color) (background light)) (:foreground "cyan" :underline t)) (((class color) (background dark)) (:foreground "red" :underline t)) (t (:underline t))) "*Face to fontify pressed buttons in forms." default-boundp set-default copy-keymap substitute-key-definition widget-forward nil widget-backward define-widget w3m-form-button push-button "Widget for w3m form button." :keymap :action #[(widget &optional e) "\301\302\303\"!\207" [widget eval widget-get :w3m-form-action] 4]] 8)
#@46 Make button on the region from START to END.
(defalias 'w3m-form-make-button #[(start end properties) "\203S \305\306\307\"\310>\2048 	f\311=\2038 \nSf\312=\2038 \212	b\210\313\314!\210\315c\210\nb\210\313\316!\210\315c\210	T\nS)\317\320	\n\321\322\323\"%\324\325\f\326\"\327\330#\210)\331	\n#\207\332	\n\333#\207" [w3m-form-use-fancy-faces start end properties w face-attribute w3m-form-button-face :box (nil unspecified) 91 93 delete-char 1 " " -1 widget-convert-button w3m-form-button :w3m-form-action plist-get w3m-action overlay-put widget-get :button-overlay evaporate t add-text-properties w3m-add-face-property w3m-form-face] 8 (#$ . 14551)])
(defalias 'w3m-setup-widget-faces #[nil "\303\300!\210\303\301!\210\303\302!\210\304\305\306\211\207" [widget-button-face widget-mouse-face widget-button-pressed-face make-local-variable w3m-form-button-face w3m-form-button-mouse-face w3m-form-button-pressed-face] 2])
#@35 Non-nil activates toolbar of w3m.
(custom-declare-variable 'w3m-use-toolbar '(w3m-image-type-available-p 'xpm) '(#$ . 15486) :group 'w3m :type 'boolean)
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list w3m-e23-toolbar-configurations default-boundp set-default ((auto-resize-tool-bars . t) (auto-raise-tool-bar-buttons . t))] 3)
(defalias 'w3m-e23-setup-toolbar #[(keymap defs) "\306\n\211A@\211\203 \307	@!	AL\210\202 *\310\311\312\"A\306\f\211A@\211\203? \242\211\203\" \313\314\315\"\316#\210\202\" *G\306\317Y\205~ S\2118\313\314\315\320H\"\321\322H\320H\323\324H\325\317HJ\257#\210\202H *\207" [w3m-e23-toolbar-configurations config configs item keys keymap nil make-local-variable key-binding [tool-bar] t define-key vector tool-bar undefined 0 1 menu-item 3 :enable 2 :image defs def n] 12])
(defalias 'w3m-e23-make-toolbar-buttons #[(buttons) "\306\211\203\216 \n@\307	\310P\"\307	\311P\"\307	\312P\"\313\314	\315Q!\316\317!\204\206 \320!\203\200 \321\322\323\306\f%\320!\203W \321\322\323\306\f%\202Z \306\320!\203n \321\322\323\306\f%\202q \306\324\211$L\210\202\206 \325\326\"\210-\nA\211\204 *\306\207" [buttons button #1=#:--cl-dolist-temp-- w3m-icon-directory props icon nil expand-file-name "-up.xpm" "-down.xpm" "-disabled.xpm" intern "w3m-toolbar-" "-icon" (:ascent center :color-symbols (("backgroundToolBarColor" . "None"))) boundp file-exists-p apply create-image xpm vector error "Icon file %s not found" disabled down up] 8])
(defalias 'w3m-setup-toolbar #[nil "\205 	\205 \305	!\205 \306\307\310	\"!\205 \311\n!\210\312\f\"\207" [w3m-use-toolbar w3m-icon-directory w3m-toolbar-buttons w3m-mode-map w3m-toolbar file-directory-p file-exists-p expand-file-name "antenna-up.xpm" w3m-e23-make-toolbar-buttons w3m-e23-setup-toolbar] 4])
(defalias 'w3m-update-toolbar 'ignore)
#@16 w3m tab width.
(custom-declare-variable 'w3m-tab-width '16 '(#$ . 17414) :group 'w3m :set #[(symbol value) "\302	\247\203 	\303V\203 	\202 \304\"\207" [symbol value custom-set-default 0 16] 4] :type '(integer :size 0))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\207" [custom-declare-face w3m-tab-unselected-face ((((type x w32 mac) (class color)) :background "Gray50" :foreground "Gray20" :box (:line-width -1 :style released-button)) (((class color)) (:background "blue" :foreground "black"))) "*Face to fontify unselected tabs." :group w3m-face w3m-tab-unselected-retrieving-face ((((type x w32 mac) (class color)) :background "Gray50" :foreground "OrangeRed" :box (:line-width -1 :style released-button)) (((class color)) (:background "blue" :foreground "OrangeRed"))) "*Face to fontify unselected tabs which are retrieving their pages." w3m-tab-selected-face ((((type x w32 mac) (class color)) :background "Gray85" :foreground "black" :box (:line-width -1 :style released-button)) (((class color)) (:background "cyan" :foreground "black")) (t (:underline t))) "*Face to fontify selected tab." w3m-tab-selected-retrieving-face ((((type x w32 mac) (class color)) :background "Gray85" :foreground "red" :box (:line-width -1 :style released-button)) (((class color)) (:background "cyan" :foreground "red")) (t (:underline t))) "*Face to fontify selected tab which is retrieving its page." w3m-tab-background-face ((((type x w32 mac) (class color)) :background "LightSteelBlue" :foreground "black") (((class color)) (:background "white" :foreground "black"))) "*Face to fontify background of tab line." w3m-tab-selected-background-face ((((type x w32 mac) (class color)) :background "LightSteelBlue" :foreground "black") (((class color)) (:background "white" :foreground "black"))) "*Face to fontify selected background tab." w3m-tab-mouse-face ((((type x w32 mac) (class color)) :background "Gray65" :foreground "white" :box (:line-width -1 :style released-button))) "*Face used to highlight tabs under the mouse."] 6)
#@46 Keymap used on the spinner in the mode-line.
(defvar w3m-modeline-spinner-map nil (#$ . 19612))
#@57 String used for the :help-echo property on the spinner.
(defvar w3m-spinner-map-help-echo "mouse-2 kills the current process" (#$ . 19714))
(defalias 'w3m-setup-header-line #[nil "\203 \303\202) 	\205) \304\305\306\307C#\310\304\311\312\313\314\315\316\317\320\321!ED\322BBBBBBDD\211\207" [w3m-use-tab w3m-use-header-line header-line-format (:eval (w3m-tab-line)) propertize "Location: " face w3m-header-line-location-title-face :eval (if (stringp w3m-current-url) (replace-regexp-in-string "%" "%%" w3m-current-url) "") 'face (list 'w3m-header-line-location-content-face) 'mouse-face quote highlight :foreground face-foreground default ('local-map (let ((map (make-sparse-keymap))) (define-key map [header-line mouse-2] 'w3m-goto-url) map) 'help-echo "mouse-2 prompts to input URL")] 12])
(defalias 'w3m-force-window-update #[(&optional window) "\301\206 \302 !\207" [window force-window-update selected-window] 2 "Force redisplay of WINDOW which defaults to the selected window."])
(defalias 'w3m-tab-drag-mouse-function #[(event buffer) "\211:\203 \3058:\203 \305\202 \3068\202 \307 `\310\311F)\211@)\312\313!\203_ \312\314 \313\n@!\203O \nA@\203O \nAA\203O \315\nA@\nAA\n@#\204_ \316\317!\203\\ \320 \210\321 \322!\f=?\205s \323!\210\324\f!\210\325!*\207" [event position mpos window buffer 2 1 selected-window (0 . 0) 0 nil framep mouse-position window-at one-window-p nomini split-window next-window window-buffer select-window switch-to-buffer w3m-force-window-update] 5])
(defalias 'w3m-tab-click-mouse-function #[(event buffer) "\211:\203 A@\202 \304 `\305\306F)\211@)\307\n!\210\310!\210\311\n!)\207" [event position window buffer selected-window (0 . 0) 0 select-window switch-to-buffer w3m-force-window-update] 5])
(defalias 'w3m-tab-double-click-mouse1-function #[(event buffer) "\211:\203 A@\202 \305 `\306\307F)\211@)\310=\203, \f\203) \311\213\210\202, \312 \210\313\n!)\207" [event position window major-mode w3m-new-session-in-background selected-window (0 . 0) 0 w3m-mode ((w3m-copy-buffer)) w3m-copy-buffer w3m-force-window-update] 5])
(defalias 'w3m-tab-double-click-mouse2-function #[(event buffer) "\211:\203 A@\202 \304 `\305\306F)\211@)\307=\203\" \310 \210\311\n!)\207" [event position window major-mode selected-window (0 . 0) 0 w3m-mode w3m-delete-buffer w3m-force-window-update] 5])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\210\306B\302\306!\204\" \303\306\304\"\210\305\306!\207" [current-load-list w3m-tab-map default-boundp set-default nil make-variable-buffer-local w3m-tab-spinner-map] 3)
(defalias 'w3m-tab-make-keymap #[nil "?\205\274 \306 p\307\310\311\312\313	EF\307\314\315\316\313	EF\307\317\320\321\313	EF\307\322\323\324\313	EF\307\325\326\327\313	EF5\307\330\331\332\313	EF6\333\334\335#\210\333\336\335#\210\333\337#\210\333\340#\210\333\341\n#\210\333\342\n#\210\333\343\f#\210\333\344#\210\333\3455#\210\333\346\347#\210\333\350\351#\210\333\352\347#\210\333\353\351#\210\3337\354\355#\210\3337\3566#\210.8?\205\274 \306 8\3338\357\307\360\361\362\363pD\364BBF#\207" [w3m-tab-map buffer drag-action single-action double-action1 double-action2 make-sparse-keymap lambda (e) (interactive "e") w3m-tab-drag-mouse-function e (e) (interactive "e") w3m-tab-click-mouse-function (e) (interactive "e") w3m-tab-double-click-mouse1-function (e) (interactive "e") w3m-tab-double-click-mouse2-function (e) (interactive "e") w3m-tab-button-menu (e) (interactive "e") w3m-tab-button-menu2 define-key [header-line down-mouse-1] ignore [header-line down-mouse-2] [header-line mouse-1] [header-line mouse-2] [header-line drag-mouse-1] [header-line drag-mouse-2] [header-line double-mouse-1] [header-line double-mouse-2] [header-line mouse-3] [header-line wheel-up] w3m-previous-buffer [header-line wheel-down] w3m-next-buffer [header-line mouse-4] [header-line mouse-5] [header-line double-mouse-1] w3m-goto-new-session-url [header-line mouse-3] [header-line mouse-2] (e) (interactive "e") save-current-buffer set-buffer ((call-interactively 'w3m-process-stop)) menu-action menu-action2 w3m-mode-map w3m-tab-spinner-map] 9])
#@106 Internal variable used to keep contents to be shown in the header-line.
This is a buffer-local variable.
(defvar w3m-tab-line-format nil (#$ . 23880))
(make-variable-buffer-local 'w3m-tab-line-format)
#@220 Internal variable used to say time has not gone by after the tab-line
was updated last time.  It is used to control the `w3m-tab-line'
function running too frequently, set by the function itself and
cleared by a timer.
(defvar w3m-tab-timer nil (#$ . 24088))
(make-variable-buffer-local 'w3m-tab-timer)
#@26 The space of half width.
(defvar w3m-tab-half-space (propertize " " 'display '(space :width 0.5)) (#$ . 24397))
#@31 String used to separate tabs.
(defvar w3m-tab-separator (byte-code "\300\301\302\303C\304\305\306\307&\207" [propertize " " face w3m-tab-background-face mouse-face w3m-tab-selected-background-face display (space :width 0.5)] 8) (#$ . 24515))
(defalias 'w3m-tab-line #[nil "\203 	\206p\306 \307\310 \311 \312@\206 \313A@\206\" \313\\!\314 \245\\\315 @\2032 \316\2023 \313\\;G<=\205A >?=\203Z ?\203Q \317\202R \320\321\314 \245\\\202[ \307@A\205d \322 B\323\211CD\323\211EF\323\211GH\323\211I'\323\211JK\324\325\326\323\327\n$\210r\203\377 \211A@\211Cq\210L;\203\256 L\330\230\204\256 L\202\315 M;\203\314 \331\332\333M\"\203\306 M\313\225\323O\202\310 M!\202\315 \330D\fDG\313V\203\341 \334D\313H!\202\342 \313]\nC=NDO\205\363 PQ\257EBE\202\216 )<@R\\_;V\203\335;<\245@Z!\f]\202R;E\203E\211AE@\211F@FA@G\316F8D\336F8H\337F8IG\203[\n\203W\340\202d\341\202d\n\203c\342\202d\343C'?\205\236G\203\211B\205\236\344\345\346B\347'\350S\351T&	\202\236H\205\236\344\345\346H\347'\350I\351D&	\211J\203\251;\202\267?\203\265;\316\\\202\267;J\344?\205\302U\352\353\354\355D!\fV\203\345\f\356V\203\345\357\211D\f\336Z\"\360P\f\323\361$\202\354\357D\f\323\362$#P\347'\363\364\350I\351D&	VEKBK\202!\365\366\365\367K\"\"\344\370\311 \362\"\347\371C\363\372%P\211.\207" [w3m-tab-timer w3m-tab-line-format current buffers breadth fringes w3m-list-buffers 1 window-fringes window-width float 0 frame-char-width frame-current-scroll-bars 2 3.0 0.5 2.0 w3m-make-spinner-image nil t run-at-time 0.1 #[(buffer) "\303!\205 rq\210\304\305 \306!=\205 \n\205 \307 )\207" [buffer w3m-tab-timer w3m-process-queue buffer-live-p nil selected-window get-buffer-window w3m-force-window-update] 3] "<no-title>" directory-file-name string-match "^[^/:]+:/+" char-width truncate 3 4 w3m-tab-selected-retrieving-face w3m-tab-unselected-retrieving-face w3m-tab-selected-face w3m-tab-unselected-face propertize " " display face local-map help-echo replace-regexp-in-string "%" "%%" string-width 6 truncate-string-to-width "..." 46 32 mouse-face w3m-tab-mouse-face apply concat nconc make-string w3m-tab-background-face w3m-tab-selected-background-face width nbuf window-system w3m-show-graphic-icons-in-header-line graphic margin w3m-process-queue spinner buffer title data datum process favicon keymap icon line w3m-current-title w3m-current-url w3m-current-process w3m-use-favicon w3m-favicon-image w3m-tab-map w3m-tab-width w3m-tab-spinner-map w3m-spinner-map-help-echo w3m-tab-half-space w3m-tab-separator] 12])
#@35 Update tab line by a side effect.
(defalias 'w3m-update-tab-line #[nil "\205 \302\303\304!\210\305\306\307\"\310 =?\205 \311\304!)\207" [w3m-use-tab window-min-height 0 enlarge-window 1 next-window nil ignore-minibuf selected-window shrink-window] 3 (#$ . 27144)])
#@105 Run `switch-to-buffer' and redisplay the header-line.
Redisplaying is done by wobbling the window size.
(defalias 'w3m-e23-switch-to-buffer #[(buffer &optional norecord) "\304	\"\n\203 \305=\203 \306 \210\207" [buffer norecord header-line-format major-mode switch-to-buffer w3m-mode w3m-force-window-update] 3 (#$ . 27420) "BSwitch to buffer: "])
#@73 Substitute keys for `switch-to-buffer' with `w3m-e23-switch-to-buffer'.
(defalias 'w3m-e23-subst-switch-to-buffer-keys #[nil "\302\303\304	$\207" [w3m-mode-map global-map substitute-key-definition switch-to-buffer w3m-e23-switch-to-buffer] 5 (#$ . 27777)])
(byte-code "\300\301\302\"\210\300\301\303\"\210\300\301\304\"\210\300\301\305\"\210\300\306\307\"\207" [add-hook w3m-mode-setup-functions w3m-tab-make-keymap w3m-setup-header-line w3m-setup-widget-faces w3m-e23-subst-switch-to-buffer-keys w3m-select-buffer-hook w3m-force-window-update] 3)
#@172 String of space character(s) to be put in front of the mode-line icon.
It may be better to use one or more spaces if you are using oblique or
italic font in the modeline.
(custom-declare-variable 'w3m-space-before-modeline-icon '"" '(#$ . 28333) :group 'w3m :type 'string)
#@55 Image file used to show a spinner in the header-line.
(defvar w3m-spinner-image-file nil (#$ . 28612))
#@52 Number of frames which the spinner image contains.
(defvar w3m-spinner-image-frames 3 (#$ . 28721))
#@74 Counter used to rotate spinner images.  This is a buffer-local variable.
(defvar w3m-spinner-image-index 0 (#$ . 28827))
(byte-code "\301\302!\210\303B\304\303!\204 \305\303\306\"\210\307B\304\307!\204\" \305\307\306\"\210\310B\304\310!\2041 \305\310\306\"\210\311B\304\311!\204@ \305\311\306\"\210\312B\304\312!\204O \305\312\306\"\210\306\207" [current-load-list make-variable-buffer-local w3m-spinner-image-index w3m-modeline-process-status-on-icon default-boundp set-default nil w3m-modeline-image-status-on-icon w3m-modeline-status-off-icon w3m-modeline-ssl-image-status-on-icon w3m-modeline-ssl-status-off-icon] 3)
#@60 Make icon images which will be displayed in the mode-line.
(defalias 'w3m-initialize-graphic-icons #[(&optional force) "\306\307\211\211\211\211\203\250 @A\f@\fA@\310\f8,\203\231 -\203\231 \311 \203\231 \312\313!\203\231 .\203\231 \314.!\203\231 \315\316\n.\"\211!\203\231 /\204X J\204\202 \204a \317\320\321\"\322\323\324\325\n\313\307\326\327%\330\331\332\333\334&	L\210\335\336\337#\210\335	\336\337#\210	J;\203\217 \335	\340	J#\210	\341\342EL\210\202\f 	\340N\203\f 	\211\340NL\210\202\f /\204\262 0\204\351 \312\343!\203\351 .\203\351 \314.!\203\351 \315\316\344.\"\211!\203\351 \n0\345\346 \2111\347\350#\210\335\351\336\337#\210\335\352\336\337#\210,\203\f-\203\f0\203\f);\203\335\351\340)#\210\353\211)\202\351\340N\205\351\340N\211).\207" [keymap status file icon def defs ((w3m-modeline-status-off-icon "state-00.xpm" w3m-modeline-status-off) (w3m-modeline-image-status-on-icon "state-01.xpm" w3m-modeline-image-status-on) (w3m-modeline-ssl-status-off-icon "state-10.xpm" w3m-modeline-ssl-status-off) (w3m-modeline-ssl-image-status-on-icon "state-11.xpm" w3m-modeline-ssl-image-status-on)) nil 2 display-images-p image-type-available-p xpm file-directory-p file-exists-p expand-file-name make-mode-line-mouse-map mouse-2 w3m-reload-this-page propertize "  " display create-image :ascent center local-map mouse-face mode-line-highlight help-echo "mouse-2 reloads this page" put risky-local-variable t string "" w3m-space-before-modeline-icon gif "spinner.gif" define-key make-sparse-keymap [mode-line mouse-2] w3m-process-stop w3m-modeline-process-status-on w3m-modeline-process-status-on-icon ("" w3m-space-before-modeline-icon w3m-modeline-process-status-on-icon) window-system w3m-show-graphic-icons-in-mode-line w3m-icon-directory force w3m-spinner-image-file w3m-modeline-spinner-map] 11 (#$ . 29465) "P"])
#@102 Make an image used to show a spinner.
It should be called periodically in order to spin the spinner.
(defalias 'w3m-make-spinner-image #[nil "\205* 	T\211\nW\204 \306\307\310\311\312\313\314\315\316	&	\317\320\321\322\f\323&)\207" [w3m-spinner-image-file w3m-spinner-image-index w3m-spinner-image-frames image w3m-modeline-spinner-map w3m-spinner-map-help-echo 0 create-image gif nil :ascent center :mask heuristic :index propertize "  " display local-map help-echo w3m-modeline-process-status-on-icon] 10 (#$ . 31346)])
(provide 'w3m-e23)