HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/gnus/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/gnus/gnus-win.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\307\304\314\315&\210\310\316\317\320\307\304\314\321&\210\310\322\323\324\307\304\314\321&\210\310\325\305\326\307\304\314\315&\210\310\327\305\330\331\332\307\304\314\315&	\207" [require gnus gnus-util 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 gnus-window-min-width 2 "Minimum width of Gnus buffers." integer gnus-window-min-height 1 "Minimum height of Gnus buffers." gnus-always-force-window-configuration "If non-nil, always force the Gnus window configurations." gnus-use-frames-on-any-display "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." :version "22.1"] 10)
#@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))) (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) ("*Shell Command Output*" 1.0))) (bug (vertical 1.0 (if gnus-bug-create-help-buffer '("*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))) (display-term (vertical 1.0 ("*display*" 1.0))) (mml-preview (vertical 1.0 (message 0.5) (mml-preview 1.0 point)))) (#$ . 1323))
#@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)) (#$ . 3156))
#@41 A hook called when configuring windows.
(custom-declare-variable 'gnus-configure-windows-hook nil '(#$ . 3947) :version "22.1" :group 'gnus-windows :type 'hook)
#@45 The most recently set window configuration.
(defvar gnus-current-window-configuration nil (#$ . 4114))
(defvar gnus-created-frames nil)
(defvar gnus-window-frame-focus nil)
#@35 Kill all frames Gnus has created.
(defalias 'gnus-kill-gnus-frames #[nil "\205$\301@!\203\3021\303@!0\202\210\202\210\211A\210\202\207" [gnus-created-frames frame-live-p (error) delete-frame] 2 (#$ . 4293)])
#@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 (#$ . 4523)])
(defvar gnus-frame-list nil)
(defalias 'gnus-window-to-buffer-helper #[(obj) "9\204\207\301!\203J\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 	\206\310	!\210\n@\236\204/\n@9\203/\311\n@!\203/\312\n!\211\202\n@\nAA\f\313=\203A\314 \202C\315 +\316,-\206O../\206X00\317\21112\317\21134\317\21156\3177\n?\206\206\f\204\202\320\n>\205\206	\202\206\f\321>\204\351\f;\203\221\f\202\225\f\236A\2118\204\240\322\323\f\"\210\324\3258!!9\3269!\203\3249\327\307 !=\203\3009q\210\202\324\330 \331=\203\317\3329!\210\202\324\3339!\210)\334\n>\203\336	:\320\n>\205\345	)\202\206\f\335=\203z;\204\372\336!C;\316\317\211\211<=\211>
GW\203k
>\234A@\211=<\204\317=;>\234\211\204;;\337=!\211C\244\210?B?\340!\204P>;\233\337=!\211\240\210\341!\210\342
>\234!\206`<<>T\211>\202<\205v\341\336<!!,\202\206
G\316V\203}
\203(\343
\211A\242\317\"\2117@\236\204\2577@9\203\257\3117@!\203\257\3127!\2117\202\2207\203\20175B\2115@A@\2116\344\232\203\3225@4\3161\202\370\3456!\203\345\3466+_!1\202\3706\250\203\36261\202\370\322\3476\"\2101\316U\204\f\350\267\2021.]1\20210]15@A1\240\210,1\\,\202\2014\203:4A+,Z\240\210\202?\322\351\n\"\2105\237\2115\203}5A\204R	\202]\352	5@A@\f\313=#3\3425@	\"\206j22\3103!\21035A\2115\204H2\205\206\3102!.\207" [current-window window split gnus-window-to-buffer type subs get-buffer-window selected-window select-window fboundp eval 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-name window-buffer window-dedicated-p t pop-to-buffer switch-to-buffer 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 517 vertical 527)) "No 1.0 specs in %s" split-window 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 (#$ . 4886)])
(defvar gnus-frame-split-p nil)
(defalias 'gnus-configure-windows #[(setting &optional force) "?\206\237\306!\203\307!\207\n\2069\203$\f\236A@\202%\310\310\2046\311\312\"\210\313!\211\203I\n\204I\314
!\202\236\211\205W\315\316!!)\204^\317 \210\320 \321\216\203z\204t\322 \210\202\201\323 \210\202\201\324 \210q\210*\310 q\210\325!\210\326\327!\210 \205\235\330\331 !!)*\207" [setting gnus-current-window-configuration force gnus-always-force-window-configuration gnus-buffer-configuration all-visible 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 selected-frame #[nil "\301!\207" [frame 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 select-frame-set-input-focus 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 (#$ . 8264)])
#@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\242\211\203\256
\203\256@:\203,\310B\311B@\236\204I@9\203I\312@!\203I\313!\211\202-\314\234\203\f\315>\204\230\f;\203`\f\202e\f\236A\211\204o\316\317\f\"\210\320\321!!\211\203\223\322	!\203\223\323	\306\"\211\203\223\324>\203\n\202\307\202\f\325=\203\241\306\326AA\"\211\202
\306=?\205\266
.\207" [split buf win buffer type all-visible 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 stack gnus-window-to-buffer gnus-frame-split-p] 7 (#$ . 8754)])
#@38 Return the top coordinate of WINDOW.
(defalias 'gnus-window-top-edge #[(&optional window) "\301!A@\207" [window window-edges] 2 (#$ . 9630)])
(defalias 'gnus-remove-some-windows #[nil "\306 \307\211\211\211\212\f\211A\242\211\2037\310!\203\f\nB\311!\210\203/\312 W\203\f\312 \202\f	\203B\311	!\210
q\210\313\314\315	\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] delq] 5])
(defalias 'gnus-get-buffer-window #[(buffer &optional frame) "\204	\304>\203\305 \306\307\310\311	#\")@\207\312	\"\207" [gnus-use-frames-on-any-display frame frames buffer (t 0 visible) frames-on-display-list gnus-remove-if #[(win) "\302!	>?\207" [win frames window-frame] 2] get-buffer-window-list nil get-buffer-window] 6])
(provide 'gnus-win)