;ELC   
;;; Compiled by amu@daemon on Thu Jan 11 15:03:34 2001
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-win.el
;;; in Emacs version 20.7.2
;;; with bytecomp version 2.56
;;; 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 "`gnus-win.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\301\302!\210\303\304\305\306\302%\207" [:group require gnus custom-declare-group gnus-windows nil "Window configuration."] 6)
#@43 *If non-nil, use the entire Emacs screen.
(custom-declare-variable 'gnus-use-full-window 't '(#$ . -766) :group 'gnus-windows :type 'boolean)
#@54 Obsolete variable.  See `gnus-buffer-configuration'.
(defvar gnus-window-configuration nil (#$ . 914))
#@33 *Minimum width of Gnus buffers.
(custom-declare-variable 'gnus-window-min-width '2 '(#$ . -1023) :group 'gnus-windows :type 'integer)
#@34 *Minimum height of Gnus buffers.
(custom-declare-variable 'gnus-window-min-height '1 '(#$ . -1163) :group 'gnus-windows :type 'integer)
#@59 *If non-nil, always force the Gnus window configurations.
(custom-declare-variable 'gnus-always-force-window-configuration 'nil '(#$ . -1305) :group 'gnus-windows :type 'boolean)
#@112 Window configuration for all possible Gnus buffers.
See the Gnus manual for an explanation of the syntax used.
(defvar gnus-buffer-configuration '((group (vertical 1.0 (group 1.0 point) (if gnus-carpal '(group-carpal 4)))) (summary (vertical 1.0 (summary 1.0 point) (if gnus-carpal '(summary-carpal 4)))) (article (cond ((and gnus-use-picons (eq gnus-picons-display-where 'picons)) '(frame 1.0 (vertical 1.0 (summary 0.25 point) (if gnus-carpal '(summary-carpal 4)) (article 1.0)) (vertical ((height . 5) (width . 15) (user-position . t) (left . -1) (top . 1)) (picons 1.0)))) (gnus-use-trees '(vertical 1.0 (summary 0.25 point) (tree 0.25) (article 1.0))) (t '(vertical 1.0 (summary 0.25 point) (if gnus-carpal '(summary-carpal 4)) (article 1.0))))) (server (vertical 1.0 (server 1.0 point) (if gnus-carpal '(server-carpal 2)))) (browse (vertical 1.0 (browse 1.0 point) (if gnus-carpal '(browse-carpal 2)))) (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))) (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))) (post (vertical 1.0 (post 1.0 point))) (reply (vertical 1.0 (article-copy 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) (if gnus-carpal '(summary-carpal 4)) ("*Shell Command Output*" 1.0))) (bug (vertical 1.0 ("*Gnus Help Bug*" 0.5) ("*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)))) (#$ . 1491))
#@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) (group-carpal . gnus-carpal-group-buffer) (summary-carpal . gnus-carpal-summary-buffer) (server-carpal . gnus-carpal-server-buffer) (browse-carpal . gnus-carpal-browse-buffer) (edit-score . gnus-score-edit-buffer) (message . gnus-message-buffer) (mail . gnus-message-buffer) (post-news . gnus-message-buffer) (faq . gnus-faq-buffer) (picons . gnus-picons-buffer-name) (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)) (#$ . 3541))
#@45 The most recently set window configuration.
(defvar gnus-current-window-configuration nil (#$ . 4508))
(byte-code "\303\300!\204 \304\300	B\303\302!\204 \304\302	B\304\207" [gnus-created-frames current-load-list gnus-window-frame-focus boundp nil] 2)
#@35 Kill all frames Gnus has created.
(defalias 'gnus-kill-gnus-frames #[nil "\205 \301@!\203 \302\303\304\217\210\211A\210\202  \207" [gnus-created-frames frame-live-p #1=#:G88872 (byte-code "\301@!\207" [gnus-created-frames delete-frame] 2) ((error))] 3 (#$ . 4771)])
(defalias 'gnus-window-configuration-element #[(list) "\203 @	\236\204 \211A\210\202  @	\236A@\207" [list gnus-window-configuration] 2])
(defalias 'gnus-windows-old-to-new #[(setting) "9\203% \306=\203 \307\202$ \310>\203 \311\202$ \312>\203# \313\202$ <\2044 	\2034 \314>\2046 \207\313=\203B \315\316!\202W \311=\203N \315\317!\202W \307=\205W \315\320!\321\322\n\"\323\324=\203i \313\202j \311\325\326\326 \327W\203\312 \n8\247\203\301 \n8\325U\204\301 \330U\203\227 \331\202\237 \332\n8!\245\f8=\203\265 \f8\333E\202\274 \f8D B T\211\202v \334\335 \237.BB\207" [setting gnus-window-configuration elem total types pbuf SelectArticle article (SelectNewsgroup SelectSubject ExpandSubject) summary (ExitNewsgroup) group (group summary article) gnus-window-configuration-element (group newsgroups ExitNewsgroup) (summary SelectNewsgroup SelectSubject ExpandSubject) (article SelectArticle) apply + (group summary article) newsgroups 0 nil 3 2 1.0 float point vertical 1.0 i perc out] 4])
#@67 Add the window configuration CONF to `gnus-buffer-configuration'.
(defalias 'gnus-add-configuration #[(conf) "\302@	\236	\"B\211\207" [conf gnus-buffer-configuration delq] 4 (#$ . 6099)])
(byte-code "\302\300!\204 \303\300	B\303\207" [gnus-frame-list current-load-list boundp nil] 2)
(defalias 'gnus-window-to-buffer-helper #[(obj) "9\204 \207\301!\203 J\207\302!\203  \207\303\207" [obj boundp fboundp nil] 2])
#@34 Split WINDOW according to SPLIT.
(defalias 'gnus-configure-frame #[(split &optional window) "\306p!\206 \307 	\204 \310	!\210\311\n!\203 \312\n\313\"\n@:\204+ \311\n@!\2033 \314\nB\315\nB\n@\236\204c \n@\2119\203H \316\f!\206W \f<\203T \f@\317=\206W \320\f!)\203c \321\n!\211\2024 \n@\nAA+\322=\203v \323 \202x \324 ,\325-.\206\204 //0\206\215 11\3132\3133\3134\3135\3136\3137\3138\n?\206\306\204\267 \326\n>\205\306	\202\306\327>\204;\203\306 \202\312 \236A\2119\204\325 \330\331\"\210\332\3339!!\211:\334\307 !=\203\355 :q\210\202\362 \335:!\210)\336\n>\203\374 	;\326\n>\205	)\202\306\337=\203\233<\204\340!C<\325\313\211\211=>\211?+GW\203\214+?\234A@\211><\204=\313><?\234\211\204[<\341>!\211C\244\210@B@\342!\204p?<\233\341>!\211\240\210\343!\210\344+?\234!\206\201==?T\211?\202%=\205\227\343\340=!!,\202\306+G\325V\203\275+\203f\312+\211A+@\313\"\2118@\236\204\3478@\2119\203\312\316\f!\206\331\f<\203\326\f@\317=\206\331\320\f!)\203\347\3218!\2118\202\2658\203\24386B\2116@A@\2117\345\232\203\n6@5\3252\2020\3467!\203\3477,_!2\20207\250\203*72\2020\330\3507\"\2102\325U\204T\322=\203G2/]2\202T\315=\203T21]26@A2\240\210-2\\-\202\2435\203x5A,-Z\240\210\202}\330\351\n\"\2106\237\2116\203\2756A\204\222	4\202\237\352	6@A@\322=#4\3446@	\"\206\25233\3104!\21046A\2116\204\2063\205\306\3103!.\207" [current-window window split gnus-window-to-buffer form type get-buffer-window selected-window select-window vectorp append nil 1.0 vertical fboundp lambda byte-code-function-p eval horizontal window-width window-height 0 point (frame horizontal vertical) error "Invalid buffer type: %s" gnus-get-buffer-create gnus-window-to-buffer-helper window-buffer switch-to-buffer frame-focus frame window-frame make-frame frame-live-p select-frame gnus-configure-frame 1.0 floatp floor "Invalid size: %s" "No 1.0 specs in %s" split-window subs len total gnus-window-min-width window-min-width gnus-window-min-height window-min-height s result new-win rest comp-subs size sub buffer buf gnus-window-frame-focus gnus-frame-list fresult params i gnus-created-frames] 6 (#$ . 6532)])
(byte-code "\302\300!\204 \303\300	B\303\207" [gnus-frame-split-p current-load-list boundp nil] 2)
(defalias 'gnus-configure-windows #[(setting &optional force) "\306!\203\n \307!\207\n\206 \310!\2119\203# \f\236A@\202$ \311\311\2045 \312\313\"\210\314!\211\203H \n\204H \315!\202\240 \211\205] \316!\205] \317\316!!)\204d \320 \210\321 \322\216\203\200 \204z \323 \210\202\207 \324 \210\202\207 \325 \210q\210*\311q\210\326!\210\205\237 \327\330!!)*\207" [setting gnus-current-window-configuration force gnus-always-force-window-configuration gnus-buffer-configuration all-visible window-configuration-p set-window-configuration gnus-windows-old-to-new nil error "No such setting in `gnus-buffer-configuration': %s" gnus-all-windows-visible-p select-window get-buffer buffer-name nnheader-init-server-buffer selected-frame ((select-frame frame)) delete-other-windows gnus-delete-windows-in-gnusey-frames gnus-remove-some-windows gnus-configure-frame select-frame window-frame split gnus-frame-split-p nntp-server-buffer buffer frame gnus-use-full-window gnus-window-frame-focus] 4])
#@67 Do a `delete-other-windows' in all frames that have Gnus windows.
(defalias 'gnus-delete-windows-in-gnusey-frames #[nil "\301 \302\303\304 \")\207" [buffers gnus-buffers mapcar #[(frame) "\302\303!\236A\304=?\205 \305!\210\306\307\310!\210	\205 \311 )\207" [frame do-delete minibuffer frame-parameters only select-frame nil walk-windows #[(window) "\303!	>\205 \304\211\207" [window buffers do-delete window-buffer t] 2] delete-other-windows] 3] frame-list] 3 (#$ . 9942)])
#@134 Say whether all buffers in SPLIT are currently visible.
In particular, the value returned will be the window that
should have point.
(defalias 'gnus-all-windows-visible-p #[(split) "C\306\307\211\211\211\211A@\211\203\323 \203\323 \310!\203) \311\307\"@:\2046 \310@!\203> \312B\313B@\236\204t @\2119\203V \314!\206h <\203d @\315=\206h \316!)\203t \317!\211\202? \320\234\203 \f\321>\204\275 \f;\203\213 \f\202\220 \f\236A\211\204\232 \322\323\f\"\210\324\325!!\211\203\270 \326	\306\"\211\203\270 \327>\203 \n\202 \307\202 \f\330=\203\306 \306\311AA\"\211\202 \306=?\205\333 .\207" [split buf win buffer type all-visible t nil vectorp append 1.0 vertical fboundp lambda byte-code-function-p eval 0 (horizontal vertical frame) error "Invalid buffer type: %s" get-buffer gnus-window-to-buffer-helper get-buffer-window point frame stack gnus-window-to-buffer form gnus-frame-split-p] 7 (#$ . 10432)])
(defalias 'gnus-window-top-edge #[(&optional window) "\301!A@\207" [window window-edges] 2])
(defalias 'gnus-remove-some-windows #[nil "\306 \307\211\211\211\212\f\211A@\211\2037 \310!\203\f \nB\311!\210\203/ \312 W\203\f \312 \202\f 	\203B \311	!\210q\210\313\314\n\".\207" [lowest lowest-buf bufs buf buffers nntp-server-buffer gnus-buffers nil get-buffer-window pop-to-buffer gnus-window-top-edge mapcar #[(b) "\301\302\"\207" [b delete-windows-on t] 3]] 5])
(provide 'gnus-win)