;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:45 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/delsel.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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) #@242 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; use either \[customize] or the function `delete-selection-mode'. (custom-declare-variable 'delete-selection-mode 'nil '(#$ . 670) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'editing-basics :type 'boolean :require 'delsel) #@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\"\210\202$\307\305\306\"\210\310\311!\210\312\313 \203.\314\202/\315\"\210t\203B\316\317 \203?\320\202@\321\"\210\322 \210 \207" [arg delete-selection-mode 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 message "Delete-Selection mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1137) nil]) #@58 Hook run at the end of function `delete-selection-mode'. (custom-declare-variable 'delete-selection-mode-hook 'nil '(#$ . 2039) :group 'editing-basics :type 'hook) (byte-code "\303\301\304\305\306!\205 \306J#\210\203 \203\n\204\307\310\"\210\304\207" [load-file-name delete-selection-mode purify-flag add-minor-mode nil boundp delete-selection-mode-map eval-after-load (delete-selection-mode 1)] 5) (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 "\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 "\304=\203\n\305\306!\207\307=\203\"\310`\311 \" @\230\203\312\313!\210\305 \207\314=\203:`\311 U\305 \210\n?\2058\315\211)\207\205@\305 \207" [type kill-ring empty-region this-command kill delete-active-region t yank buffer-substring-no-properties mark current-kill 1 supersede ignore] 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)))] 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#\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 (#$ . 3855) 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) (defalias 'delsel-unload-hook #[nil "\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 "" abort-recursive-edit] 4]) (provide 'delsel)