;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:14 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-win.el ;;; emacs version 19.34.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 (#$ . 730)) (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))) (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))) (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))))) (#$ . 1185)) #@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 . 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))) (#$ . 3319)) #@45 The most recently set window configuration. (defvar gnus-current-window-configuration nil (#$ . 4293)) (byte-code "! B! B‡" [boundp gnus-created-frames nil current-load-list gnus-window-frame-focus] 2) #@35 Kill all frames Gnus has created. (defalias 'gnus-kill-gnus-frames #[nil "@!ďA" [gnus-created-frames frame-live-p G99217 (byte-code " @!" [delete-frame gnus-created-frames] 2) ((error))] 3 (#$ . 4520)]) (defalias 'gnus-window-configuration-element #[(list) "@ A@ A@" [list gnus-window-configuration] 2]) (defalias 'gnus-windows-old-to-new #[(setting) "9%=‚$>Ă$>#Ƃ$<55>7=C!X=O!X=X!  \"=nƂoW 8 8UU܂ 8!8=8E8DBT|.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 (#$ . 5571)]) (byte-code "! B‡" [boundp gnus-frame-list nil current-load-list] 2) (defalias 'gnus-window-to-buffer-helper #[(obj) "9!J! Ç" [obj boundp fboundp nil] 2]) #@34 Split WINDOW according to SPLIT. (defalias 'gnus-configure-frame #[(split &optional window) "p!!\f!\f\"\f@:$\f@!,\fB\fB\f@ b\f@\n9D\n!V\n>; A$\"$!!!\f>+\f>)=-p!!C-Ɖ/,01GW1A@0<30-1,Q-0!,C,3B3,!f1-0!,,!1!w//1T1//!!,GVdA@\"!@ !@\n9\n!\n<\n@=\n!)!!!!!B@A@ @, ! _!, & , \"UR=D]R=R]@A\\vAZ{\f\"A@A@=#@\"!A!. " [window get-buffer-window select-window vectorp split append nil 1.0 vertical gnus-window-to-buffer form fboundp lambda byte-code-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) buffer error "Illegal buffer type: %s" switch-to-buffer gnus-get-buffer-create gnus-window-to-buffer-helper frame-focus gnus-window-frame-focus 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 (#$ . 5943)]) (byte-code "! B‡" [boundp gnus-frame-split-p nil current-load-list] 2) (defalias 'gnus-configure-windows #[(setting &optional force) "\n !9 A@ ,\"!A\nA! Ў] 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-window-frame-focus gnus-configure-frame get-buffer-window select-frame window-frame] 5]) #@67 Do a `delete-other-windows' in all frames that have Gnus windows. (defalias 'gnus-delete-windows-in-gnusey-frames #[nil "  \")" [gnus-buffers buffers mapcar #[(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 (#$ . 8319)]) #@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@!ABB@ w@9Y!k; A\" !! \">\f=AA\"=?." [split t nil buf win buffer type all-visible stack vectorp append 1.0 vertical gnus-window-to-buffer form fboundp lambda byte-code-function-p eval 0 (horizontal vertical frame) error "Illegal buffer type: %s" get-buffer gnus-window-to-buffer-helper get-buffer-window point frame gnus-frame-split-p] 7 (#$ . 8742)]) (defalias 'gnus-window-top-edge #[(&optional window) " !A@" [window-edges window] 2]) (defalias 'gnus-remove-some-windows #[nil " A@: ! \fB !\n2 \nW   G ! !\f\"." [gnus-buffers nil lowest lowest-buf bufs buf buffers get-buffer-window pop-to-buffer gnus-window-top-edge switch-to-buffer nntp-server-buffer mapcar #[(b) " \"" [delete-windows-on b t] 3]] 5]) (provide (quote gnus-win))