| Current Path : /usr/share/emacs/24.3/lisp/ |
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/winner.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:34 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/winner.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'winner-active-region #[nil "\301\300!\203 \207\302 \207" [mark-active boundp region-active-p] 2])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\311\312!\210\313\314\315\316\317\320%\210\321\322\315\323\324\325\317\314&\210\321\326\327\330\324\331\317\314&\210\321\332\333\334\324\335\317\314&\207" [put winner-active-region gv-expander #[(do &rest args) "\302\303\304 $\207" [do args gv--defsetter winner-active-region #[(store) "\301\302E\207" [store setq mark-active] 3]] 5] defalias winner-edges window-edges winner-window-list #[nil "\300\301\302\"\207" [window-list nil 0] 3] require ring custom-declare-group winner nil "Restoring window configurations." :group windows custom-declare-variable winner-dont-bind-my-keys "Non-nil means do not bind keys in Winner mode." :type boolean winner-ring-size 200 "Maximum number of stored window configurations per frame." integer winner-boring-buffers '("*Completions*") "List of buffer names whose windows `winner-undo' will not restore.\nYou may want to include buffer names such as *Help*, *Apropos*,\n*Buffer List*, *info* and *Compile-Log*." (repeat string)] 8)
(defalias 'winner-sorted-window-list #[nil "\300\301 \302\"\207" [sort winner-window-list #[(x y) "\306!\307\306 ! \307 :\203+ @\f:\203+ \f@\n
U\203+ A\fA\202\f \n
W,\207" [x #1=#:--cl-var-- a y #2=#:--cl-var-- b winner-edges nil] 2]] 3])
(defalias 'winner-win-data #[nil "\303 \304\211:\203 @\305 !\306 !B\nBA\211\202 \n\237+\207" [#1=#:--cl-var-- win #2=#:--cl-var-- winner-sorted-window-list nil winner-edges window-buffer] 4])
(defvar winner-currents nil)
(defalias 'winner-conf #[nil "\300 \301 B\207" [current-window-configuration winner-win-data] 2])
(put 'winner-conf 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'winner-remember #[nil "\302 \236\211\203 \303 \304 B\241\202 \302 \303 \304 BBB\211)\207" [winner-currents entry selected-frame current-window-configuration winner-win-data] 4])
(defalias 'winner-configuration #[(&optional frame) "\206 \304 \236A\206 \304 p\305\216\306\307\"\210\310 \311 +B\207" [frame winner-currents #1=#:old-buffer #2=#:old-frame selected-frame ((byte-code "\302!\203 \303\304\"\210\305 !\203 q\210\302\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3)) select-frame norecord current-window-configuration winner-win-data] 3])
(defvar winner-ring-alist nil)
(defalias 'winner-ring #[(frame) " \236A\206 \304\n!\305 \306!\"\210 B B )\207" [frame winner-ring-alist winner-ring-size ring make-ring ring-insert winner-configuration] 4])
(put 'winner-ring 'byte-optimizer 'byte-compile-inline-expand)
(defvar winner-last-command nil)
(defvar winner-last-frames nil)
#@83 Check whether two Winner configurations (as produced by
`winner-conf') are equal.
(defalias 'winner-equal #[(a b) "A A\232\207" [a b] 2 (#$ . 3281)])
(put 'winner-equal 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'winner-insert-if-new #[(frame) " >\206 \n\306=?\205[ \307!\211 \236A\206, \310\f! \311
\307!\"\210
B B
)) \312
!\204O \313
\314\" \211 AA\232*\203O \315
\314\"\210\311
\"\210 B*\207" [frame winner-last-frames this-command winner-ring-alist winner-ring-size ring winner-redo winner-configuration make-ring ring-insert ring-empty-p ring-ref 0 ring-remove conf b a] 6])
(defvar winner-modified-list nil)
(defalias 'winner-change-fun #[nil "\301 >\206\f \302 \303U??\205 \301 B\211\207" [winner-modified-list selected-frame minibuffer-depth 0] 2])
(defalias 'winner-save-old-configurations #[nil "\306\307 !\205, =\204 \310 \310 \211 \203'
@\311\f!\210
A\211\204 *\310\312 \207" [this-command winner-last-command winner-last-frames winner-modified-list frame --dolist-tail-- zerop minibuffer-depth nil winner-insert-if-new winner-remember] 3])
(defalias 'winner-save-unconditionally #[nil " =\204\n \303\304\305 !\210\306 \207" [this-command winner-last-command winner-last-frames nil winner-insert-if-new selected-frame winner-remember] 2])
(defalias 'winner-save-conditionally #[nil "\300\301 !\205 \302 \207" [zerop minibuffer-depth winner-save-unconditionally] 2])
(defalias 'winner-set-conf #[(winconf) "\306 \307 \310! \311\f! \312 ! \313\216\314!\210-\315 !\203, \316 !\210\2027 \317\307 !\2037 \320\321!\210\n\310!U?\205X \322! r\323\216\316@\324\"\210\325\n\310 Z!\210\n++\207" [miniwin chosen minisize #1=#:v #2=#:v #3=#:old minibuffer-window selected-window window-height window-point window-buffer ((byte-code "\304 \"\210\305\n \"\207" [#2# #3# #1# #4=#:old set-window-point set-window-buffer] 3)) set-window-configuration window-live-p select-window window-minibuffer-p other-window 1 internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) norecord enlarge-window #4# winconf save-selected-window--state] 3])
(defvar winner-point-alist nil)
(defalias 'winner-make-point-alist #[nil "r\306\307 \306\211 :\203H @\310\n!\236\206* \310\n!q\311\312!\313 BDB\211@\n\314\n!B \211 A\f
\211
AA)B\241\210* A\211\202 -\207" [alist #1=#:--cl-var-- win entry #2=#:v #3=#:v nil winner-window-list window-buffer mark t winner-active-region window-point x] 4])
(defalias 'winner-get-point #[(buf win) "\306!\205Y \236\211\203D \n\211 AA)\236A\206X \307\n\211 AA)\236A\206X rq\210\307`B \n\211 A
\211 AA)B\241\210*`)\202X rq\210\310\311!\312 B\307`BE B`))\207" [buf winner-point-alist entry win x #1=#:v buffer-name nil mark t winner-active-region #2=#:v] 5])
(defalias 'winner-set #[(conf) "\306\307\310 A\"\306\211 \306 \n:\2034 \n@\311 \306\"\211\203) >\204) B\f
B\nA\211\202
\237, \312 @!\210\306 \313 \306 \211 \203\213 @\211A@\203{ \314\311\315!\"\")\203{ \316\315!!\235\203\202 BA\211\204L *r \306\211 :\203\302 @\211 \236\211 A@) q\210\317@!\210A A\211\202\227 ,?\206\336 \320\321A\"\210\322\323!?\205\336 \321@!\210\323+\207" [buffers conf #1=#:--cl-var-- buf pos #2=#:--cl-var-- nil mapcar cdr winner-get-point winner-set-conf winner-sorted-window-list set-window-point window-buffer buffer-name set-mark mapc delete-window one-window-p t alive xwins win --dolist-tail-- #3=#:v winner-boring-buffers #4=#:--cl-var-- entry winner-point-alist x mark-active] 6])
(byte-code "\302\303\304\305\306\307\310\311&\210\312\313\314\304#\210\315\304\211\2037 @\313N\2030 \314N\2040 \316\314\313N#\210 A\211\204 *\317\313\314\320#\210\302\314\304\321\306\307\310\311&\207" [prop --dolist-tail-- custom-declare-variable winner-mode-hook nil "Functions to run whenever Winner mode is turned on or off." :type hook :group winner defvaralias winner-mode-leave-hook winner-mode-off-hook (saved-value saved-variable-comment) put make-obsolete-variable "24.3" "Functions to run whenever Winner mode is turned off."] 9)
#@25 Keymap for Winner mode.
(defvar winner-mode-map (byte-code "\302 \204 \303\304\305#\210\303\306\307#\210)\207" [map winner-dont-bind-my-keys make-sparse-keymap define-key [(control c) left] winner-undo [(control c) right] winner-redo] 4) (#$ . 7442))
(defalias 'winner-hook-installed-p #[nil "\303 \304\216\305\306\307 \210\n,\207" [#1=#:wconfig window-configuration-change-hook winner-var current-window-configuration ((set-window-configuration #1#)) nil ((lambda nil (setq winner-var t))) split-window] 2])
#@254 Non-nil if Winner mode is enabled.
See the command `winner-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `winner-mode'.
(custom-declare-variable 'winner-mode nil '(#$ . 7967) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'winner :type 'boolean)
#@241 Toggle Winner mode on or off.
With a prefix argument ARG, enable Winner mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
\{winner-mode-map}
(defalias 'winner-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203= \310 \203* \311\312\313\"\210\311\314\315\"\210\202/ \311\314\316\"\210\311\317\320\"\210\321 \315 \210\202Q \322\312\313\"\210\322\314\315\"\210\322\314\316\"\210\322\317\320\"\210\323\324\n\203[ \325\202\\ \326\"\210\327\330!\203\201 \331\302!\210\304 \203t \304 \232\203\201 \332\333\n\203~ \334\202 \335\"\210)\336 \210\n\207" [#1=#:last-message arg winner-mode winner-modified-list current-message toggle prefix-numeric-value 0 winner-hook-installed-p add-hook window-configuration-change-hook winner-change-fun post-command-hook winner-save-old-configurations winner-save-conditionally minibuffer-setup-hook winner-save-unconditionally frame-list remove-hook run-hooks winner-mode-hook winner-mode-on-hook winner-mode-off-hook called-interactively-p any customize-mark-as-set message "Winner mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 8380) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [winner-mode-map add-minor-mode winner-mode nil boundp] 6)
(defvar winner-undo-frame nil)
#@43 The ring currently used by `winner-undo'.
(defvar winner-pending-undo-ring nil (#$ . 9768))
(defvar winner-undo-counter nil)
(defvar winner-undone-data nil)
#@126 Switch back to an earlier window configuration saved by Winner mode.
In other words, "undo" changes in window configuration.
(defalias 'winner-undo #[nil "\204 \306\307!\207 \310=\203 \n\311 =\204K \312 \210\311 \313 \311 \211
\236A\206@ \314! \315\316\f!\"\210\fB
B))\317\320 CT\321 \205g \322\323 !?\205g \324\325\326!S#\207" [winner-mode last-command winner-undo-frame winner-point-alist frame winner-ring-alist error "Winner mode is turned off" winner-undo selected-frame winner-save-conditionally winner-make-point-alist make-ring ring-insert winner-configuration 0 winner-win-data winner-undo-this window-minibuffer-p selected-window message "Winner undo (%d / %d)" ring-length winner-ring-size ring winner-pending-undo-ring winner-undo-counter winner-undone-data] 6 (#$ . 9932) nil])
(defalias 'winner-undo-this #[nil "\300\301\215\207" [--cl-block-nil-- (byte-code "\304 !Y\203 \305\306!\210\307\310\311\"\210\202 \312\313 \"!\2038 \314 \211 \235?\205, \n B\211)\2038 \307\310\315\"\210\202 \316 \"\210\202 " [winner-undo-counter winner-pending-undo-ring data winner-undone-data ring-length message "No further window configuration undo information" throw --cl-block-nil-- nil winner-set ring-ref winner-win-data t ring-remove] 5)] 2])
#@66 Restore a more recent window configuration saved by Winner mode.
(defalias 'winner-redo #[nil "\302=\203( \303\304\305 !\203 \306 \307\"\202 \310 \307\"!\210\311 \312 =?\205+ \313\314!\207\315\316!\207" [last-command winner-pending-undo-ring winner-undo winner-set zerop minibuffer-depth ring-remove 0 ring-ref selected-window minibuffer-window message "Winner undid undo" error "Previous command was not a `winner-undo'"] 4 (#$ . 11221) nil])
(provide 'winner)