;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:25 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/w3m-e21.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; 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-e21.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!\207" [require w3m-util w3m-proc w3m-image w3m-fsf 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 (#$ . 775)]) (byte-code "\300\301!\204\n\301\302M\210\300\207" [fboundp w3m-ucs-to-char #[(codepoint) "\301\302\"\206\303\207" [codepoint decode-char ucs 126] 3]] 2) #@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 (#$ . 1255)]) (byte-code "\300\301!\204 \302\301\303\"\210\302\304\301\"\207" [fboundp display-images-p defalias display-graphic-p w3m-display-graphic-p] 3) #@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 (#$ . 1601)]) #@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) "\204?\306\307\310\311 \f *%)\211\211+:\205+\312+A!\205++A\313H\314=)\203<\315\316\317\217\210\320\nA\321H\322\"\210\n*\207\323\324!\323\325!\323\326!\323\327!,-.\211/*L\210. L\210-\306L\210,\306L\210\3300!1\3311!\206\211\3321!\21123B3\3332!\2102))45\323\334!\323\335!6\2117\306L\2106\306L\2107\336\337\340\341\342D\3416D\3417D\341,D\341-D\341.D\341/D\343\257 EL\2106\336\337\340\341\344D\3416D\3417D\341,D\341-D\341.D\341/D\343\257 EL\210\336\345C7J\34554FEr4q\210\346\306!\210\347.J\350\f\306 &*\211%\211+:\205)\312+A!\205)+A\313H\314=)\203>5\2037%\202x\351%!\202x6J%54#\211%\211+:\205a\312+A!\205a+A\313H\314=)\203v5\203o%\202x\351%!\202x%. \207" [handler w3m-process-waited #1=#:--result--94640 url no-cache referer nil t #[(x) "\211\207" [x #1#] 2] w3m-create-image vectorp 0 w3m-process-object error (byte-code "\306 \307\211\310\311\"\210\312A\313H!\314=\203\244\315\307\316\317#\210 \203 \f\306 @\f@Z\320_\211A@)\\\f\211A@)[\\*W\203\305\307B\321\"A\313H\322!\203\226\323\324\"\210\325\324\"\210\312!\314=\203\226\326!\210\203\226\312!\314=\203\226\327\330!\210\202\206)\331@A\"\210*\202,\307\207" [#1# inhibit-quit w3m-process-inhibit-quit w3m-current-process start w3m-process-timeout current-time nil w3m-process-start-process t process-status 2 run accept-process-output 0 200 65536 delq processp set-process-filter ignore set-process-sentinel kill-process sit-for 0.1 signal end x process error-data w3m-process-queue w3m-process-kill-surely] 4) ((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!\315=\203=\317\320!\210\202.)\321 @ A\"\210*\306\207" [error #1# process error-data w3m-process-queue w3m-process-kill-surely delq 2 processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1 signal] 3))) w3m-process-sentinel 2 "finished\n" make-symbol "--set-size--" "--url--" "--image--" "--size--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G94648--" "--G94647--" lambda (&rest --cl-rest--) apply quote #[(#2=#:G94651 #3=#:G94652 #4=#:G94653 #5=#:G94654 #6=#:G94655 #7=#:G94656 type handler #8=#:--temp-buffer--94646) "J \n #\211\211:\205\305\fA!\205\fA\306H\307=)?\205'\n\206%\310 !\207" [#2# type handler #8# object vectorp 0 w3m-process-object identity] 5] --cl-rest-- #[(#9=#:G94695 #10=#:G94696 #11=#:G94697 #12=#:G94698 #13=#:G94699 #14=#:G94700 type handler #8#) "\306\216rq\210\307\310 !\211!\205\211\n\311\312 \313\314\315%L\210 \203\207\fJ\203\207\316\313!\210 \317\nJ\320\"L\210\fJ@\204K\fJA\203K\fJ J@\fJA_ JA\245\240\210\fJA\204f\fJ@\203f\fJ JA\fJ@_ J@\245\241\210 J@\fJ@=\203z JA\fJA=\204\202\321\322!\211%\nJL\210&'\321\323!\321\324!(\211)\325L\210(\325L\210)\326\327\330\331\332D\331(D\331)D\331%D\331*D\331+D\331 D\331\nD\331,D\331\fD\333\257\fEL\210(\326\327\330\331\334D\331(D\331)D\331%D\331*D\331+D\331 D\331\nD\331,D\331\fD\333\257\fEL\210\326\335C)J\335'EE&\336\337%JA\340\"\fJ@\fJA&$)\211\211-:\2051\341-A!\2051-A\342H\343=)\203F'\203?\202~\344!\202~(J'\"\211\211-:\205g\341-A!\205g-A\342H\343=)\203|'\203u\202~\344!\202~-\202\211\nJ\202\211\nJ*\207" [#8# type #12# w3m-resize-images #14# #11# ((byte-code "\211\204p ;\203\303 !\304 !\203\305 !\210\306 \n\")\307\207" [#8# buffer w3m-work-buffer-list get-buffer buffer-live-p kill-buffer delq nil] 4)) w3m-image-type-available-p w3m-image-type create-image buffer-string t :ascent center set-buffer-multibyte image-size pixels make-symbol "--image--" "--G94664--" "--G94663--" nil lambda (&rest --cl-rest--) apply quote #[(#15=#:G94667 #16=#:G94668 #17=#:G94669 #18=#:G94670 #19=#:G94671 #20=#:G94672 #21=#:G94673 #22=#:G94674 #23=#:G94675 resized handler) "J \n\"\211\211:\205\304 A!\205 A\305H\306=)?\205&\n\206$\307 !\207" [#15# resized handler object vectorp 0 w3m-process-object identity] 4] --cl-rest-- #[(#24=#:G94676 #25=#:G94677 #26=#:G94678 #27=#:G94679 #28=#:G94680 #29=#:G94681 #30=#:G94682 #31=#:G94683 #32=#:G94684 resized handler) "\203\f\302 JA\303#\210 J\207" [resized #26# plist-put :data] 4] resized w3m-resize-image plist-get :data vectorp 0 w3m-process-object w3m-process-start-process #33=#:--image--94661 handler #34=#:--this-handler--94662 #35=#:--G94663--94666 #36=#:--G94664--94665 #9# #10# #13# object] 16] type set-buffer-multibyte w3m-retrieve raw w3m-process-start-process size object #37=#:--size--94644 #38=#:--image--94643 #39=#:--url--94642 #40=#:--set-size--94641 w3m-work-buffer-name name buf w3m-work-buffer-list #8# #41=#:--this-handler--94645 #42=#:--G94647--94650 #43=#:--G94648--94649] 13 (#$ . 1811)]) #@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) "\204>\306\307\310\311 \306\f %)\211\211):\205*\312)A!\205*)A\313H\314=)\203;\315\316\317\217\210\320\nA\321H\322\"\210\n*\207\323\324!\323\325!\323\326!*+\211, L\210+-L\210*\306L\210\327.!/\330/!\206~\331/!\21101B1\3320!\2100))23\323\333!\323\334!4\2115\306L\2104\306L\2105\335\336\337\340\341D\3404D\3405D\340*D\340+D\340,D\342\257EL\2104\335\336\337\340\343D\3404D\3405D\340*D\340+D\340,D\342\257EL\210\335\344C5J\34432FEr2q\210\345\306!\210\346,J\347\306\211\f&*\211$\211):\205\312)A!\205)A\313H\314=)\203+3\203$$\202e\350$!\202e4J$32#\211$\211):\205N\312)A!\205N)A\313H\314=)\203c3\203\\$\202e\350$!\202e$.\207" [handler w3m-process-waited #1=#:--result--94717 url referer size nil t #[(x) "\211\207" [x #1#] 2] w3m-create-image vectorp 0 w3m-process-object error (byte-code "\306 \307\211\310\311\"\210\312A\313H!\314=\203\244\315\307\316\317#\210 \203 \f\306 @\f@Z\320_\211A@)\\\f\211A@)[\\*W\203\305\307B\321\"A\313H\322!\203\226\323\324\"\210\325\324\"\210\312!\314=\203\226\326!\210\203\226\312!\314=\203\226\327\330!\210\202\206)\331@A\"\210*\202,\307\207" [#1# inhibit-quit w3m-process-inhibit-quit w3m-current-process start w3m-process-timeout current-time nil w3m-process-start-process t process-status 2 run accept-process-output 0 200 65536 delq processp set-process-filter ignore set-process-sentinel kill-process sit-for 0.1 signal end x process error-data w3m-process-queue w3m-process-kill-surely] 4) ((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!\315=\203=\317\320!\210\202.)\321 @ A\"\210*\306\207" [error #1# process error-data w3m-process-queue w3m-process-kill-surely delq 2 processp set-process-filter ignore set-process-sentinel process-status run kill-process sit-for 0.1 signal] 3))) w3m-process-sentinel 2 "finished\n" make-symbol "--url--" "--rate--" "--image--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G94724--" "--G94723--" lambda (&rest --cl-rest--) apply quote #[(#2=#:G94727 #3=#:G94728 #4=#:G94729 #5=#:G94730 #6=#:G94731 type handler #7=#:--temp-buffer--94722) "J \n #\211\211:\205\305\fA!\205\fA\306H\307=)?\205'\n\206%\310 !\207" [#2# type handler #7# object vectorp 0 w3m-process-object identity] 5] --cl-rest-- #[(#8=#:G94761 #9=#:G94762 #10=#:G94763 #11=#:G94764 #12=#:G94765 type handler #7#) "\306\216rq\210\307\310 !\211!\205\374\n\311\312 \313\314\315%L\210\316\313!\210 \317\320!\317\321!\211\"\322L\210 \322L\210\"\323\324\325\326\327D\326 D\326\"D\326#D\326$D\326\nD\326%D\326&D\330\257\nEL\210 \323\324\325\326\331D\326 D\326\"D\326#D\326$D\326\nD\326%D\326&D\330\257\nEL\210\323\332C\"J\332\fEE\333\334\nJA\335\"%J #)\211\211':\205\262\336'A!\205\262'A\337H\340=)\203\306\f\203\277\202\373\341!\202\373 J\f\"\211\211':\205\345\336'A!\205\345'A\337H\340=)\203\371\f\203\362\202\373\341!\202\373,*\207" [#7# type #10# handler #13=#:--this-handler--94734 #14=#:--G94735--94738 ((byte-code "\211\204p ;\203\303 !\304 !\203\305 !\210\306 \n\")\307\207" [#7# buffer w3m-work-buffer-list get-buffer buffer-live-p kill-buffer delq nil] 4)) w3m-image-type-available-p w3m-image-type create-image buffer-string t :ascent center set-buffer-multibyte make-symbol "--G94736--" "--G94735--" nil lambda (&rest --cl-rest--) apply quote #[(#15=#:G94739 #16=#:G94740 #17=#:G94741 #18=#:G94742 #19=#:G94743 #20=#:G94744 #21=#:G94745 resized handler) "J \n\"\211\211:\205\304 A!\205 A\305H\306=)?\205&\n\206$\307 !\207" [#15# resized handler object vectorp 0 w3m-process-object identity] 4] --cl-rest-- #[(#22=#:G94746 #23=#:G94747 #24=#:G94748 #25=#:G94749 #26=#:G94750 #27=#:G94751 #28=#:G94752 resized handler) "\203\f\302 JA\303#\210 J\207" [resized #26# plist-put :data] 4] resized w3m-resize-image-by-rate plist-get :data vectorp 0 w3m-process-object w3m-process-start-process #29=#:--G94736--94737 #8# #9# #11# #12# object] 14] type set-buffer-multibyte w3m-retrieve raw w3m-process-start-process object #30=#:--image--94720 #31=#:--rate--94719 #32=#:--url--94718 rate w3m-work-buffer-name name buf w3m-work-buffer-list #7# #33=#:--this-handler--94721 #34=#:--G94723--94726 #35=#:--G94724--94725] 12 (#$ . 7052)]) #@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) "\304\301\"\305\n\306 \307 \310\311\257#\210 \205)\312 !\205)\313\n\301\311$\210\313\n\314 $)\207" [beg face end image get-text-property add-text-properties display intangible invisible nil face-underline-p put-text-property w3m-underline-face] 9 (#$ . 11790)]) #@56 Remove an image which is inserted between BEG and END. (defalias 'w3m-remove-image #[(beg end) "\303 \304#\210\305\306\"\211\205\307 \310\n$)\207" [beg end underline remove-text-properties (display nil intangible nil) get-text-property w3m-underline-face put-text-property face] 6 (#$ . 12219)]) #@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 (#$ . 12527)]) (byte-code "\304\305\306\307\310\311%\210\304\312\313\314\310\311%\210\304\315\316\317\310\311%\210\303B\320\303!\2045\321 !\322\323\324\n#\210\322\325\324\n#\210\n)\326\327\330\331\332 \333\334&\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." boundp 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) "\203I\304\305\306\"\307>\2048 f\310=\2038\nSf\311=\2038\212 b\210\312\313!\210\314c\210\nb\210\312\315!\210\314c\210 T\nS)\316\317 \n\320\321 \322\"%\210\323 \n #\207\323 \n\324\325 \"#\207" [w3m-form-use-fancy-faces start end properties 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 add-text-properties append (face w3m-form-face)] 8 (#$ . 14373)]) (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) '(#$ . 15227) :group 'w3m :type 'boolean) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list w3m-e21-toolbar-configurations boundp ((auto-resize-tool-bars . t) (auto-raise-tool-bar-buttons . t) (tool-bar-button-margin . 0) (tool-bar-button-relief . 2))] 2) (defalias 'w3m-e21-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\2118\313 \314\315\320H\"\321\322H\320H\323\324H\325\317HJ\257#\210\202H*\207" [w3m-e21-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-e21-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=#:--dolist-temp--94780 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\f\304 !\210\305\n \"\207" [w3m-use-toolbar w3m-toolbar-buttons w3m-mode-map w3m-toolbar w3m-e21-make-toolbar-buttons w3m-e21-setup-toolbar] 3]) (defalias 'w3m-update-toolbar 'ignore) #@74 *Size of favicon. This value is used as geometry argument for `convert'. (custom-declare-variable 'w3m-favicon-size 'nil '(#$ . -17058) :group 'w3m :type 'string) #@19 The favicon name. (defconst w3m-favicon-name "favicon.ico" (#$ . 17227)) #@43 A cons cell of (IMAGE-DATA . IMAGE-TYPE). (defvar w3m-current-favicon-data nil (#$ . 17306)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\305\306!\210\305\301!\210\305\302!\210\307\310\311\"\207" [current-load-list w3m-current-favicon-image w3m-favicon-converted boundp nil make-variable-buffer-local w3m-current-favicon-data add-hook w3m-display-functions w3m-setup-favicon] 3) #@38 *If non-nil, use favicon cache file. (custom-declare-variable 'w3m-favicon-use-cache-file 'nil '(#$ . -17714) :group 'w3m :type 'boolean) #@35 Filename of saving favicon cache. (custom-declare-variable 'w3m-favicon-cache-file 'nil '(#$ . 17858) :group 'w3m :type 'file) #@116 *The cache will be expired after specified seconds passed since retrieval. If this variable is nil, never expired. (custom-declare-variable 'w3m-favicon-cache-expire-wait '(* 30 24 60 60) '(#$ . -17992) :group 'w3m :type 'integer) #@33 *Image type of display favicon. (custom-declare-variable 'w3m-favicon-type '(let ((types '(bmp pbm png gif xpm))) (catch 'det (while types (when (image-type-available-p (car types)) (throw 'det (car types))) (setq types (cdr types))))) '(#$ . -18229) :group 'w3m :type (cons 'choice (mapcar (lambda (x) `(const :tag ,(symbol-name x) ,x)) (delq 'postscript (copy-sequence image-types))))) #@111 A list of a difference type of image between Emacs and ImageMagick. 0. Type of Emacs 1. Type of ImageMagick (defvar w3m-favicon-type-alist '((pbm . ppm)) (#$ . 18624)) #@132 A list of favicon cache (internal variable). Each information is a list whose elements are: 0. URL 1. Favicon 2. Retrieved date (defvar w3m-favicon-cache-data nil (#$ . 18801)) (defalias 'w3m-favicon-cache-p '(macro . #[(url) "\301\302BB\207" [url assoc (w3m-favicon-cache-data)] 3])) (defalias 'w3m-favicon-cache-favicon '(macro . #[(url) "\301\302\303\304\305\306BBEDC\307BB\207" [url let data nth 1 assoc (w3m-favicon-cache-data) ((if (stringp data) (cons data 'ico) data))] 7])) (defalias 'w3m-favicon-cache-retrieved '(macro . #[(url) "\301\302\303\304BBE\207" [url nth 2 assoc (w3m-favicon-cache-data)] 5])) (defalias 'w3m-setup-favicon #[(url) "\306\306\306 \205a\f\205a\307 !\205a\310\311\"\203F\312\313\314\315\"\316Q!\317\320!\205D\205Drq\210\321\320JD!\322B\211))\207\310\323\"\205a\324\325J\206^\326\327P\"\322B\"\207" [w3m-current-favicon-data w3m-current-favicon-image w3m-favicon-converted w3m-use-favicon w3m-current-url w3m-favicon-type nil w3m-image-type-available-p string-match "\\`about://\\([^/]+\\)/" intern-soft "w3m-about-" match-string 1 "-favicon" fboundp base64-decode-string eval ico "\\`https?://" w3m-retrieve-favicon w3m-icon-data w3m-expand-url "/" url icon w3m-current-buffer w3m-favicon-name] 5]) (defalias 'w3m-buffer-favicon #[(buffer) "rq\210 \205 @\205\n\206 \206\306\307!\306\310!\211\311\312 !L\210\fL\210\313K!\314!\"\306\315!\306\316!#\211$\317L\210#\317L\210$\320\321\322\323\324D\323#D\323$D\323\fD\323 D\325\257EL\210#\320\321\322\323\326D\323#D\323$D\323\fD\323 D\325\257EL\210\320\327C$J\327\"EE!\330! @\331 A!\331%&\236A\206\237%!\332'\206\254 J\333 JQ&)\211\211(:\205\310\334(A!\205\310(A\335H\336=)\203\337\"\203\327\210\202\337!\210\202#J\"\"\211\211(:\205\334(A!\205(A\335H\336=)\203\"\203\210\202\337!\210\202\210,\340 +)\207" [buffer w3m-current-favicon-data w3m-current-favicon-image w3m-favicon-converted #1=#:--buffer--94782 #2=#:--height--94781 make-symbol "--height--" "--buffer--" number-to-string frame-char-height identity t "--G94785--" "--G94784--" nil lambda (&rest --cl-rest--) apply quote #[(#3=#:G94788 #4=#:G94789 #5=#:G94790 #6=#:G94791 img handler) "J \n\"\211\211:\205\304 A!\205 A\305H\306=)?\205&\n\206$\307 !\207" [#3# img handler object vectorp 0 w3m-process-object identity] 4] --cl-rest-- #[(#7=#:G94792 #8=#:G94793 #9=#:G94794 #10=#:G94795 img handler) "rJq\210 \203\305 \n\306\307\310%\211\202\311\211)\207" [#9# img w3m-favicon-type w3m-current-favicon-image w3m-current-favicon-data create-image t :ascent center nil] 6] img w3m-imagick-start-convert-data symbol-name "-geometry" "x" vectorp 0 w3m-process-object w3m-process-start-process w3m-process-start-queued-processes handler #11=#:--this-handler--94783 #12=#:--G94784--94787 #13=#:--G94785--94786 w3m-favicon-type w3m-favicon-type-alist w3m-favicon-size object] 11]) (defalias 'w3m-retrieve-favicon #[(pair target &optional handler) "\306@ \"\2035\n\203\307 \307\310\306@ \"8!Z\nW\2035\306@ \"A@\211;\2030 \311B\2021 )\211\207\312\313!\312\314!\211\"L\210 #L\210$\315%!&\316&!\206j\317&!\211'(B(\320'!\210')))*\312\321!\312\322!+\211,\323L\210+\323L\210,\324\325\326\327\330D\327+D\327,D\327 D\327\"D\331\257EL\210+\324\325\326\327\332D\327+D\327,D\327 D\327\"D\331\257EL\210\324\333C,J\333*)FE$r)q\210\334\"J@\335\323\211\211$&*\211\211-:\205\367\336-A!\205\367-A\337H\340=)\203\f*\203\202F\341!\202F+J*)#\211\211-:\205/\336-A!\205/-A\337H\340=)\203D*\203=\202F\341!\202F.\207" [pair w3m-favicon-cache-data w3m-favicon-cache-expire-wait data w3m-current-favicon-data #1=#:--target--94809 assoc float-time 2 ico make-symbol "--pair--" "--target--" generate-new-buffer-name get-buffer get-buffer-create buffer-disable-undo "--G94813--" "--G94812--" nil lambda (&rest --cl-rest--) apply quote #[(#2=#:G94816 #3=#:G94817 #4=#:G94818 #5=#:G94819 ok handler #6=#:--temp-buffer--94811) "J \n #\211\211:\205\305\fA!\205\fA\306H\307=)?\205'\n\206%\310 !\207" [#2# ok handler #6# object vectorp 0 w3m-process-object identity] 5] --cl-rest-- #[(#7=#:G94820 #8=#:G94821 #9=#:G94822 #10=#:G94823 ok handler #6#) "\306\216rq\210\307\n\203\310 r Jq\210 \fJAB)\fJ@ \205' \fJAB\311 E\nB\211\n+\207" [#6# idata ok #9# #10# w3m-current-favicon-data ((byte-code "\211\204p ;\203\303 !\304 !\203\305 !\210\306 \n\")\307\207" [#6# buffer w3m-work-buffer-list get-buffer buffer-live-p kill-buffer delq nil] 4)) nil buffer-string current-time w3m-favicon-cache-data] 3] ok w3m-retrieve raw vectorp 0 w3m-process-object w3m-process-start-process #11=#:--pair--94808 target handler w3m-work-buffer-name name buf w3m-work-buffer-list #6# #12=#:--this-handler--94810 #13=#:--G94812--94815 #14=#:--G94813--94814 object] 11]) (defalias 'w3m-favicon-save-cache-file #[nil "\205\304 \206 \305\306\n\" \307#\207" [w3m-favicon-use-cache-file w3m-favicon-cache-file w3m-profile-directory w3m-favicon-cache-data w3m-save-list expand-file-name ".favicon" binary] 4]) (defalias 'w3m-favicon-load-cache-file #[nil "\205 ?\205\304\n\206\305\306 \"\307\"\211\207" [w3m-favicon-use-cache-file w3m-favicon-cache-data w3m-favicon-cache-file w3m-profile-directory w3m-load-list expand-file-name ".favicon" binary] 4]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook w3m-arrived-setup-functions w3m-favicon-load-cache-file w3m-arrived-shutdown-functions w3m-favicon-save-cache-file] 3) #@16 w3m tab width. (custom-declare-variable 'w3m-tab-width '16 '(#$ . 24369) :group 'w3m :type 'integer) (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%\207" [custom-declare-face w3m-tab-unselected-face ((((type x w32 mac) (class color)) :background "Gray50" :foreground "Gray20" :underline "Gray85" :box (:line-width -1 :style released-button)) (((class color)) (:background "cyan" :foreground "black" :underline "blue"))) "*Face to fontify unselected tabs." :group w3m-face w3m-tab-unselected-retrieving-face ((((type x w32 mac) (class color)) :background "Gray50" :foreground "OrangeRed" :underline "Gray85" :box (:line-width -1 :style released-button)) (((class color)) (:background "cyan" :foreground "OrangeRed" :underline "blue"))) "*Face to fontify unselected tabs which are retrieving their pages." w3m-tab-selected-face ((((type x w32 mac) (class color)) :background "Gray85" :foreground "black" :underline "Gray85" :box (:line-width -1 :style released-button)) (((class color)) (:background "blue" :foreground "black" :underline "blue")) (t (:underline t))) "*Face to fontify selected tab." w3m-tab-selected-retrieving-face ((((type x w32 mac) (class color)) :background "Gray85" :foreground "red" :underline "Gray85" :box (:line-width -1 :style released-button)) (((class color)) (:background "blue" :foreground "red" :underline "blue")) (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" :underline "Gray85") (((class color)) (:background "white" :foreground "black" :underline "blue"))) "*Face to fontify background of tab line."] 6) (defalias 'w3m-setup-header-line #[nil "\203 \303C\202 \205\304\305\306\307#\310D\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 (propertize (if (stringp w3m-current-url) (replace-regexp-in-string "%" "%%" w3m-current-url) "") 'face 'w3m-header-line-location-content-face '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"))] 4]) (defalias 'w3m-tab-drag-mouse-function #[(event buffer) "\3058:\203 \305\202\3068)\211@)\307\310 !\203A\307\311 \310\n@!\203A\nA@\203A\nAA\203A\312\nA@\nAA\n@# \205W\313\314 !!\f\230?\205W\315 !\210\316\f!*\207" [event position mpos window buffer 2 1 nil framep mouse-position window-at buffer-name window-buffer select-window switch-to-buffer] 5]) (defalias 'w3m-tab-make-keymap #[(buffer) "\304 \305\306\307\310\311\312!EF\305\313\314\315\312!DF\316 \317\320#\210\316 \321\320#\210\316 \322\n#\210\316 \323\n#\210\316 \324 #\210\316 \325 #\210 +\207" [buffer up-action drag-action map make-sparse-keymap lambda (e) (interactive "e") w3m-tab-drag-mouse-function e buffer-name (e) (interactive "e") switch-to-buffer define-key [header-line down-mouse-1] ignore [header-line down-mouse-2] [header-line drag-mouse-1] [header-line drag-mouse-2] [header-line mouse-1] [header-line mouse-2]] 8]) (defalias 'w3m-tab-line #[nil "p\305\306\307\310!\311\")\211G \312\\_\313 V\203$\313 \nG\245\312Z\314]\202% r\315\316\n\317\320\321\322##)\317\323\313 \324\"\321\322#P+\207" [current nosort buffers w3m-tab-width width nil sort w3m-list-buffers t w3m-buffer-name-lessp 5 window-width 1 mapconcat #[(buffer) "rq\210 ;\203 \306\230\204 \2020\n;\203/\307\310\311\n\"\203*\n\312\225\313O\202+\n!\2020\306* \2058\314!\315\f\203G\315\316\317\f#\202H\316!\312V\203u\320 !!V\203u!\321V\203m\322 \312!\323Z]\"\324P\202\202\322 !\"\202\202 \325\312!\320 !Z]\326\"P\316Q\327\330\331q\210\"\203\236#=\203\232\332\202\252\333\202\252#=\203\251\334\202\252\335\336\337!\340 & *\207" [buffer w3m-current-title w3m-current-url w3m-use-favicon favicon title "" directory-file-name string-match "^[^/:]+:/+" 0 nil w3m-buffer-favicon propertize " " display string-width 6 truncate-string-to-width 3 "..." make-string 32 mouse-face highlight face w3m-tab-selected-retrieving-face w3m-tab-unselected-retrieving-face w3m-tab-selected-face w3m-tab-unselected-face local-map w3m-tab-make-keymap help-echo width w3m-current-process current] 10] propertize " " face w3m-tab-background-face make-string 32] 8]) #@18 Update tab line. (defalias 'w3m-update-tab-line #[nil "\205 \301\302\303 \304\"!\207" [w3m-use-tab set-cursor-color frame-parameter selected-frame cursor-color] 4 (#$ . 28861)]) (byte-code "\300\301\302\"\210\300\301\303\"\210\304\305!\207" [add-hook w3m-mode-setup-functions w3m-setup-header-line w3m-setup-widget-faces provide w3m-e21] 3)