| Server IP : 217.160.0.212 / Your IP : 216.73.216.203 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/obsolete/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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) #@82 Remove shift modifier from last keypress KEY and return that as a key. (fn KEY) (defalias 's-region-unshift #[257 "\300!\2035 \211GSH\2119\2030 \301!\302\303\"\211\203+ \304\305\306O\307\\\310OP!!\207\311\312\"\207\311\313\"\207\311\314\"\207" [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"] 10 (#$ . 275)]) #@92 This is an overlay function to point-moving keys that are interactive "p". (fn &rest ARG) (defalias 's-region-move-p1 #[128 "\300\301\"\207" [apply s-region-move] 4 (#$ . 699) "p"]) #@92 This is an overlay function to point-moving keys that are interactive "P". (fn &rest ARG) (defalias 's-region-move-p2 #[128 "\300\301\"\207" [apply s-region-move] 4 (#$ . 889) "P"]) #@18 (fn &rest ARG) (defalias 's-region-move #[128 "\203 \304=?\202\f \305\203 \306\307!\210\202 \310\311!\210\304\312\313\314\315 !!\"\210\316 \317 `p$\210\320\321!\210\322 !\207" [mark-active last-command this-command 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] 6 (#$ . 1079)]) #@333 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. (fn KEYLIST &optional MAP) (defalias 's-region-bind #[513 "\301\302\303\304F\204\f \262\205@ @\305!\306!\2037 \307\310\311\312\313\314H!P!!>\2034 \315\2025 \316#\210\266A\262\202\f \207" [global-map 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] 13 (#$ . 1488)]) (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)