;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@33 Version number of this package. (defconst w3m-fb-version "1.0.0" (#$ . 87)) #@143 Frame to list buffers for in `w3m-list-buffers'. Bind this if the buffers associated with a frame other than the selected frame are required. (defvar w3m-fb-list-buffers-frame nil (#$ . 170)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313\314\315& \207" [custom-declare-group w3m-fb nil "Frame local buffers for emacs-w3m." :group w3m custom-declare-variable w3m-fb-delete-frame-kill-buffers t "If non-nil, kill W3M buffers after deleting frames." :type boolean :set #[(sym val) " L\210\303\302!\205\n\203\304\305\306\"\207\307\305\306\"\207" [sym val w3m-fb-mode boundp add-hook delete-frame-functions w3m-fb-delete-frame-buffers remove-hook] 3]] 10) #@57 List of w3m buffers associated with the selected frame. (defvar w3m-fb-buffer-list nil (#$ . 860)) #@53 Non-nil to inhibit selecting a suitable w3m buffer. (defvar w3m-fb-inhibit-buffer-selection nil (#$ . 965)) #@49 Delete W3M buffers associated with frame FRAME. (defalias 'w3m-fb-delete-frame-buffers #[(&optional frame) "\306 \307\310\n\307\211\n\205$\n@\311 !\210\nA\211\n\204\307.\207" [frame w3m-fb-list-buffers-frame buffers w3m-fb-mode w3m-fb-inhibit-buffer-selection b w3m-list-buffers nil t kill-buffer --dolist-tail--] 3 (#$ . 1079)]) #@51 Set for frame FRAME parameter PARAMETER to VALUE. (defalias 'w3m-fb-set-frame-parameter #[(frame parameter value) "\303 \nBC\"\207" [frame parameter value modify-frame-parameters] 4 (#$ . 1430)]) #@45 Add current buffer to `w3m-fb-buffer-list'. (defalias 'w3m-fb-add #[nil "\301\302\303\"\304\302\303pC\244#)\207" [val frame-parameter nil w3m-fb-buffer-list w3m-fb-set-frame-parameter] 5 (#$ . 1633)]) #@73 Remove current buffer from `w3m-fb-buffer-list'. Applies to all frames. (defalias 'w3m-fb-remove #[nil "\304=\205+\305\306 \305\211\205* @\307\n\310\"\311\n\310\312p \"#\210 A\211\204\305+\207" [major-mode val f --dolist-tail-- w3m-mode nil frame-list frame-parameter w3m-fb-buffer-list w3m-fb-set-frame-parameter delq] 7 (#$ . 1842)]) #@48 Associate all `w3m-mode' buffers with a frame. (defalias 'w3m-fb-associate #[nil "\306\211\211\307 \306\211\203V\f@\306\310 \306\311 !#\306\211\203H\f@r\312 !q\210)\313=\203A\n\312 !C\244 \312 !C\244\fA\211\204\"*\314 \315\n#\210\fA\211\204*\306\316 ) \306\211\203x\f@\317\"\fA\211\204g*\205\207\314\306\315\320\306\315\"\244#+\207" [rest done buffers f --dolist-tail-- w nil frame-list window-list frame-selected-window window-buffer w3m-mode w3m-fb-set-frame-parameter w3m-fb-buffer-list w3m-list-buffers delq frame-parameter major-mode w3m-fb-mode b] 7 (#$ . 2195)]) #@46 Disassociate `w3m-mode' buffers from frames. (defalias 'w3m-fb-dissociate #[nil "\302 \303\211\205 @\304\305\303#\210 A\211\204 \303*\207" [f --dolist-tail-- frame-list nil w3m-fb-set-frame-parameter w3m-fb-buffer-list] 5 (#$ . 2811)]) #@46 Select an appropriate W3M buffer to display. (defalias 'w3m-fb-select-buffer #[nil "\301 \203p\301 >?\205\302\303!\207\304=\205\305 \210\202\207" [major-mode w3m-list-buffers w3m-next-buffer -1 w3m-mode bury-buffer] 2 (#$ . 3061)]) #@254 Non-nil if W3m-Fb mode is enabled. See the `w3m-fb-mode' command for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `w3m-fb-mode'. (custom-declare-variable 'w3m-fb-mode nil '(#$ . 3309) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :type 'boolean :group 'w3m-fb) #@623 Toggle W3M Frame Buffer mode. This allows frame-local lists of buffers (tabs). This is a minor mode. If called interactively, toggle the `W3m-Fb mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'w3m-fb-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'w3m-fb-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203l\f\203O\313\211\317\320!\210\321\322!\210\202P\314\203l\323\324\325\"\210\323\326\327\"\210 \203f\323\330\331\"\210\332 \210\202~\333\324\325\"\210\333\326\327\"\210\333\330\331\"\210\334 \210\335\336\311\303!\203\212\337\202\213\340\"\210\341\342!\203\270\343\303!\210\306 \203\243\306 \232\203\270\344)\317\345\311\303!\203\262\346\202\263\347)#\210))\350 \210\311\303!\207" [#1=#:last-message arg global-minor-modes w3m-fb-mode w3m-pop-up-frames w3m-fb-delete-frame-kill-buffers current-message set-default toggle default-value 1 nil t boundp delq message "W3M Frame Buffer mode not activated (Hint: `M-x w3m-display-mode')." sit-for 2 add-hook w3m-mode-hook w3m-fb-add kill-buffer-hook w3m-fb-remove delete-frame-functions w3m-fb-delete-frame-buffers w3m-fb-associate remove-hook w3m-fb-dissociate run-hooks w3m-fb-mode-hook w3m-fb-mode-on-hook w3m-fb-mode-off-hook called-interactively-p any customize-mark-as-set "" "W3m-Fb mode %sabled%s" "en" "dis" force-mode-line-update local] 4 (#$ . 3722) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar w3m-fb-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [w3m-fb-mode-map w3m-fb-mode-hook variable-documentation put "Hook run after entering or leaving `w3m-fb-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode w3m-fb-mode boundp provide w3m-fb] 6)