| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/gnus-win.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-win.el
;;; in Emacs version 24.3.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)))) (#$ . 1476))
#@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)) (#$ . 3309))
#@42 *A hook called when configuring windows.
(custom-declare-variable 'gnus-configure-windows-hook nil '(#$ . -4100) :version "22.1" :group 'gnus-windows :type 'hook)
#@45 The most recently set window configuration.
(defvar gnus-current-window-configuration nil (#$ . 4269))
(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 \302\303\304\217\210\211A@\210\202 \207" [gnus-created-frames frame-live-p nil (byte-code "\301@!\207" [gnus-created-frames delete-frame] 2) ((error))] 3 (#$ . 4448)])
#@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 (#$ . 4720)])
(defvar gnus-frame-list nil)
(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 \206 \310 !\210\n@ \236\204/ \n@9\203/ \311\n@!\203/ \312\n!\211\202 \n@ \n\211 AA) ,\f\313=\203E \314 \202G \315 -\316 ./\206S 0 01\206\\ 2 2\317\211 3 4\317\211 5 6\317\211 7 8\317 9\n?\206\237\f\204\206 \320\n>\205\237 \202\237\f\321>\204\357 \f;\203\225 \f\202\231 \f \236A\211 :\204\244 \322\323\f\"\210\324\325:!! ;\326;!\203\332 ;\327\307 !=\203\304 ;q\210\202\332 \330\307 !\331=\203\325 \332;!\210\202\332 \333;!\210)\334\n>\203\344 <\320\n>\205\353 )\202\237\f\335=\203\206=\204 \336!C=\316\317\211\211 > ?\211 @,GW\203w,@\234\211 A@)\211?<\204(\317?=@\234\211 \204F=\337?!\211 C\244\210 ABA\340 !\204[@=\233\337?!\211 \240\210\341 !\210\342,@\234!\206l>>@T\211@\202
>\205\202\341\336>!!,\202\237,G\316V\203\226,\203A\343,\211A,@\317\"\2119@ \236\204\2779@9\203\277\3119@!\203\277\3129!\2119\202\2409\203\21697B\2117@A@\2118\344\232\203\3427@6\3163\202\3458!\203\365\3468-_!3\2028\250\20383\202\322\3478\"\210\3503!\204,\f\313=\203 30]3\202,\f\351=\203,32]37\211 @A)3\240\210.3\\.\202\2166\203S6A-.Z\240\210\202X\322\352\n\"\2107\237\2117\203\2267A\204k \202v\353 7@A@\f\313=#5\3427@ \"\206\20344\3105!\21057A\2117\204a4\205\237\3104!.\207" [current-window window split gnus-window-to-buffer type x 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" zerop vertical "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 (#$ . 5083)])
(defvar gnus-frame-split-p nil)
(defalias 'gnus-configure-windows #[(setting &optional force) "?\206\245 \306!\203 \307!\207\n\206 9\203' \f\236\211 A@)\202( \310 \310 \204: \311\312\"\210\313!\211\203O \n\204O \314!\202\244 \211 \205] \315\316 !!)\204d \317 \210\320 \321\216 \203\200 \204z \322 \210\202\207 \323 \210\202\207 \324 \210 q\210*\310 ! q\210\325!\210\326\327!\210!\205\243 \330\331!!!)*\207" [setting gnus-current-window-configuration force gnus-always-force-window-configuration gnus-buffer-configuration x 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 ((select-frame frame)) delete-other-windows gnus-delete-windows-in-gnusey-frames gnus-remove-some-windows gnus-configure-frame run-hooks gnus-configure-windows-hook gnus-select-frame-set-input-focus window-frame all-visible 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 (#$ . 8400)])
#@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\262
\203\262 @:\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\326\211 AA)\"\211\202
\306=?\205\272
.\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 x] 7 (#$ . 8890)])
#@38 Return the top coordinate of WINDOW.
(defalias 'gnus-window-top-edge #[(&optional window) "\301!A@\207" [window window-edges] 2 (#$ . 9772)])
(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\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])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp frames-on-display-list defalias gnus-frames-on-display-list frame-list] 3)
(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) gnus-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)