;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  2 20:20:16 1995
;;; from file /gd/gnu/emacs/19.0/lisp/delsel.el
;;; emacs version 19.28.90.69.
;;; 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 "`/gd/gnu/emacs/19.0/lisp/delsel.el' was compiled for Emacs 19"))


#@166 *Non-nil means Delete Selection mode is enabled.
In Delete Selection mode, when a region is highlighted,
insertion commands first delete the region and then insert.
(defvar delete-selection-mode t (#$ . -482))
(defalias 'delete-active-region #[(&optional killp) "ѓ Б`В \"€‚ `В |€ГЕЖ!€З‡" [killp kill-region mark nil mark-active run-hooks deactivate-mark-hook t] 3])
(defalias 'delete-selection-pre-hook #[nil "…C 	?…C \n…C …C \f9… \fЕN‰З=ѓ' ИЙ!‚B К=ѓ: ИЛ!…B М‰‚B …B ИЛ!)‡" [delete-selection-mode buffer-read-only transient-mark-mode mark-active this-command delete-selection type kill delete-active-region t supersede nil (lambda nil (interactive))] 3])
(byte-code "АБВ\"€ГДЕЖ#€ГЗЕЖ#€ГИЕЖ#€ГЙЕЖ#€ГКЕЛ#€ГМЕЛ#€ГНЕЛ#€ГОЕЖ#€ГПЕЖ#€ГРЕЖ#€СТУ\"‡" [add-hook pre-command-hook delete-selection-pre-hook put self-insert-command delete-selection t self-insert-iso yank insert-register delete-backward-char supersede backward-delete-char-untabify delete-char newline-and-indent newline open-line defalias pending-delete-mode delete-selection-mode] 4)
#@150 Toggle Delete Selection mode.
When ON, typed text replaces the selection if the selection is active.
When OFF, typed text is just inserted at point.
(defalias 'delete-selection-mode #[(arg) "„	 	?‚ В!ГVД ‡" [arg delete-selection-mode prefix-numeric-value 0 force-mode-line-update] 2 (#$ . 1541) "P"])
#@149 Abort recursive edit.
In Delete Selection mode mode, if the mark is active, just deactivate it;
then it takes a second C-g to abort the minibuffer.
(defalias 'minibuffer-keyboard-quit #[nil "ѓ 	ѓ \nѓ Г‰‡Е ‡" [delete-selection-mode transient-mark-mode mark-active t deactivate-mark abort-recursive-edit] 2 (#$ . 1853) nil])
(byte-code "А	ВГ#€А\fВГ#€АВГ#€АВГ#€АВГ#€ИЙ!‡" [define-key minibuffer-local-map "" minibuffer-keyboard-quit minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-isearch-map provide delsel] 4)