;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 22 05:49:02 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/delsel.el ;;; emacs version 19.6.18. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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 "ÀÁMˆÂÃMˆÄÅÂ\"ˆÆÇÈÉ#ˆÆÊÈÉ#ˆÆËÈÉ#ˆÆÌÈÍ#ˆÆÎÈÍ#ˆÆÏÈÍ#ˆÆÐÈÉ#ˆÆÑÈÉ#ˆÆÒÈÉ#ˆÓÔÕ\"‡" [delete-active-region #[(&optional killp) "ƒ Á` \"ˆ‚Ã` \"ˆÄÆÇ!ˆÈ‡" [killp kill-region mark delete-region 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 defalias 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)