HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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\2038\305	!\306\307\n\"\211\2030\310\311\n\312O\n\313\\\314OP!!\2024\315\316\"*\202<\315\317\")\207\315\320\"\207" [key last keyname pos vectorp symbol-name string-match "S-" vector intern 0 2 nil error "Non-shifted key: %S" "Key does not end in a symbol: %S" "Non-vector key: %S"] 7 (#$ . 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 (#$ . 1047) "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 (#$ . 1234) "P"])
(defalias 's-region-move #[(&rest arg) "\203	\305\232?\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 (#$ . 1812)])
(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)