;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:09:13 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/delsel.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'pending-delete-mode 'delete-selection-mode)
#@284 Non-nil if Delete-Selection mode is enabled.
See the command `delete-selection-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `delete-selection-mode'.
(custom-declare-variable 'delete-selection-mode 'nil '(#$ . 596) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'editing-basics :type 'boolean)
#@346 Toggle Delete Selection mode.
With prefix ARG, turn Delete Selection mode on if ARG is
positive, off if ARG is not 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) "\303 	\304=\203\n?\202\305	!\306V\211\204 \307\310\311\"\210\202)\312\310\311\"\210\313\314!\210\315\316\n\2033\317\2024\320\"\210\321\322!\203Y\323\302!\210\303 \203L\303 \232\203Y\324\325\n\203V\326\202W\327\"\210)\330 \210\n\207" [#1=#:last-message arg delete-selection-mode current-message toggle prefix-numeric-value 0 remove-hook pre-command-hook delete-selection-pre-hook add-hook transient-mark-mode t run-hooks delete-selection-mode-hook delete-selection-mode-on-hook delete-selection-mode-off-hook called-interactively-p any customize-mark-as-set message "Delete-Selection mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1057) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [delete-selection-mode-map add-minor-mode delete-selection-mode nil boundp] 6)
(defalias 'delete-active-region #[(&optional killp) "\203
\301`\302 \"\210\202`\302 |\210\303\207" [killp kill-region mark t] 3])
(defalias 'delete-selection-pre-hook #[nil "\205	\205\n\205?\205\f9\205\f\306N\307\310\311\217)\207" [delete-selection-mode transient-mark-mode mark-active buffer-read-only this-command type delete-selection data (byte-code "\306=\203\n\307\310!\207\311=\203-\312`\313 \"	@\230\203*\314\315!\203*\315 \203*\316\317!\210\307 \207\320=\203E`\313 U\307 \210\n?\205C\321\211)\207\205b\307 \210\f\205b\322=\205b\323\322\324
!!\210\321\211)\207" [type kill-ring empty-region this-command overwrite-mode current-prefix-arg kill delete-active-region t yank buffer-substring-no-properties mark fboundp mouse-region-match current-kill 1 supersede ignore self-insert-command nil prefix-numeric-value] 3) ((file-supersession (byte-code "\302=\203\303\304\305	A\"\207" [inhibit-quit data pre-command-hook delete-selection-dummy signal file-supersession] 3)) (text-read-only (byte-code "\300\301!\210\302 \207" [message "Text is read-only" ding] 2)))] 3])
(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#\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] 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 (#$ . 3871) nil])
(byte-code "\305\306\307#\210\305	\306\307#\210\305\n\306\307#\210\305\306\307#\210\305\f\306\307#\207" [minibuffer-local-map minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-isearch-map define-key "" minibuffer-keyboard-quit] 4)
#@38 Unload the Delete Selection library.
(defalias 'delsel-unload-function #[nil "\306\307\310#\210\306	\307\310#\210\306\n\307\310#\210\306\307\310#\210\306\f\307\310#\210\311\312\211
\203:
@\313
\314\312#\210
A\211
\204'*\312\207" [minibuffer-local-map minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-isearch-map sym define-key "" abort-recursive-edit (self-insert-command self-insert-iso yank clipboard-yank insert-register delete-backward-char backward-delete-char-untabify delete-char newline-and-indent newline open-line) nil put delete-selection #1=#:--cl-dolist-temp--] 5 (#$ . 4526)])
(provide 'delsel)
