ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/winner.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'winner-active-region #[nil "\300 \207" [region-active-p] 1])
(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\302BB\207" [store if ((activate-mark) (deactivate-mark))] 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 "\304 \211 \236\305 \306 B\n\203 \n \241\202 B\211 B\211+\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 (#$ . 3123)])
(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\211 :\203D @\310\n!\236\206* \310\n!q\311\312!\313 BDB\211@\n\314\n!B \211 A\f
AAB\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] 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\213 @\211A\242\203{ \314\311\315!\"\")\203{ \316\315!!\235\203\202 BA\211\204L *r \306\211 :\203\310 @\211 \236A@ q\210\317 @!\210 A\203\274 \320 \210\202\277 \321 \210 A\211 \202\227 ,?\206\344 \322\323A\"\210\324\325!?\205\344 \323@!\210\325+\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 activate-mark deactivate-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] 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) (#$ . 7431))
#@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 '(#$ . 7695) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'winner :type 'boolean)
#@594 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 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 (#$ . 8108) (list (or current-prefix-arg 'toggle))])
#@176 Hook run after entering or leaving `winner-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar winner-mode-hook nil (#$ . 9677))
(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 (#$ . 10046))
(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 (#$ . 10211) 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 (#$ . 11439) nil])
(provide 'winner)
Kontol Shell Bypass