| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/winner.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'winner-active-region #[nil "\300 \207" [region-active-p] 1])
(byte-code "\300\301\302\303#\304\305!\210\306\307\310\311\312\313%\210\314\315\310\316\317\320%\210\314\321\322\323\317\324%\210\314\325\326\327\317\330%\210\314\331\310\332\317\333\334\335&\207" [function-put winner-active-region gv-expander #[(do &rest args) "\302\303\304 $\207" [do args gv--defsetter winner-active-region #[(store) "\301\302BB\207" [store if ((activate-mark) (deactivate-mark))] 3]] 5] 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) winner-boring-buffers-regexp "`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 #[nil "\300\301\302\303\"\304\"\207" [sort window-list nil 0 #[(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 window-edges nil] 2]] 4])
(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 window-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 "\304 \211 \236\305 \306 B\n\203 \n \241\210\202 B\211 B +\207" [#1=#:k winner-currents #2=#:p #3=#:v selected-frame current-window-configuration winner-win-data] 3])
(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 #[nil "\302!\203 \303\304\"\210\305 !\205 q\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 (#$ . 3186)])
(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 "\304\211 :\203 @\305\n!\203 \n B A\211\202 \237+\306 >\206/ \307 \310U??\2059 \306 B\211\207" [winner-modified-list #1=#:--cl-var-- frame #2=#:--cl-var-- nil frame-live-p selected-frame minibuffer-depth 0] 3])
(defalias 'winner-save-old-configurations #[nil "\306 \307U\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-- minibuffer-depth 0 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 \301U\205 \302 \207" [minibuffer-depth 0 winner-save-unconditionally] 2])
(defalias 'winner-set-conf #[(winconf) "\306 \307 \310! \311\f! \312 ! \313\216\314!\210-\315 !\203, \316 !\210\2025 \317 \2035 \320\321!\210\n\310!U?\205V \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 #[nil "\305 \"\210\n\306\f \"\210 )\207" [#2# #3# #4=#:old #5=#:v #1# 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 #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] 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\310\"\306\211 :\203F @\311\n!\236\206, \311\n!q\312\313!\314 BDB\211@\n\315\n!B \211 A\f
AAB\241\210* A\211\202
-\207" [alist #1=#:--cl-var-- win entry #2=#:v #3=#:v nil window-list 0 window-buffer mark t winner-active-region window-point] 4])
(defalias 'winner-get-point #[(buf win) "\306!\205N \236\211\2039 \nAA\236A\206M \307\nAA\236A\206M rq\210\307`B \n\211 A\f
AAB\241\210*`)\202M rq\210\310\311!\312 B\307`BE B`))\207" [buf winner-point-alist entry win #1=#:v #2=#:v buffer-name nil mark t winner-active-region] 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\306 @\211A\242\203\266 \314!\311\314!\" \315!\236 \316 8 \203\213 \203\213 \fU\204\213 \317 \f\"-\203\266 \320\314!!!\235\204\266 \"\203\275 \321\"\320\314!!\"\203\275 B A\211 \204L *#\204 r $\306\211 $:\203$@\211%\236A@ q\210\322 @!\210 A\203\374 \323 \210\202\377 \324 \210$A\211$\202\327 ,?\206$\325\326A\"\210\327\330!?\205$\326@!\210\330+\207" [buffers conf #1=#:--cl-var-- buf pos #2=#:--cl-var-- nil mapcar cdr winner-get-point winner-set-conf winner-sorted-window-list window-buffer window-prev-buffers 2 set-window-point buffer-name string-match set-mark activate-mark deactivate-mark mapc delete-window one-window-p t alive xwins win --dolist-tail-- entry marker switch-to-buffer-preserve-window-point #3=#:v winner-boring-buffers winner-boring-buffers-regexp select-enable-primary #4=#:--cl-var-- winner-point-alist] 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) (#$ . 7750))
#@254 Non-nil if Winner mode is enabled.
See the `winner-mode' command
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 '(#$ . 8014) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'winner :type 'boolean)
#@638 Toggle Winner mode on or off.
If called interactively, enable Winner mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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').
(defalias 'winner-mode #[(&optional arg) "\305 \306\302 \307=\203 \310\302!?\202 \311 !\312V\"\210\n\2035 \313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\322 \317 \210\202D \323\314\315\"\210\323\316\317\"\210\323\320\321\"\210\324\325\310\302!\203P \326\202Q \327\"\210\330\331!\203| \332\302!\210\305 \203i \305 \232\203| \333 \334\335\310\302!\203w \336\202x \337\f#\210))\340 \210\310\302!\207" [#1=#:last-message arg winner-mode winner-modified-list local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 8427) (list (or current-prefix-arg 'toggle))])
(defvar winner-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" 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 (#$ . 10474))
(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 \205e \322 ?\205e \323\324\325!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 message "Winner undo (%d / %d)" ring-length winner-ring-size ring winner-pending-undo-ring winner-undo-counter winner-undone-data] 6 (#$ . 10639) nil])
(defalias 'winner-undo-this #[nil "\3042D \305 !Y\203 \306\307!\210\310\304\311\"\210\202 \312\313 \"!\203< \314 \211 \235?\2050 \n B\211)\203< \310\304\315\"\210\202 \316 \"\210\202 \207" [winner-undo-counter winner-pending-undo-ring data 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] 5])
#@66 Restore a more recent window configuration saved by Winner mode.
(defalias 'winner-redo #[nil "\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 (#$ . 11867) nil])
(provide 'winner)