%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-win.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\310\305\315\316&\210\311\317\306\320\315\316\321\322&\210\311\323\324\325\310\305\315\326&\210\311\327\330\331\310\305\315\326&\210\311\332\306\333\310\305\315\316&\210\311\334\306\335\321\336\310\305\315\316&	\207" [require gnus gnus-util seq 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-use-atomic-windows "If non-nil, Gnus' window compositions will be atomic." :version "27.1" 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." "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)))) (#$ . 1465))
#@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)) (#$ . 3298))
#@41 A hook called when configuring windows.
(custom-declare-variable 'gnus-configure-windows-hook nil '(#$ . 4089) :version "22.1" :group 'gnus-windows :type 'hook)
#@45 The most recently set window configuration.
(defvar gnus-current-window-configuration nil (#$ . 4256))
(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 (#$ . 4435)])
#@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 (#$ . 4665)])
(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//0\206X11\317\21123\317\21145\317\21167\3178\n?\206\225\f\204\202\320\n>\205\225	\202\225\f\321>\204\351\f;\203\221\f\202\225\f\236A\2119\204\240\322\323\f\"\210\324\3259!!:\326:!\203\324:\327\307 !=\203\300:q\210\202\324\330 \331=\203\317\332:!\210\202\324\333:!\210)\334\n>\203\336	;\320\n>\205\345	)\202\225\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\225
G\316V\203\212
\203(\343
\211A\242\317\"\2118@\236\204\2578@9\203\257\3118@!\203\257\3128!\2118\202\2208\203\20186B\2116@A@\2117\344\232\203\3226@5\3162\202\370\3457!\203\345\3467,_!2\202\3707\250\203\36272\202\370\322\3477\"\2102\316U\204\f\350\267\2022/]2\20221]26@A2\240\210-2\\-\202\2015\203:5A,-Z\240\210\202?\322\351\n\"\2106\237\2116\203\2126A\204R	\202]\352	6@A@\f\313=#4\3426@	\"\206j33\3534!\204y\307 \202\201\3104!\21046A\2116\204H\3533!\205\225\3103!.\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-live-p window-buffer window-dedicated-p t 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 517 vertical 527)) "No 1.0 specs in %s" split-window window-live-p 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 (#$ . 5028)])
(defvar gnus-frame-split-p nil)
(defalias 'gnus-configure-windows #[(setting &optional force) "?\206\315\306!\203\307!\207\n\2069\203$\f\236A@\202%\310#\310$#\2046\311\312\"\210\313#!\211\203I\n\204I\314
!\202\314%\211&\205_\315\316&!\211&!\205_&)\204f\317 \210\320\310\321\"\203y\322 '\323\324'\325#\210)\326 (\327\216)\203\225$\204\217\330 \210\202\234\331 \210\202\234\332 \210%q\210*\310*%q\210\333#!\210\334\335!\210+\203\300\336\337 !\203\300\340\336\337 !!\210*\205\313\341\342*!!)*\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 window-parameter window-atom window-atom-root walk-window-subtree #[(win) "\301\302\303#\207" [win set-window-parameter window-atom nil] 4] t 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 window-parent selected-window window-make-atom select-frame-set-input-focus window-frame split gnus-frame-split-p nntp-server-buffer buffer root frame gnus-use-full-window gnus-window-frame-focus gnus-use-atomic-windows] 5])
#@67 Do a `delete-other-windows' in all frames that have Gnus windows.
(defalias 'gnus-delete-windows-in-gnusey-frames #[nil "\303 \304 \305\211\205-\n@\306	\307\"\310=\204%\311	!\210\312\313!\203%\314 \210\nA\211\204\f\305+\207" [buffers frame --dolist-tail-- gnus-buffers frame-list nil frame-parameter minibuffer only select-frame get-window-with-predicate #[(window) "\302!	>\207" [window buffers window-buffer] 2] delete-other-windows] 4 (#$ . 8805)])
#@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 (#$ . 9274)])
#@38 Return the top coordinate of WINDOW.
(defalias 'gnus-window-top-edge #[(&optional window) "\301!A@\207" [window window-edges] 2 (#$ . 10150)])
(defalias 'gnus-remove-some-windows #[nil "\306\211\211\212\307 \306\211\2038\f@\310!\2031\nB\311!\210\203,\312 W\2031\312 \fA\211\204*	\203D\311	!\210
q\210\313	\n\"\306\211\205b\f@\314\315\"\210\fA\211\204P\306.\207" [lowest lowest-buf bufs buf --dolist-tail-- nntp-server-buffer nil gnus-buffers get-buffer-window pop-to-buffer gnus-window-top-edge delq delete-windows-on t b] 4])
#@137 Return a window currently displaying BUFFER, or nil if none.
Like `get-buffer-window', but respecting
`gnus-use-frames-on-any-display'.
(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 seq-find #[(win) "\302!	>\207" [win frames window-frame] 2] get-buffer-window-list nil get-buffer-window] 6 (#$ . 10719)])
(provide 'gnus-win)
Zerion Mini Shell 1.0