;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 22:41:16 1993
;;; from file /gd/gnu/emacs/19.0/lisp/delsel.el
;;; emacs version 19.15.16.
;;; 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 "This file was compiled for Emacs 19"))

(defvar delete-selection-mode t "\
*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.")
(byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÅÆÃ\"ˆÇÈÉÊ#ˆÇËÉÊ#ˆÇÌÉÊ#ˆÇÍÉÎ#ˆÇÏÉÎ#ˆÇÐÉÎ#ˆÇÑÉÊ#ˆÇÒÉÊ#ˆÇÓÉÊ#ˆÀÔÕ\"‡" [defalias delete-active-region #[(&optional killp) "ƒ Á`Â \"ˆ‚ `Â |ˆÃÅÆ!ˆÇ‡" [killp kill-region mark nil mark-active run-hooks deactivate-mark-hook t] 3] delete-selection-pre-hook #[nil "…C 	?…C \n…C …C 9… Å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] add-hook pre-command-hook put self-insert-command delete-selection t yank insert-register delete-backward-char supersede backward-delete-char-untabify delete-char newline-and-indent newline open-line pending-delete-mode delete-selection-mode] 4)
(defalias 'delete-selection-mode #[(arg) "„	 	?‚ Â!ÃVÄÅ !‡" [arg delete-selection-mode prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 2 "\
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." "P"])
(defalias 'minibuffer-keyboard-quit #[nil "ƒ 	ƒ \nƒ Ã‰‡Å ‡" [delete-selection-mode transient-mark-mode mark-active t deactivate-mark abort-recursive-edit] 2 "\
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." nil])
(byte-code "À	ÂÃ#ˆÀÂÃ#ˆÀÂÃ#ˆÀÂÃ#ˆÀÂÃ#ˆÈÉ!‡" [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)