%PDF-
%PDF-
Mini Shell
Mini Shell
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar s-region-overlay (byte-code "\300\301\211\"\207" [make-overlay 1] 3))
(byte-code "\301\302\303#\210\301\304\305#\207" [s-region-overlay overlay-put face region priority 1000000] 4)
#@72 Remove shift modifier from last keypress KEY and return that as a key.
(defalias 's-region-unshift #[(key) "\304!\203? \211GSH\2119\2039 \305 !\306\307\n\"\211\2031 \310\311\312\n\313 #\312\n\314 \\\"P!!\2025 \315\316\"*\202= \315\317\")\207\315\320\"\207" [key last keyname pos vectorp symbol-name string-match "S-" vector intern substring 0 2 error "Non-shifted key: %S" "Key does not end in a symbol: %S" "Non-vector key: %S"] 8 (#$ . 599)])
#@76 This is an overlay function to point-moving keys that are interactive "p".
(defalias 's-region-move-p1 #[(&rest arg) "\301\302\"\207" [arg apply s-region-move] 3 (#$ . 1058) "p"])
#@76 This is an overlay function to point-moving keys that are interactive "P".
(defalias 's-region-move-p2 #[(&rest arg) "\301\302\"\207" [arg apply s-region-move] 3 (#$ . 1245) "P"])
(defalias 's-region-move #[(&rest arg) "\203 \305=?\202\f \306\203 \307\310!\210\202 \311\312!\210\305\313\314\315\316 !! \"\210\317\f\320 `p$\210\321\322!\210\323\f!\207" [mark-active last-command this-command arg s-region-overlay s-region-move t set-mark-command nil message "" apply key-binding s-region-unshift this-command-keys move-overlay mark sit-for 1 delete-overlay] 5])
#@305 Bind shifted keys in KEYLIST to `s-region-move-p1' or `s-region-move-p2'.
Each key in KEYLIST is shifted and bound to one of the `s-region-move'
functions provided it is already bound to some command or other.
Optional second argument MAP specifies keymap to add binding to, defaulting
to global keymap.
(defalias 's-region-bind #[(keylist &optional map) "\306\307\310\311F \204\f \n \205@ @ \312\f! \313
!\2037 \314 \315\316\317\320\f\321H!P!!
>\2034 \322\2025 \323#\210* A\211\204 \324)\207" [p2 map global-map keylist key binding scroll-up scroll-down beginning-of-buffer end-of-buffer key-binding commandp define-key vector intern "S-" symbol-name 0 s-region-move-p2 s-region-move-p1 nil] 9 (#$ . 1820)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\257!\210\331\332!\204( \333\334\335\"\210\331\336!\2043 \333\337\340\"\210\331\341!\204> \333\342\343\"\210\344\345!\207" [s-region-bind [right] [left] [up] [down] [C-left] [C-right] [C-up] [C-down] [M-left] [M-right] [M-up] [M-down] [next] [previous] [home] [end] [C-next] [C-previous] [C-home] [C-end] [M-next] [M-previous] [M-home] [M-end] global-key-binding [C-insert] global-set-key [C-insert] copy-region-as-kill [S-delete] [S-delete] kill-region [S-insert] [S-insert] yank provide s-region] 25)
Zerion Mini Shell 1.0