;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require cl-lib w3m-util w3m-proc w3m-image w3m-favicon wid-edit] 2) #@48 Return OBJ if it is a coding-system. (fn OBJ) (defalias 'w3m-find-coding-system #[257 "\300!\205\211\207" [coding-system-p] 3 (#$ . 248)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put w3m-find-coding-system speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@216 Detect coding system of the text in the region between START and END. Return the first possible coding system. PRIORITY-LIST is a list of coding systems ordered by priority. (fn START END &optional PRIORITY-LIST) (defalias 'w3m-detect-coding-region #[770 "\300 \301\302\"\210\303\304\"\216\305\"@)\207" [coding-system-priority-list apply set-coding-system-priority make-closure #[0 "\301\302\300\"\207" [V0 apply set-coding-system-priority] 3] detect-coding-region] 7 (#$ . 546)]) #@50 Check the existence as charsets of mule-unicode. (defalias 'w3m-mule-unicode-p #[0 "\300\301!\205\300\302!\205\300\303!\207" [charsetp mule-unicode-0100-24ff mule-unicode-2500-33ff mule-unicode-e000-ffff] 2 (#$ . 1039)]) #@229 Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER. CODING-SYSTEM, DECODER and ENCODER must be symbols. This function is an interface to `define-coding-system'. (fn CODING-SYSTEM MNEMONIC DOCSTRING DECODER ENCODER) (defalias 'w3m-make-ccl-coding-system #[1285 "\300\301\302\303\304 \305\n&\n\207" [define-coding-system :mnemonic :coding-type ccl :ccl-decoder :ccl-encoder] 16 (#$ . 1271)]) #@18 (fn CODEPOINT) (defalias 'w3m-ucs-to-char #[257 "\300\301\"\206\302\207" [decode-char ucs 126] 4 (#$ . 1686)]) #@79 Returns non-nil when images can be displayed under the present circumstances. (defalias 'w3m-display-inline-images-p #[0 "\205\301 \207" [w3m-display-inline-images display-images-p] 1 (#$ . 1808)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable w3m-image-animate-seconds funcall function #[0 "\300\207" [10] 1] "Animate images (if possible) for this many seconds.\nIf nil, don't play the animation. If t, loop forever." :group w3m :type (choice (integer :tag "Animate for (seconds)") (const :tag "Inhibit animation" nil) (const :tag "Animate forever" t))] 8) #@63 Start animating IMAGE if possible. Return IMAGE. (fn IMAGE) (defalias 'w3m-image-animate #[257 "\203\301!A\203\302\303#\210\247\203\304T\303\305$\210\207" [w3m-image-animate-seconds image-multi-frame-p image-animate nil run-with-timer #[257 "\300\301\211#\207" [image-animate 0] 5 "\n\n(fn IMAGE)"]] 6 (#$ . 2417)]) #@357 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. (fn URL &optional NO-CACHE REFERER SIZE HANDLER) (defalias 'w3m-create-image #[1281 "C\204\217\305\306\307\310!\211\311M\210\211C\312\n\n\n\242%\262\262\313!\203\214\3141L\306\211\315\305\"\210\316A\317H \"?\205F\320\303C\"*0\210\202R\320\"\266\321A\317H\322\305#\210\3232\207A\324H\211\203\211@\317H>\203x\325\323\324H\"\210A\266\202\202c\210\320\326\327B\"0\262\202#)\207p\242\306C\306C\330\331\f!!p\332\333\n     &\332\334# BBrq\210\335\306!\210\336\306\306&)\262\313!\203\341\n\203\335\207\315!\207\313r\fB!\262)\211\262!\203\376\n\203\372\207\315!\207!\207" [w3m-process-waited inhibit-quit w3m-process-inhibit-quit w3m-process-timeout w3m-work-buffer-name t nil make-symbol "wait-function" identity w3m-create-image 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-get-buffer-create generate-new-buffer-name make-closure #[257 "\307\306!\203 \306q\210eb\210\310-\311\312!)\2030\313\304\314\224\203!\315\202+\316\224\203*\317\202+\320\240!\2025\304\321!\240\205\304\242\322=\203Y\211\203Y\323\324\"\203Y\325\326\225\310O\327\"\203Y\304\320\240\210\305\330\331\332 \304\242\333\334\335\336.\304\242\337=\205s\340\341\f!D& \240\210/\203 \303\203 \342\333!\210\300\343\305\242\344\"\240\210\303@\204\243\303A\203\243\303\300\242@\303A_\300\242A\245\240\210\303A\204\272\303@\203\272\303\300\242A\303@_\300\242@\245\241\210\300\242@\303@=\203\314\300\242A\303A=\204 \345\346\305\"\211\301B\347\350\305\242A\351\"\303@\303A$\262\352!\203\364\301\204 \353!\266\202 \352!\211\262!\203 \301\204 \353!\266\202 \266r\302q\210\354\305\242!)\207" [V0 V1 V2 V3 V4 V5 V6 buffer-name nil looking-at "\\(GIF8\\)\\|\\(\377\330\\)\\|\211PNG \n" w3m-image-type-available-p 1 gif 2 jpeg png w3m-image-type convert string-match "\\`image/" w3m-imagick-convert-buffer 0 "png" apply create-image buffer-string t :ascent center :background image-convert :format intern set-buffer-multibyte image-size pixels make-closure #[257 "\211\205 \301\300\242A\302#\207" [V0 plist-put :data] 5 "\n\n(fn RESIZED)"] w3m-resize-image plist-get :data w3m-process-p w3m-process-start-process w3m-image-animate case-fold-search w3m-image-default-background w3m-resize-images] 14 "\n\n(fn CONTENT-TYPE)"] #[257 "\302\300!\210\303\301!\203 \301q\210\207" [V0 V1 w3m-kill-buffer buffer-name] 3 "\n\n(fn CONTENT-TYPE)"] set-buffer-multibyte w3m-retrieve] 22 (#$ . 2756)]) #@279 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. (fn URL RATE &optional REFERER SIZE HANDLER) (defalias 'w3m-create-resized-image #[1282 "\211\204\213\305\306\307\310!\211\311M\210\211C\312 \306  %\262\262\313!\203\210\3141H\306\211\315\305\"\210\316A\317H \"?\205B\320\303C\"*0\210\202N\320\"\266\321A\317H\322\305#\210\3232\203A\324H\211\203{\211@\317H>\203t\325\323\324H\"\210A\266\202\202_\210\320\326\327B\"0\262\202)\207\306C\330\331\f!!p\332\333%\332\334#BBrq\210\335\306!\210\336 \306\211\211 &)\262\313!\203\320\203\314\207\315!\207\313rB!\262)\211\262!\203\355\203\351\207\315!\207!\207" [w3m-process-waited inhibit-quit w3m-process-inhibit-quit w3m-process-timeout w3m-work-buffer-name t nil make-symbol "wait-function" identity w3m-create-image 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-get-buffer-create generate-new-buffer-name make-closure #[257 "\304\303!\203 \303q\210\305!\211\262\205f\302\306\307 \310\311\312%\240\210\313\310!\210\314\315\302\"\211\301B\316\317\302\242A\320\"\300#\262\321!\203H\301\203B\211\202b\322!\202b\321!\211\262!\203a\301\203[\211\202b\322!\202b\211\262\262\207" [V0 V1 V2 V3 buffer-name w3m-image-type create-image buffer-string t :ascent center set-buffer-multibyte make-closure #[257 "\211\203\f\301\300\242A\302#\210\300\242\207" [V0 plist-put :data] 5 "\n\n(fn RESIZED)"] w3m-resize-image-by-rate plist-get :data w3m-process-p w3m-process-start-process] 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)"] set-buffer-multibyte w3m-retrieve] 18 (#$ . 5672)]) #@128 Display image on the current buffer. Buffer string between BEG and END are replaced with IMAGE. (fn BEG END IMAGE &rest ARGS) (defalias 'w3m-insert-image #[899 "\300\301\"\302\303\211\211\304  \305\n\306\f\307\303\257#\210\205h<\204&C\262\310!\262G\262W\203N\3118\211\262!\203G\312\"\262T\262\202/GW\205h\313  \301$\210\313  \314$\207" [get-text-property face 0 nil add-text-properties display intangible invisible copy-sequence face-underline-p delq put-text-property w3m-faces-with-underline] 18 (#$ . 7689)]) #@70 Remove an image which is inserted between BEG and END. (fn BEG END) (defalias 'w3m-remove-image #[514 "\300\301#\210\302\303\"\211\205\304\305\303\306F#\207" [remove-text-properties (display nil intangible nil) get-text-property w3m-faces-with-underline add-text-properties face nil] 10 (#$ . 8249)]) #@74 Return non-nil if an image with TYPE can be displayed inline. (fn TYPE) (defalias 'w3m-image-type-available-p #[257 "\300 \205\301!\207" [display-images-p image-type-available-p] 3 (#$ . 8565)]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\207" [custom-declare-face w3m-form-button ((((type x w32 mac ns) (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 ((((type x w32 mac ns) (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 ((((type x w32 mac ns) (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."] 6) (defvar w3m-form-button-keymap (byte-code "\301!\302\303\304#\210\302\305\304#\210\207" [widget-keymap copy-keymap substitute-key-definition widget-forward nil widget-backward] 5)) (define-widget 'w3m-form-button 'push-button "Widget for w3m form button." :keymap w3m-form-button-keymap :action #[513 "\300\301\302\"!\207" [eval widget-get :w3m-form-action] 6 "\n\n(fn WIDGET &optional E)"]) #@92 Make button on the region from START to END. (fn START END PROPERTIES &optional READONLY) (defalias 'w3m-form-make-button #[1027 "\211\203\301\302\303\302\304\"\"\305$\207\203z\306\307\310\"\311>\204Pf\312=\203P\206+`Sf\313=\203P\212b\210\314\315!\210\316c\210b\210\314\317!\210\316c\210T\262S\262)U\203_b\210\320c\210`\262\321\307\322\323\324\"%\325\326\327\"\330\331#\266\301#\207\301\302\303\302\332\"\"\305$\207" [w3m-form-use-fancy-faces add-text-properties append (rear-nonsticky t) (face w3m-form-inactive w3m-form-readonly t) nil face-attribute w3m-form-button :box (nil unspecified) 91 93 delete-char 1 " " -1 "submit" widget-convert-button :w3m-form-action plist-get w3m-action overlay-put widget-get :button-overlay evaporate t (face w3m-form)] 12 (#$ . 10358)]) (defalias 'w3m-setup-widget-faces #[0 "\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 w3m-form-button-mouse w3m-form-button-pressed] 2]) #@215 Place emacs-w3m menus on the forfront of the menu bar if ARG is non-nil. If CURBUF is given, this function works only in the current buffer, otherwise works in all the emacs-w3m buffers. (fn ARG &optional CURBUF) (defalias 'w3m-menu-on-forefront #[513 "\211\203 \203\302\303\304\305\"A\"\211\205\306\301!\210\211\211\207\307\301!\207r\310\311!\211\2059\211@\211q\210\312\311\"\210A\266\202\202$\262)\207" [global-map menu-bar-final-items mapcar car lookup-key [menu-bar] make-local-variable kill-local-variable w3m-list-buffers t w3m-menu-on-forefront] 7 (#$ . 11433)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315\316\317& \210\300\320\302\303\321DD\322\306\307\310\311\316\323& \210\300\324\302\303\325DD\326\306\307\310\327\316\330& \207" [custom-declare-variable w3m-use-toolbar funcall function #[0 "\300 \205\301\302!\206\303\304!\207" [display-images-p featurep gtk image-type-available-p xpm] 2] "Non-nil enables toolbar." :group w3m :type boolean w3m-toolbar-icon-preferred-image-types #[0 "\300\301!\203\302\207\303\207" [featurep gtk (png) (xpm)] 2] "List of image types that you prefer to use for the tool bar icons.\nBy default, `png' is most preferred for Emacs built with GTK and `xpm'\nis for others." (repeat (symbol :tag "Image type")) :set #[514 "\301\"\204\302\303!\203\304 \210\207" [noninteractive custom-set-default featurep w3m w3m-update-toolbars] 5 "\n\n(fn SYMBOL VALUE)"] w3m-toolbar-use-single-image-per-icon #[0 "\300\207" [nil] 1] "Non-nil means use single image (named *-up) per icon.\nIf it is nil, subsidiaries, e.g., *-down and *-disabled, if any, are\nused together.\n\nNote that this option will be ignored if running Emacs built with Gtk+\nand every button will use a single icon image." #[514 "\301\"\204\302\303!\203\304 \210\207" [noninteractive custom-set-default featurep w3m w3m-update-toolbars] 5 "\n\n(fn SYMBOL VALUE)"] w3m-toolbar-configurations #[0 "\300\301\302!?\205 \303B\207" [(tool-bar-button-margin . global) featurep gtk ((tool-bar-button-relief . global))] 3] "Alist of variables and values that controls the tool bar appearance.\nThe value `global' means to use the global value of the variable.\n\nIf you're annoyed with changing of the frame height of Emacs built for\nGTK because of the difference of the sizes between the emacs-w3m tool\nbar icons and the ones that Emacs natively uses, try customizing this\nvariable or both the value of this variable and the global value of\n`tool-bar-button-margin'. For examples:\n\n;; The case where the emacs-w3m icons are smaller than the others.\n(setq w3m-toolbar-configurations \\='((tool-bar-button-margin . 5)))\n\n;; The case where the emacs-w3m icons are bigger than the others.\n(setq w3m-toolbar-configurations \\='((tool-bar-button-margin . 0))\n tool-bar-button-margin 7)" (repeat (cons :format "%v" (symbol :tag "Variable") (radio :format "%v" (const :format "%v " global) (sexp :tag "Local Value")))) #[514 "\301\"\204\302\303!\203\304 \210\207" [noninteractive custom-set-default featurep w3m w3m-toolbar-set-configurations] 5 "\n\n(fn SYMBOL VALUE)"]] 10) #@20 (fn KEYMAP DEFS) (defalias 'w3m-toolbar-define-keys #[514 "\211G\300\301Y\2056S\2628\262\302\303\304\305H\"\306\307\305H\310\311H\312 \313H\314 \301HJ\257 #\210\202\207" [nil 0 define-key vector tool-bar 1 menu-item " " :enable 2 :help 3 :image] 17 (#$ . 14619)]) #@296 Find image file for NAME and return cons of file name and type. This function searches only in DIRECTORY, that defaults to the value of `w3m-icon-directory', for an image file of which the base name is NAME. Files of types that Emacs does not support are ignored. (fn NAME &optional DIRECTORY) (defalias 'w3m-find-image #[513 "\211\204\262\211\205r\304!\205r\305 \205r\306\307\310\311\312!\313Q#\314\n \"\306\211\211\203]\315\316\211A\262\242\211\262\"\203*\317\320\321\"\227!\262\322\236A\206O\262>BB\262\202*\323\324\"@\262\211A\205o\211@A@B)\266\205\207" [w3m-icon-directory case-fold-search w3m-toolbar-icon-preferred-image-types image-types file-directory-p display-images-p nil directory-files t "\\`" regexp-quote "\\." append string-match "\\.\\([^.]+\\)\\'" intern match-string 1 ((tif . tiff) (jpg . jpeg) (ps . postscript) (pgm . pbm) (ppm . pbm)) sort #[514 "GGV\207" [] 4 "\n\n(fn A B)"]] 11 (#$ . 14908)]) #@32 (fn BUTTONS &optional FORCE) (defalias 'w3m-toolbar-make-buttons #[513 "\301\302\211\211\211\211\205\320\211A\262 \242\262\303\304\305Q!\262\204(\306!\204\307\310P!\262\307\311P!\262\307\312P!\206O\206I\206I\307!\302\262\302\262\211\262\203\307\313\314@A\302\315\316A\317=\205h\f&\262\306\320!\204~\204~\204\205\204\205L\210\202\203\240\313\314@A\302\315\316A\317=\205\234\f&\262\203\273\313\314@A\302\315\316A\317=\205\267\f&\262\321\211$L\210\202\322\323\"\210\202\207" [w3m-toolbar-use-single-image-per-icon (:color-symbols (("backgroundToolBarColor" . "None"))) nil intern "w3m-toolbar-" "-icon" boundp w3m-find-image "-down" "-disabled" "-up" apply create-image :ascent center xpm gtk-version-string vector error "Icon file %s-up.* not found"] 17 (#$ . 15872)]) #@205 Set values of variables according to `w3m-toolbar-configurations'. If CURBUF is given, this function works only in the current buffer, otherwise works in all the emacs-w3m buffers. (fn &optional CURBUF) (defalias 'w3m-toolbar-set-configurations #[256 "\211\203*\211\205)\211@\211A\301=\203\302@!\210\202\"\303@!AL\210A\266\202\202\207\304 \305C\305C\306\307\310#\311\312#\210\313!\210r\314\315!\211\203]\211@\211\242>\204V\211q\210\316\315!\210A\266\202\202B\210)\313!\207" [w3m-toolbar-configurations global kill-local-variable make-local-variable selected-frame nil walk-windows make-closure #[257 "\300\303!\240\210\300\242\301\242>?\205*\300\242q\210\n\304=\205*\301\300\242\301\242B\240\210\305\306!!\210\307\310!\207" [V0 V1 major-mode window-buffer w3m-mode select-frame window-frame w3m-toolbar-set-configurations t] 4 "\n\n(fn WINDOW)"] ignore visible select-frame-set-input-focus w3m-list-buffers t w3m-toolbar-set-configurations] 9 (#$ . 16727)]) (defalias 'w3m-setup-toolbar #[0 "\205\304\305!\205\306 !\210\307\310!\210\311\n \"\207" [w3m-use-toolbar w3m-toolbar-buttons w3m-mode-map w3m-toolbar w3m-find-image "antenna-up" w3m-toolbar-make-buttons w3m-toolbar-set-configurations t w3m-toolbar-define-keys] 3]) (defalias 'w3m-update-toolbars #[0 "\205\304\305!\205\306 \307\"\210\310 \210\311\n \"\207" [w3m-use-toolbar w3m-toolbar-buttons w3m-mode-map w3m-toolbar w3m-find-image "antenna-up" w3m-toolbar-make-buttons t w3m-toolbar-set-configurations w3m-toolbar-define-keys] 3]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\317\306\320%\210\314\321\322\323\306\320%\210\314\324\325\326\306\320%\210\314\327\330\331\306\320%\210\314\332\333\334\306\320%\210\314\335\336\337\306\320%\210\314\340\341\342\306\320%\210\314\343\344\345\306\320%\207" [custom-declare-variable w3m-tab-width funcall function #[0 "\300\207" [16] 1] "w3m tab width." :group w3m :set #[514 "\300\247\203\301V\203\202\302\"\207" [custom-set-default 0 16] 6 "\n\n(fn SYMBOL VALUE)"] :type integer custom-declare-face w3m-tab-unselected ((((type x w32 mac ns) (class color)) :background "Gray70" :foreground "Gray20" :box (:line-width -1 :style released-button)) (((class color)) (:background "blue" :foreground "black"))) "Face to fontify unselected tabs." w3m-face w3m-tab-unselected-retrieving ((((type x w32 mac ns) (class color)) :background "Gray70" :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-unselected-unseen ((((type x w32 mac ns) (class color)) :background "Gray70" :foreground "Gray20" :box (:line-width -1 :style released-button)) (((class color)) (:background "blue" :foreground "gray60"))) "Face to fontify unselected and unseen tabs." w3m-tab-selected ((((type x w32 mac ns) (class color)) :background "Gray90" :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 ((((type x w32 mac ns) (class color)) :background "Gray90" :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 ((((type x w32 mac ns) (class color)) :background "LightSteelBlue" :foreground "black") (((class color)) (:background "white" :foreground "black"))) "Face to fontify background of tab line." w3m-tab-selected-background ((((type x w32 mac ns) (class color)) :background "LightSteelBlue" :foreground "black") (((class color)) (:background "white" :foreground "black"))) "Face to fontify selected background tab." w3m-tab-mouse ((((type x w32 mac ns) (class color)) :background "Gray75" :foreground "white" :box (:line-width -1 :style released-button))) "Face used to highlight tabs under the mouse."] 10) #@46 Keymap used on the spinner in the mode-line. (defvar w3m-modeline-spinner-map nil (#$ . 20780)) #@57 String used for the :help-echo property on the spinner. (defvar w3m-spinner-map-help-echo "mouse-2 kills the current process" (#$ . 20882)) (defalias 'w3m-setup-tab-line #[0 "\306\211\203 \302\262\307\262 \310\232\204\311\312\313 !\"\203=\306\202=\301\262\314\262\315\302!\203=\n\316\232\204;\311\312\313\n!\"\203=\306 \203F\317\202\301\f\205\301 \203\205\320\321\322\323C#\324\320\325\326\327\330\331\332\333\334\335!ED\336\337\340\341\342\343BBB\344BBB\345BBBBBBBBD\320\346\322\347C#E\202\206\350\320\351\322\323C#\324\320\352\353\354\355\331\332\333\334\335!ED\356\337\357\341\342\360BBB\361BBB\362BBBBBBBBD\320\363\364\365\366\367 \370_E\322\347%FL\207" [w3m-use-tab-line header-line-format tab-line-format w3m-use-tab w3m-use-header-line w3m-use-header-line-title nil [tab-line mouse-2] (:eval (w3m-tab-line)) string-match "w3m-header-line-" prin1-to-string [header-line mouse-2] boundp (:eval (w3m-tab-line)) (:eval (w3m-tab-line)) propertize "Title: " face w3m-header-line-title :eval (replace-regexp-in-string "%" "%%" (w3m-current-title)) 'face (list 'w3m-header-line-content) 'mouse-face quote highlight :foreground face-foreground default 'local-map let ((map (make-sparse-keymap))) define-key map ('w3m-goto-url) (map) ('help-echo "mouse-2 prompts to input URL") ", " w3m-header-line-background #1="" "Location: " (if (stringp w3m-current-url) (replace-regexp-in-string "%" "%%" w3m-current-url) #1#) 'face (list 'w3m-header-line-content) 'mouse-face 'local-map ((map (make-sparse-keymap))) ('w3m-goto-url) (map) ('help-echo "mouse-2 prompts to input URL") " " display space :width window-width 8] 19]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias w3m-setup-header-line w3m-setup-tab-line nil make-obsolete "27.1"] 4) #@89 Force redisplay of WINDOW which defaults to the selected window. (fn &optional WINDOW) (defalias 'w3m-force-window-update #[256 "\300\206\301 !\210\302\303!\207" [force-window-update selected-window sit-for 0] 3 (#$ . 22664)]) #@21 (fn EVENT BUFFER) (defalias 'w3m-tab-drag-mouse-function #[514 "\301!\211@\262\302\211\303!\203F\302\262\304 \262\303@!\2035A@\2035AA\2035\305A@AA@#\262\204F\306\307!\203B\310 \210\311 \262\312!\211\262=?\205_\313!\210\314!\210\211\315!\207" [w3m-previous-session-buffer event-end 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] 9 (#$ . 22901)]) #@21 (fn EVENT BUFFER) (defalias 'w3m-tab-click-mouse-function #[514 "\301!\211@\262\302!\303!\210\304!\210\211\305!\207" [w3m-previous-session-buffer event-start window-buffer select-window switch-to-buffer w3m-force-window-update] 6 (#$ . 23386)]) #@21 (fn EVENT BUFFER) (defalias 'w3m-tab-double-click-mouse1-function #[514 "\302!\211@\262\303=\203# \203 \304 \305\306\"\216\307 \210)\210\202#\307 \210\310!\207" [major-mode w3m-new-session-in-background event-start w3m-mode current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] w3m-copy-buffer w3m-force-window-update] 7 (#$ . 23646)]) #@21 (fn EVENT BUFFER) (defalias 'w3m-tab-double-click-mouse2-function #[514 "\301!\211@\262\302=\203\303 \210\304!\207" [major-mode event-start w3m-mode w3m-delete-buffer w3m-force-window-update] 5 (#$ . 24039)]) (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-tab-track-mouse funcall function #[0 "\300\207" [t] 1] "Say whether to make the mouse track the selected tab.\nIt controls the behavior of the commands `w3m-tab-previous-buffer',\n`w3m-tab-next-buffer', `w3m-tab-move-right', and `w3m-tab-move-left'\ninvoked by the mouse.\n\nYou may want to set this to nil if you use a proportional font for the\ntab faces. See also `w3m-tab-mouse-position-adjuster'." :group w3m :type boolean w3m-tab-mouse-position-adjuster #[0 "\300\207" [(0.5 . -4)] 1] "Values used to adjust the mouse position on tabs.\nIt is used when the command `w3m-tab-previous-buffer',\n`w3m-tab-next-buffer', `w3m-tab-move-right', or `w3m-tab-move-left' is\ninvoked by the mouse. The value consists of the cons of a floating\npoint number M and an integer N that are applied to calculating of the\nmouse position, which is given in pixel units, as follows:\n\n (TAB_WIDTH + M) * ORDER + N\n\nWhere TAB_WIDTH is the pixel width of a tab and ORDER is the order\nnumber in tabs. The result is rounded towards zero.\n\nNote that the calculation will always fail if you use a proportional\nfont for the tab faces. See also `w3m-tab-track-mouse'." (cons (number :tag "M") (integer :tag "N"))] 8) #@241 Make the mouse track the selected tab. EVENT is a command event. ORDER is the order number in tabs. The optional DECELERATE if it is non-nil means not to respond to too fast operation of mouse wheel. (fn EVENT ORDER &optional DECELERATE) (defalias 'w3m-tab-mouse-track-selected-tab #[770 "\205  \205 \304 \205 :\205 @9\205 @\305N\n@_\306 \307\211\211\211\211\211:\205@9\205@\310>\204H\311\312\313 @!\"\205\314 \315 \211\262A@\204[\316!\210\202J\210\317 \262\320\321\322\"r\211q\210\323\324\"\216c\210e\262`\262 \325V\203\235\326\327\322$\211\262\203\235\330\327\322$\211\262\203\235 S\262\f\202vS\262e\262\262\331\332\"\262W\203\333\332\307$\211\262\203@\334=\203\321 @\206\357\335 \202\357@\336=\203\347\337A\340\"\206\341\341_\202\357\342{!_ \\\262 \262\331\332\"\262\202\255*\210\343@\344\n\nA\\!AA#\210 \203\345\346!\210\347 \266\211\207" [w3m-use-tab w3m-tab-track-mouse w3m-tab-mouse-position-adjuster w3m-favicon-size display-graphic-p event-symbol-elements frame-char-width nil (mouse-4 mouse-5 wheel-up wheel-down) string-match "\\`mouse-" symbol-name selected-frame mouse-pixel-position select-frame-set-input-focus w3m-tab-line generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 0 text-property-any tab-separator text-property-not-all get-text-property display next-single-property-change image frame-char-height space plist-get :width 1 string-width set-mouse-pixel-position truncate sleep-for 0.1 discard-input] 18 (#$ . 25610)]) #@66 Turn N pages of emacs-w3m buffers ahead. (fn &optional N EVENT) (defalias 'w3m-tab-next-buffer #[512 "\204\301\262\302U?\2054\303=\2054\304 \305\306\307p!\\SG\"8!\210\310\311!\210\312 \210\313\307p!\"\262\207" [major-mode 1 0 w3m-mode w3m-list-buffers switch-to-buffer mod w3m-buffer-number run-hooks w3m-select-buffer-hook w3m-select-buffer-update w3m-tab-mouse-track-selected-tab] 8 (#$ . 27213) (byte-code "\302! D\207" [current-prefix-arg last-command-event prefix-numeric-value] 2)]) #@67 Turn N pages of emacs-w3m buffers behind. (fn &optional N EVENT) (defalias 'w3m-tab-previous-buffer #[512 "\300\206\301[\"\207" [w3m-tab-next-buffer 1] 5 (#$ . 27723) (byte-code "\302! D\207" [current-prefix-arg last-command-event prefix-numeric-value] 2)]) #@202 Move the current tab right-ward (ie. next, higher number). Use the prefix argument to move the tab MV-AMT positions right-ward. EVENT is an internal arg for mouse control. (fn &optional MV-AMT EVENT) (defalias 'w3m-tab-move-right #[512 "\204\301\262\302V\203\303[\"\207\302U?\205\203\304=\205\203p\305!\306 \211GS\307Z^\262\302V\205\201\310Z\"\262\311\211G\nZ\"\262\312\313!\210\211A\262\242\211\262\203j\314T\211\262\"\210\202R\314\n\\\"\210\315 \210\316\n\\\317#\266\206\207" [major-mode 1 0 w3m-tab-move-left w3m-mode w3m-buffer-number w3m-list-buffers nil last butlast rename-buffer "*w3m*<0>" w3m-buffer-set-number w3m-select-buffer-update w3m-tab-mouse-track-selected-tab t] 12 (#$ . 27994) (byte-code "\302! D\207" [current-prefix-arg last-command-event prefix-numeric-value] 2)]) (defalias 'w3m-tab-move-next 'w3m-tab-move-right) #@200 Move the current tab left-ward (ie. prior, lower number). Use the prefix argument to move the tab MV-AMT positions left-ward. EVENT is an internal arg for mouse control. (fn &optional MV-AMT EVENT) (defalias 'w3m-tab-move-left #[512 "\204\301\262\302V\203\303[\"\207\302U?\205{\304=\205{p\305!\306 \237T\307S^\262\302V\205y\310S\"\262\311\211G Z\"\262\312\313!\210\211A\262\242\211\262\203e\314S\211\262\"\210\202M\314 Z\"\210\315 \210\316 Z\317#\266\205\207" [major-mode 1 0 w3m-tab-move-right w3m-mode w3m-buffer-number w3m-list-buffers nil last butlast rename-buffer "*w3m*<0>" w3m-buffer-set-number w3m-select-buffer-update w3m-tab-mouse-track-selected-tab t] 11 (#$ . 28891) (byte-code "\302! D\207" [current-prefix-arg last-command-event prefix-numeric-value] 2)]) (defalias 'w3m-tab-move-prior 'w3m-tab-move-left) (defvar w3m-tab-map nil) (make-variable-buffer-local 'w3m-tab-map) (defvar w3m-tab-spinner-map nil) (make-variable-buffer-local 'w3m-tab-spinner-map) #@262 Make a keymap used for tab-line. The optional FORCE forces making it. It does nothing if the keymap already exists and FORCE is nil. Keymap to be made will be the one used for header-line instead of tab-line if `w3m-use-tab-line' is nil. (fn &optional FORCE) (defalias 'w3m-tab-make-keymap #[256 "\211\204\203A@@ \203\304\202\305=?\205U\306 \306 \306 \203)\307\202*\310p\311\312\313\"\314\"\315\"\316\"\317\"\320\" \321\"\n\322\" \323\" \f\324\"\325#\210\325\326\327#\210\325\330\327#\210\325\331 #\210\325\332 #\210\325\333\f#\210\325\334\f#\210\325\335\n#\210\325\336 #\210\325\337#\210\325\340#\210\325\341#\210\325\342#\210\325\343#\210\325\344#\210\325\345#\210\325\346#\210\325\347#\210\325\n#\210\325\350\351#\210\325\352#\210\325\353\322#\210\325\354\321#\210\325\355\322#\210\325\356\321#\210\325\357\323#\210\325\360\324#\210\325\361\323#\210\325\362\324#\210 ?\205S\306 \325 \363\364\"\365\366\367\370\371pD\372BBF#\266\220\207" [w3m-tab-map w3m-use-tab-line w3m-mode-map w3m-tab-spinner-map tab-line header-line make-sparse-keymap [tab-line] [header-line] #[514 "\300\301\302\303EF\207" [lambda (e) (interactive "e") e] 8 "\n\n(fn CUR FN)"] #[514 "\300\301\302\303\304D\305\306\307DE\310B\257\207" [lambda (n e) (interactive (list (prefix-numeric-value current-prefix-arg) last-command-event)) (select-window (posn-window (event-start e))) switch-to-buffer setq this-command quote (n e)] 11 "\n\n(fn CUR FN)"] w3m-tab-drag-mouse-function w3m-tab-click-mouse-function w3m-tab-double-click-mouse1-function w3m-tab-double-click-mouse2-function w3m-tab-button-menu w3m-tab-button-menu2 w3m-tab-next-buffer w3m-tab-previous-buffer w3m-tab-move-left w3m-tab-move-right define-key [down-mouse-1] ignore [down-mouse-2] [mouse-1] [mouse-2] [drag-mouse-1] [drag-mouse-2] [double-mouse-1] [double-mouse-2] [mouse-3] [wheel-up] [wheel-down] [mouse-4] [mouse-5] [C-wheel-up] [C-wheel-down] [C-mouse-4] [C-mouse-5] [double-mouse-1] w3m-goto-new-session-url [mouse-3] [mouse-4] [mouse-5] [wheel-up] [wheel-down] [C-wheel-up] [C-wheel-down] [C-mouse-4] [C-mouse-5] vconcat [mouse-2] lambda (e) (interactive "e") save-current-buffer set-buffer ((call-interactively 'w3m-process-stop))] 26 (#$ . 29914)]) #@26 The space of half width. (defvar w3m-tab-half-space (propertize " " 'display '(space :width 0.5)) (#$ . 32260)) (defvar w3m-tab-separator-map nil) (byte-code "\203A@@ \203\302\202\303=\204Y\304 \304 \305 \203$\306\202%\307#\210\305\310\311#\210\305\312\313#\210\305\314\311#\210\305\315\313#\210\305\316\317#\210\305\320\321#\210\305\322\317#\210\305\323\321#\266\302\207" [w3m-tab-separator-map w3m-use-tab-line tab-line header-line make-sparse-keymap define-key [tab-line] [header-line] [wheel-up] w3m-tab-previous-buffer [wheel-down] w3m-tab-next-buffer [mouse-4] [mouse-5] [C-wheel-up] w3m-tab-move-left [C-wheel-down] w3m-tab-move-right [C-mouse-4] [C-mouse-5]] 5) (defalias 'w3m-tab-line #[0 "p\306 \307\310\311 \312 \313@\206\310A@\206\310\\!\314 \245\\\315 @\203'\316\202(\310\\G\2051\317 \320 \203G\211\203>\321\202?\322\323\314 \245\\\202H\307 \205N\324 \325\211\211\211\211\211\211\211\211\211\211r\203\266\211A\262\242\211\262\fq\210T\262\n\203~\326\327\330 #\202\200\330 \262\n\nG\310V\203\225\331 \310H!\202\226\310]\262 = \332 !\f\f\205\252 ?\257 B\262 \202Z) @\\_V\203\325\333\245Z!]\202\327@\262\203\346\211A\262\n\242\262@\262A@\262\3168\262\3348\262\n\3358\262\3368\262\203\203\337\202.\340\202.\203%\341\202.\203-\342\202.\343C\262 \205g\203S \205g\344\345\346\347\350A\351B& \202g\205g\344\345\346\347\350\n\351& \262\203r\202\200 \203~\316\\\202\200\262\344\205\213C\352\353\354\355!V\203\262\356V\203\262\357\211\334Z\"\360P\325\361$\202\272\357\325\362$#P\347\363\364\350 \351& \344\345\347\365C\363\366\346\205\327\367\370\371\350D& EB\262\202\331\372\373\372\374\"\"\344\345\346\375\376\312 E\347\365C%P\207" [w3m-show-graphic-icons-in-tab-line w3m-process-queue w3m-add-tab-number w3m-current-process w3m-use-favicon w3m-favicon-image w3m-list-buffers 1 0 window-fringes window-width float frame-char-width frame-current-scroll-bars 2 display-images-p display-graphic-p 3.0 0.5 2.0 w3m-make-spinner-image nil format "%d.%s" w3m-current-title char-width w3m-unseen-buffer-p truncate 3 4 5 w3m-tab-selected-retrieving w3m-tab-unselected-retrieving w3m-tab-selected w3m-tab-unselected-unseen w3m-tab-unselected 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 w3m-tab-background w3m-tab-selected-background (space :width 0.5) tab-separator t apply concat nconc space :width w3m-tab-map w3m-tab-width w3m-tab-spinner-map w3m-spinner-map-help-echo w3m-tab-half-space w3m-tab-separator-map] 35]) (byte-code "\300\301\302\"\210\300\301\303\"\210\300\301\304\"\210\300\305\306\"\210\307\310\311\312\313DD\314\315\316\317\320&\207" [add-hook w3m-mode-setup-functions w3m-tab-make-keymap w3m-setup-tab-line w3m-setup-widget-faces w3m-select-buffer-hook w3m-force-window-update custom-declare-variable w3m-space-before-modeline-icon funcall function #[0 "\300\207" [#1=""] 1 #1#] "String of space character(s) to be put in front of the mode-line icon.\nIt may be better to use one or more spaces if you are using oblique or\nitalic font in the modeline." :group w3m :type string] 8) #@52 Image file used to show a spinner in the tab-line. (defvar w3m-spinner-image-file nil (#$ . 35578)) #@52 Number of frames which the spinner image contains. (defvar w3m-spinner-image-frames 3 (#$ . 35684)) #@74 Counter used to rotate spinner images. This is a buffer-local variable. (defvar w3m-spinner-image-index 0 (#$ . 35790)) (make-variable-buffer-local 'w3m-spinner-image-index) (defvar w3m-modeline-process-status-on-icon nil) (defvar w3m-modeline-image-status-on-icon nil) (defvar w3m-modeline-status-off-icon nil) (defvar w3m-modeline-ssl-image-status-on-icon nil) (defvar w3m-modeline-ssl-status-off-icon nil) #@82 Make icon images which will be displayed in the mode-line. (fn &optional FORCE) (defalias 'w3m-initialize-graphic-icons #[256 "\306\307!\204\f\306\310!\203\312\306\307!\203\311\202\312\313\314\315!\316BB\317\314\320!\321BB\322\314\323!\324BB\325\314\326!\327BBF\330\211\211\211\211\211\203\307@\262A\262@\262A@@\262A@A\262\3318\262 \203\270\203\270\204rJ\204\240\211\204|\332\333\334\"\262\335\336\337\340\330\341\342%\343\344\345\346\347& L\210\350\351\352#\210\350\351\352#\210J;\203\255\350\353J#\210\354\355EL\210\202;\353N\203;\211\353NL\210\202;)\266\330\204\323\n\204\306\356!\203 \203\357 !\203\360\361\362 \"\211\262!\203\211\363\364 \211\365\366#\210\350\305\351\352#\210\350\367\351\352#\210 \203\"\n\203\"\370 \203\" ;\203\350\305\353 #\210\371\211\207\305\353N\205-\305\353N\211\207" [w3m-toolbar-icon-preferred-image-types w3m-show-graphic-icons-in-mode-line w3m-spinner-image-file w3m-icon-directory w3m-modeline-spinner-map w3m-modeline-process-status-on image-type-available-p xpm png (xpm) (png) w3m-modeline-status-off-icon w3m-find-image "state-00" (w3m-modeline-status-off) w3m-modeline-image-status-on-icon "state-01" (w3m-modeline-image-status-on) w3m-modeline-ssl-status-off-icon "state-10" (w3m-modeline-ssl-status-off) w3m-modeline-ssl-image-status-on-icon "state-11" (w3m-modeline-ssl-image-status-on) nil 2 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 #1="" w3m-space-before-modeline-icon gif file-directory-p file-exists-p expand-file-name "spinner.gif" define-key make-sparse-keymap [mode-line mouse-2] w3m-process-stop w3m-modeline-process-status-on-icon display-images-p (#1# w3m-space-before-modeline-icon w3m-modeline-process-status-on-icon)] 19 (#$ . 36206) "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 #[0 "\205) T\211\nW\204\306\307\310\311\312\313\314\315\316 & \317\320\321\322 \323\f&\211\262\207" [w3m-spinner-image-file w3m-spinner-image-index w3m-spinner-image-frames w3m-modeline-spinner-map w3m-spinner-map-help-echo w3m-modeline-process-status-on-icon 0 create-image gif nil :ascent center :mask heuristic :index propertize " " display local-map help-echo] 10 (#$ . 38167)]) #@98 Check whether `coding-system' can encode specified region. (fn &optional FROM TO CODING-SYSTEM) (defalias 'w3m-form-coding-system-accept-region-p #[768 "\301\206e\206 d\206#\211?\206\302\303\304f\"!\207" [w3m-form-input-textarea-coding-system unencodable-char-position y-or-n-p format "\"%c\" would not be accepted. Continue? "] 8 (#$ . 38703)]) (provide 'w3m-ems)