;ELC   
;;; Compiled by rms@psilocin.gnu.org on Thu Apr 23 21:58:00 1998
;;; from file /gd/gnu/emacs/lisp/delsel.el
;;; in Emacs version 20.2.91.5
;;; with bytecomp version 2.40
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`delsel.el' was compiled for Emacs 19.29 or later"))


(defalias 'pending-delete-mode 'delete-selection-mode)
#@330 Toggle Delete Selection mode.
With prefix ARG, turn Delete Selection mode on if and only if ARG is
positive.

When Delete Selection mode is enabled, Transient Mark mode is also
enabled and typed text replaces the selection if the selection is
active.  Otherwise, typed text is just inserted at point regardless of
any selection.
(defalias 'delete-selection-mode #[(&optional arg) "\203\f \302!\303V\202 	?\211\204 \304\305\306\"\207\307\305\306\"\210\310\311!\207" [arg delete-selection-mode prefix-numeric-value 0 remove-hook pre-command-hook delete-selection-pre-hook add-hook transient-mark-mode t] 4 (#$ . 583) "P"])
#@138 Toggle Delete Selection mode.
See command `delete-selection-mode'.
You must modify via \[customize] for this variable to have an effect.
(custom-declare-variable 'delete-selection-mode 'nil '(#$ . 1216) :set (lambda (symbol value) (delete-selection-mode (or value 0))) :initialize 'custom-initialize-default :type 'boolean :group 'editing-basics :require 'delsel)
(defalias 'delete-active-region #[(&optional killp) "\203 \302`\303 \"\210\202 `\303 |\210\304\305\306!\210\307\207" [killp mark-active kill-region mark nil run-hooks deactivate-mark-hook t] 3])
(defalias 'delete-selection-pre-hook #[nil "\205W 	\205W \n\205W ?\205W \f9\205 \f\306N\211\307=\203& \310\311!\202V \312=\203A \313`\314 \"@\230\203< \315\316!\210\310 \202V \317=\203P \310 \210\320\211\202V \205V \310 )\207" [delete-selection-mode transient-mark-mode mark-active buffer-read-only this-command type delete-selection kill delete-active-region t yank buffer-substring-no-properties mark current-kill 1 supersede ignore kill-ring] 4])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\305#\210\300\306\302\305#\210\300\307\302\303#\210\300\310\302\311#\210\300\312\302\311#\210\300\313\302\311#\210\300\314\302\303#\210\300\315\302\303#\210\300\316\302\317#\210\300\320\302\303#\207" [put self-insert-command delete-selection t self-insert-iso yank clipboard-yank insert-register delete-backward-char supersede backward-delete-char-untabify delete-char newline-and-indent newline open-line kill insert-parentheses] 4)
#@157 Abort recursive edit.
In Delete Selection mode, if the mark is active, just deactivate it;
then it takes a second \[keyboard-quit] to abort the minibuffer.
(defalias 'minibuffer-keyboard-quit #[nil "\203 	\203 \n\203 \304\211\207\305 \207" [delete-selection-mode transient-mark-mode mark-active deactivate-mark t abort-recursive-edit] 2 (#$ . 2746) nil])
(byte-code "\306\307\310#\210\306	\307\310#\210\306\n\307\310#\210\306\307\310#\210\306\f\307\310#\210\311\312!\210\203* \305\313!\210\306\207" [minibuffer-local-map minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-isearch-map delete-selection-mode define-key "" minibuffer-keyboard-quit provide delsel t] 4)