;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\320\324\325&\210\311\326\313\314\327DD\330\317\331%\210\311\332\313\314\333DD\334\317\331%\210\311\335\313\314\336DD\337\317\320%\210\311\340\313\314\341DD\342\324\343\317\320&\207" [require gnus gnus-util seq custom-declare-group gnus-windows nil "Window configuration." :group custom-declare-variable gnus-use-full-window funcall function #[0 "\300\207" [t] 1 #1=""] "If non-nil, use the entire Emacs screen." :type boolean gnus-use-atomic-windows #[0 "\300\207" [nil] 1 #1#] "If non-nil, Gnus' window compositions will be atomic." :version "27.1" gnus-window-min-width #[0 "\300\207" [2] 1 #1#] "Minimum width of Gnus buffers." integer gnus-window-min-height #[0 "\300\207" [1] 1 #1#] "Minimum height of Gnus buffers." gnus-always-force-window-configuration #[0 "\300\207" [nil] 1 #1#] "If non-nil, always force the Gnus window configurations." gnus-use-frames-on-any-display #[0 "\300\207" [nil] 1 #1#] "If non-nil, frames on all displays will be considered usable by Gnus.\nWhen nil, only frames on the same display as the selected frame will be\nused to display Gnus windows." "22.1"] 8) #@112 Window configuration for all possible Gnus buffers. See the Gnus manual for an explanation of the syntax used. (defvar gnus-buffer-configuration (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330BFD\331BBBBBBBBBBBBBBBBBBBB\207" [shell-command-buffer-name (group (vertical 1.0 (group 1.0 point))) (summary (vertical 1.0 (summary 1.0 point))) (article (cond (gnus-use-trees '(vertical 1.0 (summary 0.25 point) (tree 0.25) (article 1.0))) (t '(vertical 1.0 (summary 0.25 point) (article 1.0))))) (server (vertical 1.0 (server 1.0 point))) (browse (vertical 1.0 (browse 1.0 point))) (message (vertical 1.0 (message 1.0 point))) (pick (vertical 1.0 (article 1.0 point))) (info (vertical 1.0 (info 1.0 point))) (summary-faq (vertical 1.0 (summary 0.25) (faq 1.0 point))) (only-article (vertical 1.0 (article 1.0 point))) (edit-article (vertical 1.0 (article 1.0 point))) (edit-form (vertical 1.0 (group 0.5) (edit-form 1.0 point))) (edit-score (vertical 1.0 (summary 0.25) (edit-score 1.0 point))) (edit-server (vertical 1.0 (server 0.5) (edit-form 1.0 point))) (post (vertical 1.0 (post 1.0 point))) (reply (vertical 1.0 (article 0.5) (message 1.0 point))) (forward (vertical 1.0 (message 1.0 point))) (reply-yank (vertical 1.0 (message 1.0 point))) (mail-bounce (vertical 1.0 (article 0.5) (message 1.0 point))) pipe vertical 1.0 (summary 0.25 point) (1.0) ((bug (vertical 1.0 ("*Gnus Bug*" 1.0 point))) (score-trace (vertical 1.0 (summary 0.5 point) ("*Score Trace*" 1.0))) (score-words (vertical 1.0 (summary 0.5 point) ("*Score Words*" 1.0))) (split-trace (vertical 1.0 (summary 0.5 point) ("*Split Trace*" 1.0))) (category (vertical 1.0 (category 1.0))) (compose-bounce (vertical 1.0 (article 0.5) (message 1.0 point))) (display-term (vertical 1.0 ("*display*" 1.0))) (mml-preview (vertical 1.0 (message 0.5) (mml-preview 1.0 point))))] 25) (#$ . 1331)) #@65 Mapping from short symbols to buffer names or buffer variables. (defvar gnus-window-to-buffer '((group . gnus-group-buffer) (summary . gnus-summary-buffer) (article . gnus-article-buffer) (server . gnus-server-buffer) (browse . "*Gnus Browse Server*") (edit-group . gnus-group-edit-buffer) (edit-form . gnus-edit-form-buffer) (edit-server . gnus-server-edit-buffer) (edit-score . gnus-score-edit-buffer) (message . gnus-message-buffer) (mail . gnus-message-buffer) (post-news . gnus-message-buffer) (faq . gnus-faq-buffer) (tree . gnus-tree-buffer) (score-trace . "*Score Trace*") (split-trace . "*Split Trace*") (info . gnus-info-buffer) (category . gnus-category-buffer) (article-copy . gnus-article-copy) (draft . gnus-draft-buffer) (mml-preview . mml-preview-buffer)) (#$ . 3250)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-configure-windows-hook funcall function #[0 "\300\207" [nil] 1 ""] "A hook called when configuring windows." :version "22.1" :type hook] 8) #@45 The most recently set window configuration. (defvar gnus-current-window-configuration nil (#$ . 4273)) (defvar gnus-created-frames nil) (defvar gnus-window-frame-focus nil) #@35 Kill all frames Gnus has created. (defalias 'gnus-kill-gnus-frames #[0 "\205#\301@!\203\3021\303@!0\210\202\210\210A\211\204\304\207" [gnus-created-frames frame-live-p (error) delete-frame nil] 3 (#$ . 4452)]) #@78 Add the window configuration CONF to `gnus-buffer-configuration'. (fn CONF) (defalias 'gnus-add-configuration #[257 "\211\301@\236\"B\211\207" [gnus-buffer-configuration delq] 5 (#$ . 4683)]) (defvar gnus-frame-list nil) #@12 (fn OBJ) (defalias 'gnus-window-to-buffer-helper #[257 "\2119\204\207\300!\203\211J\207\301!\203\211 \207\302\207" [boundp fboundp nil] 3 (#$ . 4915)]) #@63 Split WINDOW according to SPLIT. (fn SPLIT &optional WINDOW) (defalias 'gnus-configure-frame #[513 "\306p!\206\307 \206 \211\310!\210@\236\204.@9\203.\311@!\203.\312\313\"\262\202@AA\314=\203>\315 \202@\316 \317 \206F\n \206L\f\320\211\211\211\211\211\211?\206`\n\204k\321>\205` \202`\n\322>\204\323\n;\203}\n\202\202\n\236A\211\204\214\323\324 \"\210\325\326!!\327!\203\272\211\330\307 !=\203\247\211q\266\202\273\331 \313=\203\266\332!\266\202\273\333!\210\210\334>\203\305\f\321>\205\316\f\262\202`\n\335=\203T,\204\346\336 !C,\317\320\211\211GW\203F \234A@\262<\204\320\262,\234\211\262\204,\337!\211\262C\244\210-B-\340!\204/,\233\337!\211\262\240\210\341!\210\342\234!\206=\211\262T\262\202\352\211\205O\341\336!!\266\204\202` G\317V\203U \203\370\343\n\211A\262\f\242\320\"\262\211@\236\204\212\211@9\203\212\311@!\203\212\312\313\"\262\202m\211\203\\\211B\262@A@\262\344\232\203\251@\262\317\262\202\312\345!\203\272\346\n_!\262\202\312\250\203\305\262\202\312\323\347\"\210\317U\204\347\n\350\267\202\347\n]\262\202\347\f]\262@A\240\210\\\262\202\\\203A  Z\240\210\202\323\351\"\210\237\262\203UA\204  \202,\352\f@A@ \314=#\262\342@ \"\2068\262\353!\204G\307 \262\f\202N\310!\210\262\fA\262\202\353!\205`\310!*\207" [gnus-window-to-buffer gnus-window-min-width window-min-width gnus-window-min-height window-min-height gnus-window-frame-focus get-buffer-window selected-window select-window fboundp eval t horizontal window-width window-height 0 nil point (frame horizontal vertical) error "Invalid buffer type: %s" gnus-get-buffer-create gnus-window-to-buffer-helper buffer-live-p window-buffer window-dedicated-p pop-to-buffer pop-to-buffer-same-window frame-focus frame window-frame make-frame frame-live-p select-frame gnus-configure-frame append 1.0 floatp floor "Invalid size: %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (horizontal 472 vertical 481)) "No 1.0 specs in %s" split-window window-live-p gnus-frame-list gnus-created-frames] 22 (#$ . 5083)]) (defvar gnus-frame-split-p nil) #@32 (fn SETTING &optional FORCE) (defalias 'gnus-configure-windows #[513 "?\206\276\306!\203\307!\207\211\206 \2629\203%\n\236A@\202&\310\211\2042\311\312\"\210\313!\211\262\203C\204C\314!\207\f\211\205T\315\316!\211\262!\205T\211\262\204\\\317 \210\320\310\321\"\203l\322 \323\324\325#\266\326 \327\330\"\216 \203\207 \204\201\331 \210\202\215\332 \210\202\215\333 \210\fq\210)\210\310$\fq\210\334!\210\335\336!\210%\203\260\337\340 !\203\260\341\337\340 !!\210$\205\273\342\343$!!)\266\202\207" [gnus-current-window-configuration gnus-always-force-window-configuration gnus-buffer-configuration gnus-frame-split-p nntp-server-buffer gnus-use-full-window window-configuration-p set-window-configuration nil error "No such setting in `gnus-buffer-configuration': %s" gnus-all-windows-visible-p select-window buffer-live-p get-buffer nnheader-init-server-buffer window-parameter window-atom window-atom-root walk-window-subtree #[257 "\300\301\302#\207" [set-window-parameter window-atom nil] 5 "\n\n(fn WIN)"] t selected-frame make-closure #[0 "\301\300!\207" [V0 select-frame] 2] delete-other-windows gnus-delete-windows-in-gnusey-frames gnus-remove-some-windows gnus-configure-frame run-hooks gnus-configure-windows-hook window-parent selected-window window-make-atom select-frame-set-input-focus window-frame gnus-window-frame-focus gnus-use-atomic-windows] 9 (#$ . 7348)]) #@67 Do a `delete-other-windows' in all frames that have Gnus windows. (defalias 'gnus-delete-windows-in-gnusey-frames #[0 "\300 \301 \211\205*\211@\302\303\"\304=\204#\305!\210\306\307\310\"!\203#\311 \210A\266\202\202\207" [gnus-buffers frame-list frame-parameter minibuffer only select-frame get-window-with-predicate make-closure #[257 "\301!\300>\207" [V0 window-buffer] 3 "\n\n(fn WINDOW)"] delete-other-windows] 7 (#$ . 8778)]) #@146 Say whether all buffers in SPLIT are currently visible. In particular, the value returned will be the window that should have point. (fn SPLIT) (defalias 'gnus-all-windows-visible-p #[257 "\211C\302\303\211\211\211\211A\262\242\211\262\203\267\203\267@:\203*\304B\262\305B\262@\236\204K@9\203K\306@!\203K\307\302\"\262\202*\310\234\262\203\311>\204\242;\203e\202i\236A\262\204t\312\313\"\210\314\315!!\211\262\203\234\316!\203\234\317\302\"\211\262\203\234\320>\203\262\202\303\262\202\321=\203\252\302\322AA\"\262\202\302=?\205\277\207" [gnus-window-to-buffer gnus-frame-split-p t nil 1.0 vertical fboundp eval 0 (horizontal vertical frame) error "Invalid buffer type: %s" get-buffer gnus-window-to-buffer-helper buffer-live-p gnus-get-buffer-window point frame append] 10 (#$ . 9225)]) #@61 Return the top coordinate of WINDOW. (fn &optional WINDOW) (defalias 'gnus-window-top-edge #[256 "\300!A@\207" [window-edges] 3 (#$ . 10100)]) (defalias 'gnus-remove-some-windows #[0 "\301\211\211\212\302 \211\2034\211@\303!\203-\211B\262\304!\210\203&\305 W\203-\305 \262\211\262A\266\202\202\210\203@\304!\210q\210\306\"\211\205V\211@\307\310\"\210A\266\202\202D\262)\207" [nntp-server-buffer nil gnus-buffers get-buffer-window pop-to-buffer gnus-window-top-edge delq delete-windows-on t] 8]) #@166 Return a window currently displaying BUFFER, or nil if none. Like `get-buffer-window', but respecting `gnus-use-frames-on-any-display'. (fn BUFFER &optional FRAME) (defalias 'gnus-get-buffer-window #[513 "\204\211\301>\203\302 \303\304\305\"\306\307#\"\207\310\"\207" [gnus-use-frames-on-any-display (t 0 visible) frames-on-display-list seq-find make-closure #[257 "\301!\300>\207" [V0 window-frame] 3 "\n\n(fn WIN)"] get-buffer-window-list nil get-buffer-window] 9 (#$ . 10630)]) (provide 'gnus-win)