;ELC   
;;; compiled by amu@mit.edu on Sat Sep 13 16:20:07 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-win.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (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 "ÀÁ!ˆÂÃÄÅÁ%ˆÇÈÉÊÃÌ&‡" [require gnus custom-declare-group gnus-windows nil "Window configuration." :group custom-declare-variable gnus-use-full-window t "*If non-nil, use the entire Emacs screen." :type boolean] 8)
#@54 Obsolete variable.  See `gnus-buffer-configuration'.
(defvar gnus-window-configuration nil (#$ . 726))
(byte-code "ÀÁÂÃ\fÅÇ&ˆÀÈÉÊ\fÅÇ&ˆÀËÌÍ\fÅÎ&‡" [custom-declare-variable gnus-window-min-width 2 "*Minimum width of Gnus buffers." :group gnus-windows :type integer gnus-window-min-height 1 "*Minimum height of Gnus buffers." gnus-always-force-window-configuration nil "*If non-nil, always force the Gnus window configurations." boolean] 8)
#@112 Window configuration for all possible Gnus buffers.
See the Gnus manual for an explanation of the syntax used.
(defvar gnus-buffer-configuration (quote ((group (vertical 1.0 (group 1.0 point) (if gnus-carpal (quote (group-carpal 4))))) (summary (vertical 1.0 (summary 1.0 point) (if gnus-carpal (quote (summary-carpal 4))))) (article (cond ((and gnus-use-picons (eq gnus-picons-display-where (quote picons))) (quote (frame 1.0 (vertical 1.0 (summary 0.25 point) (if gnus-carpal (quote (summary-carpal 4))) (article 1.0)) (vertical ((height . 5) (width . 15) (user-position . t) (left . -1) (top . 1)) (picons 1.0))))) (gnus-use-trees (quote (vertical 1.0 (summary 0.25 point) (tree 0.25) (article 1.0)))) (t (quote (vertical 1.0 (summary 0.25 point) (if gnus-carpal (quote (summary-carpal 4))) (article 1.0)))))) (server (vertical 1.0 (server 1.0 point) (if gnus-carpal (quote (server-carpal 2))))) (browse (vertical 1.0 (browse 1.0 point) (if gnus-carpal (quote (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))) (draft (vertical 1.0 (draft 1.0 point))) (pipe (vertical 1.0 (summary 0.25 point) (if gnus-carpal (quote (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))) (compose-bounce (vertical 1.0 (article 0.5) (message 1.0 point))))) (#$ . 1181))
#@65 Mapping from short symbols to buffer names or buffer variables.
(defvar gnus-window-to-buffer (quote ((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 . "*Picons*") (tree . gnus-tree-buffer) (score-trace . "*Score Trace*") (info . gnus-info-buffer) (article-copy . gnus-article-copy) (draft . gnus-draft-buffer))) (#$ . 3244))
#@45 The most recently set window configuration.
(defvar gnus-current-window-configuration nil (#$ . 4139))
(byte-code "ÀÁ!„ ÂÁBÂ‡" [boundp gnus-created-frames nil current-load-list] 2)
#@35 Kill all frames Gnus has created.
(defalias 'gnus-kill-gnus-frames #[nil "… Á@!ƒ ÂÃÄ�ˆ‰Aˆ‚  ‡" [gnus-created-frames frame-live-p G77702 (byte-code "À	@!‡" [delete-frame gnus-created-frames] 2) ((error))] 3 (#$ . 4330)])
(defalias 'gnus-window-configuration-element #[(list) "ƒ @	ž„ ‰Aˆ‚  @	žA@‡" [list gnus-window-configuration] 2])
(defalias 'gnus-windows-old-to-new #[(setting) "9ƒ% Á=ƒ Â‚$ Ã>ƒ Ä‚$ Å>ƒ# Æ‚$ <„5 ƒ5 È>„7 ‡Æ=ƒC ÉÊ!‚X Ä=ƒO ÉË!‚X Â=…X ÉÌ!ÎÏ\"ÑÓ=ƒn Æ‚o ÄÕ××ÚWƒØ 8§ƒÏ 8ÕU„Ï ÛUƒŸ Ü‚© Ý8!¥8=ƒÂ 8ÞE‚Ê 8DBT‰‚| ßàŸ.BB‡" [setting SelectArticle article (SelectNewsgroup SelectSubject ExpandSubject) summary (ExitNewsgroup) group gnus-window-configuration (group summary article) gnus-window-configuration-element (group newsgroups ExitNewsgroup) (summary SelectNewsgroup SelectSubject ExpandSubject) (article SelectArticle) elem apply + total (group summary article) types newsgroups pbuf 0 i nil perc out 3 2 1.0 float point vertical 1.0] 4])
#@67 Add the window configuration CONF to `gnus-buffer-configuration'.
(defalias 'gnus-add-configuration #[(conf) "Á@\nž\n\"B‰‡" [conf delq gnus-buffer-configuration] 4 (#$ . 5381)])
(byte-code "ÀÁ!„ ÂÁBÂ‡" [boundp gnus-frame-list nil current-load-list] 2)
#@34 Split WINDOW according to SPLIT.
(defalias 'gnus-configure-frame #[(split &optional window) "„ Áp!Â!ˆÃ\f!ƒ Å\fÆ\"\f@:„$ Ã\f@!ƒ, Ç\fBÈ\fB\f@	ž„b \f@‰\n9ƒD Ë\n!†V \n<ƒR \n@Ì=†V Í\n!)ƒb Î\f!‰‚- \f@\fAAÑ=ƒw Ò ‚y Ó Õ†… †Ž ÆÆÆÆÆÆ Æ!\f?†ã„¹ â\f>…ã‚ãã>„;ƒË ‚Ñ 	žAÆ$‰%„à æç\"ˆè%9ƒí %J‚ï %!‰$„é%9ƒ%J‚%!$ê$!ˆâ\f>…*‚ãë=ƒ¯,„,íÁp!!C,ÕÆ‰‰.+/‰0GWƒ 0œA@‰/<„QÆ/,0œ‰+„o,ñ/!‰+C¤ˆ+2B2ó+!„„0,›ñ/!‰+ ˆô+!ˆõ0œ!†•..0T‰0‚9.…«ôí.!!,‚ãGÕVƒÚƒ‚Å‰A@Æ\"‰!@	ž„!@‰\n9ƒáË\n!†ó\n<ƒï\n@Ì=†óÍ\n!)ƒÎ!!‰!‚É!ƒ·!B‰@A@‰ öšƒ$@Õ‚J÷ !ƒ7ø _!‚J ¨ƒD ‚Jæù \"ˆÕU„pÑ=ƒb]‚pÈ=ƒp]@A ˆ\\‚·ƒ”AZ ˆ‚™æú\f\"ˆŸ‰ƒÚA„®‚¼û@A@Ñ=#õ@\"†ÇÂ!ˆA‰„¢…ãÂ!.‡" [window get-buffer-window select-window vectorp split append nil 1.0 vertical gnus-window-to-buffer form fboundp lambda compiled-function-p eval type subs horizontal window-width window-height len 0 total gnus-window-min-width window-min-width gnus-window-min-height window-min-height s result new-win rest comp-subs size sub point (frame horizontal vertical) buf buffer error "Illegal buffer type: %s" get-buffer get-buffer-create switch-to-buffer frame gnus-frame-list window-frame fresult params i make-frame gnus-created-frames frame-live-p select-frame gnus-configure-frame 1.0 floatp floor "Illegal size: %s" "No 1.0 specs in %s" split-window] 6 (#$ . 5646)])
(byte-code "ÀÁ!„ ÂÁBÂ‡" [boundp gnus-frame-split-p nil current-load-list] 2)
(defalias 'gnus-configure-windows #[(setting &optional force) "\n† Ä!‰9ƒ žA@‚ ÆÆ	„, ÊË\"ˆÌ!‰ƒA \n„A Í!‚r Î ÐŽƒ] 	„W Ò ˆ‚e Ó ˆ‚e Ô ˆÕ!ˆ*Õ!ˆ×Øp!\"*‡" [setting gnus-current-window-configuration force gnus-always-force-window-configuration gnus-windows-old-to-new gnus-buffer-configuration nil all-visible split gnus-frame-split-p error "No such setting: %s" gnus-all-windows-visible-p select-window selected-frame frame ((select-frame frame)) gnus-use-full-window delete-other-windows gnus-delete-windows-in-gnusey-frames gnus-remove-some-windows switch-to-buffer nntp-server-buffer gnus-configure-frame get-buffer-window] 5])
#@67 Do a `delete-other-windows' in all frames that have Gnus windows.
(defalias 'gnus-delete-windows-in-gnusey-frames #[nil "ÀÁ\n\"ÀÄÅ \")‡" [mapcar #[(elem) "A9ƒ ÁA!… AJ…\" ÂAJ!‡A…\" ÂA!‡" [elem boundp get-buffer] 2] gnus-window-to-buffer buffers #[(frame) "ÀÁ\n!žAÃ=?… Ä\n!ˆÅÇÈ!ˆ… É )‡" [minibuffer frame-parameters frame only select-frame nil do-delete walk-windows #[(window) "À	!\n>… Ã‰‡" [window-buffer window buffers t do-delete] 2] delete-other-windows] 3] frame-list] 3 (#$ . 7929)])
#@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ÁÂ‰‰‰‰A@‰ƒç ƒç É!ƒ, ÊÂ\"@:„9 É@!ƒA ËBÌB@ž„w @‰9ƒY Ï!†k <ƒg @Ð=†k Ñ!)ƒw Ò!‰‚B Óœƒ Ô>„Ð ;ƒ’ ‚˜ žA‰„£ ÕÖ\"ˆ×9ƒ® J‚¯ !‰ƒº ØÁ\"\fƒÊ Ù>ƒ \f‚ Â‚ Ú=ƒÚ ÁÊAA\"‰‚ Á=?…ñ .‡" [split t nil buf win buffer type all-visible stack vectorp append 1.0 vertical gnus-window-to-buffer form fboundp lambda compiled-function-p eval 0 (horizontal vertical frame) error "Illegal buffer type: %s" get-buffer get-buffer-window point frame gnus-frame-split-p] 7 (#$ . 8442)])
(defalias 'gnus-window-top-edge #[(&optional window) "À	!A@‡" [window-edges window] 2])
(defalias 'gnus-remove-some-windows #[nil "Á‰‰‰ŠƒO @A‰9ƒ$ Ç!…# JƒF È!ƒF \fBÉ!ˆ\nƒA Ê \nWƒF Ê A‰„ ËÌ!ˆƒ` É!ˆÍ!ˆ\f…x \f@=„p Ï\f@!ˆ\fA‰„d Á.‡" [gnus-window-to-buffer nil lowest lowest-buf bufs buf buffers boundp get-buffer-window pop-to-buffer gnus-window-top-edge walk-windows #[(win) "À	!ÃÄÅ\n!\"…, \nBÇ\n!ˆƒ$ É W…, \n\nÉ ‰)‡" [window-buffer win buf string-match "^\\*Summary" buffer-name bufs pop-to-buffer lowest gnus-window-top-edge lowest-buf] 4] switch-to-buffer nntp-server-buffer delete-windows-on] 6])
(provide (quote gnus-win))
