;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'ring)
(defalias 'winner-active-region #[0 "\300 \207" [region-active-p] 1])
(byte-code "\300\301\302\303#\304\305\306\307\310\311%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\331%\210\312\332\314\315\333DD\334\320\335\336\337&\207" [function-put winner-active-region gv-expander #[385 "\300\301\302$\207" [gv--defsetter winner-active-region #[257 "\300
\301BB\207" [if ((activate-mark) (deactivate-mark))] 4 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] custom-declare-group winner nil "Restoring window configurations." :group windows custom-declare-variable winner-dont-bind-my-keys funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means do not bind keys in Winner mode." :type boolean winner-ring-size #[0 "\300\207" [200] 1 #1#] "Maximum number of stored window configurations per frame." integer winner-boring-buffers #[0 "\300\207" [("*Completions*")] 1 #1#] "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) winner-boring-buffers-regexp #[0 "\300\207" [nil] 1 #1#] "`winner-undo' will not restore windows with buffers matching this regexp." (choice (regexp :tag "Regexp") (const :tag "Not Set" nil)) :version "27.1"] 9)
(defalias 'winner-sorted-window-list #[0 "\300\301\302\303\"\304\"\207" [sort window-list nil 0 #[514 "\300!\301\300!\301:\203+@\262
:\203+
@\262

U\203+A\262
A\262\202
W\207" [window-edges nil] 8 "\n\n(fn X Y)"]] 4])
(defalias 'winner-win-data #[0 "\300 \301\211:\203@\262\302!\303!B
B\262
A\262\202\211\237\207" [winner-sorted-window-list nil window-edges window-buffer] 6])
(defvar winner-currents nil)
(defalias 'winner-conf #[0 "\300 \301 B\207" [current-window-configuration winner-win-data] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put winner-conf speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'winner-remember #[0 "\301 \211\236\302 \303 B
\203

\241\210\207
B\211\262B\207" [winner-currents selected-frame current-window-configuration winner-win-data] 5])
#@24 

(fn &optional FRAME)
(defalias 'winner-configuration #[256 "\211\206\301 \236A\206\"\301 p\302\303#\216\304\305\"\210\306 \307 )B\266\202\207" [winner-currents selected-frame make-closure #[0 "\302\300!\203\303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord current-window-configuration winner-win-data] 7 (#$ . 2288)])
(defvar winner-ring-alist nil)
#@14 

(fn FRAME)
(defalias 'winner-ring #[257 "\211\236A\206\302	!\303
\304!\"\210

BB\211\262
\207" [winner-ring-alist winner-ring-size make-ring ring-insert winner-configuration] 6 (#$ . 2730)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put winner-ring speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defvar winner-last-command nil)
(defvar winner-last-frames nil)
#@91 Return t if two Winner configurations (as produced by `winner-conf') are equal.

(fn A B)
(defalias 'winner-equal #[514 "
A
A\232\207" [] 4 (#$ . 3137)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put winner-equal speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn FRAME)
(defalias 'winner-insert-if-new #[257 "\211>\206		\304=?\205S\305
!
\211\n\236A\206+\306!\307
\305!\"\210

B\nB\211\262
\262
\310
!\204G
\311\312\"
A
A\232\266\202\203G\313
\312\"\210\307
\"\210B\266\202\207" [winner-last-frames this-command winner-ring-alist winner-ring-size winner-redo winner-configuration make-ring ring-insert ring-empty-p ring-ref 0 ring-remove] 8 (#$ . 3435)])
(defvar winner-modified-list nil)
(defalias 'winner-change-fun #[0 "\301\211:\203@\262\302!\203

B\262
A\262\202\211\237\266\203\303 >\206/\304 \305U??\2059\303 B\211\207" [winner-modified-list nil frame-live-p selected-frame minibuffer-depth 0] 5])
(defalias 'winner-save-old-configurations #[0 "\304 \305U\205(	=\204\306\211\203#\211@\307
!\210
A\266\202\202\210\306\310 \207" [this-command winner-last-command winner-last-frames winner-modified-list minibuffer-depth 0 nil winner-insert-if-new winner-remember] 4])
(defalias 'winner-save-unconditionally #[0 "	=\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 #[0 "\300 \301U\205	\302 \207" [minibuffer-depth 0 winner-save-unconditionally] 2])
#@16 

(fn WINCONF)
(defalias 'winner-set-conf #[257 "\300 \301 \302!\211\303!\304!\305\306%\216\307!\210)\266\310!\203-\311!\210\2026\312 \2036\313\314!\210\211\302!U?\205Y\315!r\305\316\"\216\311
@\317\"\210\320\302 Z!\210
*\262
\207" [minibuffer-window selected-window window-height window-point window-buffer make-closure #[0 "\304\301\302\"\210\303\305\300\"\210\207" [V0 V1 V2 V3 set-window-point set-window-buffer] 4] set-window-configuration window-live-p select-window window-minibuffer-p other-window 1 internal--before-with-selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] norecord enlarge-window] 14 (#$ . 4725)])
(defvar winner-point-alist nil)
(defalias 'winner-make-point-alist #[0 "r\300\301\300\302\"\300\211\211:\203F@\262\303!\236\206+\303!q\304\305!\306 BDB\211\262@\262\307!BA
AAB\241\266A\262\300\262
\202	\266\205)\207" [nil window-list 0 window-buffer mark t winner-active-region window-point] 9])
#@16 

(fn BUF WIN)
(defalias 'winner-get-point #[514 "\301!\205K
\236\211\2035

AA\236A\206I\302
AA\236A\206Irq\210\302`B
A
AAB\241\266`)\202Irq\210\303\304!\305 B\302`BEB`)\262
\207" [winner-point-alist buffer-name nil mark t winner-active-region] 7 (#$ . 5723)])
#@13 

(fn CONF)
(defalias 'winner-set #[257 "\304\305\306A\"\304\211\211\211:\2039@\262\307\304\"\262\203*>\204*B\262B\262A\262\304\262
\202\n
\237\266\205\310@!\210\304\311 \211\203\205\211@\211A\262\242\203y\312
\307\313!\"\"\203y\314\313!!\235\204y	\203~\315	\314\313!!\"\203~\211B\262
A\266\202\202E\210\n\204\302r\304\211\211:\203\277@\262\236A@\262q\210\316@!\210
A\203\262\317 \210\202\265\320 \210A\262\304\262
\202\217\266)\211?\206\332\321\322A\"\210\323\324!?\205\332\322
@!\210\324\207" [winner-boring-buffers winner-boring-buffers-regexp select-enable-primary winner-point-alist nil mapcar cdr winner-get-point winner-set-conf winner-sorted-window-list set-window-point window-buffer buffer-name string-match set-mark activate-mark deactivate-mark mapc delete-window one-window-p t] 11 (#$ . 6004)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\310\311\312\313#\210\314\211\2034\211@\311
N\203-\312
N\204-\315\312\311N#\210
A\266\202\202\210\316\311\312\317#\210\300\312\302\303\320DD\321\306\307%\207" [custom-declare-variable winner-mode-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Functions to run whenever Winner mode is turned on or off." :type hook defvaralias winner-mode-leave-hook winner-mode-off-hook nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3" #[0 "\300\207" [nil] 1 #1#] "Functions to run whenever Winner mode is turned off."] 7)
#@25 Keymap for Winner mode.
(defvar winner-mode-map (byte-code "\301 \204\302
\303\304#\210\302
\305\306#\210\207" [winner-dont-bind-my-keys make-sparse-keymap define-key [(control c) left] winner-undo [(control c) right] winner-redo] 5) (#$ . 7475))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable winner-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Winner mode is enabled.\nSee the `winner-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `winner-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@965 Toggle Winner mode on or off.

This is a minor mode.  If called interactively, toggle the `Winner
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='winner-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

Winner mode is a global minor mode that records the changes in
the window configuration (i.e. how the frames are partitioned
into windows) so that the changes can be "undone" using the
command `winner-undo'.  By default this one is bound to the key
sequence `C-c <left>'.  If you change your mind (while undoing),
you can press `C-c <right>' (calling `winner-redo').

(fn &optional ARG)
(defalias 'winner-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B	\203T\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\323 \320 \210\202c\324\315\316\"\210\324\317\320\"\210\324\321\322\"\210\325\326\306\301!\203o\327\202p\330\"\210\331\332!\203\230\333\301!\210\303 \203\210\211\303 \232\203\230\334\335\306\301!\203\224\336\202\225\337\340#\210\210\341 \210\306\301!\207" [global-minor-modes winner-mode winner-modified-list current-message set-default toggle default-value 1 nil t boundp delq add-hook window-configuration-change-hook winner-change-fun post-command-hook winner-save-old-configurations 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%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 8227) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar winner-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [winner-mode-map winner-mode-hook variable-documentation put "Hook run after entering or leaving `winner-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode winner-mode boundp] 6)
(defvar winner-undo-frame nil)
#@43 The ring currently used by `winner-undo'.
(defvar winner-pending-undo-ring nil (#$ . 10798))
(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 #[0 "\204\306\307!\207	\310=\203\n\311 =\204F\312 \210\311 \313 \311 \211\f\236A\206:\314
!\315
\316!\"\210

B\fB\211\262
\262
\317\320 CT\321 \205`\322 ?\205`\323\324\325!S#\207" [winner-mode last-command winner-undo-frame winner-point-alist winner-ring-alist winner-ring-size 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 message "Winner undo (%d / %d)" ring-length winner-pending-undo-ring winner-undo-counter winner-undone-data] 6 (#$ . 10963) nil])
(defalias 'winner-undo-this #[0 "\3032D\304	!Y\203\305\306!\210\307\303\310\"\210\202\311\312	\"!\203<\313 \211\n\235?\205/\211\nB\211\262
\203<\307\303\314\"\210\202\315	\"\210\202\207" [winner-undo-counter winner-pending-undo-ring winner-undone-data --cl-block-nil-- ring-length message "No further window configuration undo information" throw nil winner-set ring-ref winner-win-data t ring-remove] 4])
#@66 Restore a more recent window configuration saved by Winner mode.
(defalias 'winner-redo #[0 "\302=\203(\303\304 \305U\203\306	\305\"\202\307	\305\"!\210\310 \311 =?\205+\312\313!\207\314\315!\207" [last-command winner-pending-undo-ring winner-undo winner-set minibuffer-depth 0 ring-remove ring-ref selected-window minibuffer-window message "Winner undid undo" user-error "Previous command was not a `winner-undo'"] 4 (#$ . 12182) nil])
(provide 'winner)