| Current Path : /usr/share/emacs/24.3/lisp/obsolete/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/obsolete/s-region.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:10 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/s-region.el ;;; in Emacs version 24.3.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\312 O\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 (#$ . 751)]) #@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 (#$ . 1199) "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 (#$ . 1386) "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 (#$ . 1964)]) (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)