;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May  7 01:32:43 1994
;;; from file /home/fsf/rms/e19/lisp/s-region.el
;;; emacs version 19.22.91.5.
;;; 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")))
    (error "`/home/fsf/rms/e19/lisp/s-region.el' was compiled for Emacs 19"))

(byte-code "АБ!„ ВГ‰\"Д	ЕЖ#€Д	ЗИ#‡" [boundp s-region-overlay make-overlay 1 overlay-put face region priority 1000000] 4)
(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 "\
Remove shift modifier from last keypress KEY and return that as a key."])
(defalias 's-region-move #[(&rest arg) "ѓ 	Вљ?‚\f Гѓ ДЕ!€‚ ЖЗ!€ИЙКЛ !!\f\"€НП `p$€РС!€Т!‡" [mark-active last-command s-region-move t set-mark-command nil message "" apply key-binding s-region-unshift this-command-keys arg move-overlay s-region-overlay mark sit-for 1 delete-overlay] 5 "\
This is an overlay function to point-moving keys." "p"])
(defalias 's-region-bind #[(keylist &optional map) "„ 	\n…, ГД\n@!!ѓ$ ЕЖЗИЙ\n@КH!P!!Л#€\nA‰„\n М‡" [map global-map keylist commandp key-binding define-key vector intern "S-" symbol-name 0 s-region-move nil] 9 "\
Bind keys in KEYLIST to `s-region-move'.
Each key in KEYLIST is bound to `s-region-move'
provided it is already bound to some command or other.
Optional second argument MAP specifies keymap to
add binding to, defaulting to global keymap."])
(byte-code "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЇ!€ЩЪЫ\"€ЩЬЭ\"€ЩЮЯ\"€аб!‡" [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-set-key [C-insert] copy-region-as-kill [S-delete] kill-region [S-insert] yank provide s-region] 25)