;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Jun 8 22:14:12 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/s-region.el ;;; emacs version 19.28.93.6. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`s-region.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!„ ÂÉ\"Á\fBÅ ÆÇ#ˆÅ ÈÉ#‡" [boundp s-region-overlay make-overlay 1 current-load-list 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) "À !ƒA ‰GSH‰9ƒ;Ã\n!ÅÆ\f\"‰ƒ3ÈÉ\fÊO\fË\\ÌOP!!‚7ÍÎ \"*‚?ÍÏ \")‡ÍÐ \"‡" [vectorp key last symbol-name keyname string-match "S-" pos vector intern 0 2 nil error "Non-shifted key: %S" "Key does not end in a symbol: %S" "Non-vector key: %S"] 7 (#$ . 624)]) #@75 This is an overlay function to point-moving keys that are interactive "p" (defalias 's-region-move-p1 #[(&rest arg) "ÀÁ\n\"‡" [apply s-region-move arg] 3 (#$ . 1001) "p"]) #@75 This is an overlay function to point-moving keys that are interactive "P" (defalias 's-region-move-p2 #[(&rest arg) "ÀÁ\n\"‡" [apply s-region-move arg] 3 (#$ . 1179) "P"]) (defalias 's-region-move #[(&rest arg) "ƒ š?‚\fÃÄÅ!ˆ‚ÆÇ!ˆÂÉÊËÌ !! \"ˆÎÐ `p$ˆÑÒ!ˆÓ!‡" [mark-active last-command s-region-move t set-mark-command nil message "" this-command apply key-binding s-region-unshift this-command-keys arg move-overlay s-region-overlay mark sit-for 1 delete-overlay] 5]) #@298 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 third argument MAP specifies keymap to add binding to, defaulting to global keymap. (defalias 's-region-bind #[(keylist &optional map) "ÀÁÂÃF „ …K@É!\nË\n!ƒ@Ì ÍÎÏÐÑH!P!!\n\f>ƒ=Ò‚>Ó#ˆ*A‰„Ô)‡" [scroll-up scroll-down beginning-of-buffer end-of-buffer p2 map global-map keylist key key-binding binding commandp define-key vector intern "S-" symbol-name 0 s-region-move-p2 s-region-move-p1 nil] 9 (#$ . 1669)]) (byte-code "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×د!ˆÙÚ!„(ÛÜÝ\"ˆÙÞ!„3Ûßà\"ˆÙá!„>Ûâã\"ˆäå!‡" [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)