;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@102 If non-nil, deleted region text is stored in this register. Value must be the register (key) to use. (defvar delete-selection-save-to-register nil (#$ . 84)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\"\210\300\316\302\303\317DD\320\321\322\323\324\312\325\310\311& \207" [custom-declare-variable delete-selection-temporary-region funcall function #[0 "\300\207" [nil] 1 #1=""] "Whether to delete only temporary regions.\nWhen non-nil, typed text replaces only the regions set by\nmouse-dragging, shift-selection, and \"\\[universal-argument] \\[exchange-point-and-mark]\" when\n`transient-mark-mode' is turned off. If the value is the symbol\n`selection', then replace only the regions set by mouse-dragging\nand shift-selection." :version "29.1" :group editing-basics :type (choice (const :tag "Replace all regions" nil) (const :tag "Replace region from mouse, shift-selection, and \"C-u C-x C-x\"" t) (const :tag "Replace region from mouse and shift-selection" selection)) defalias pending-delete-mode delete-selection-mode #[0 "\300\207" [nil] 1 #1#] "Non-nil if Delete-Selection mode is enabled.\nSee the `delete-selection-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `delete-selection-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean] 12)#@941 Toggle Delete Selection mode. When Delete Selection mode is enabled, typed text replaces the selection if the selection is active. Otherwise, typed text is just inserted at point regardless of any selection. See `delete-selection-helper' and `delete-selection-pre-hook' for information on adapting behavior of commands in Delete Selection mode. This is a global minor mode. If called interactively, toggle the `Delete-Selection mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='delete-selection-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'delete-selection-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \204D\313\314\315\"\210\202I\316\314\315\"\210\317\320\305\301!\203U\321\202V\322\"\210\323\324!\203\325\301!\210\302 \203n\211\302 \232\203\326\327\330\305\301!\203{\331\202|\332\333$\210\210\334 \210\305\301!\207" [global-minor-modes delete-selection-mode current-message set-default toggle default-value 1 nil t boundp delq remove-hook pre-command-hook delete-selection-pre-hook add-hook 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 "%s %sabled%s" "Delete-Selection mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 1552) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar delete-selection-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [delete-selection-mode-map delete-selection-mode-hook variable-documentation put "Hook run after entering or leaving `delete-selection-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode delete-selection-mode boundp] 6) (defvar delsel--replace-text-or-position nil)#@169 Delete the active region. If KILLP is non-nil, or if called interactively with a prefix argument, the active region is killed instead of deleted. (fn &optional KILLP) (defalias 'delete-active-region #[256 "\211\203\305\306`\307 \310#)\207 \203%\311 \n\310!\"\210p :\205! @B\211\207\n\312!\207" [this-command delete-selection-save-to-register region-extract-function buffer-undo-list delsel--replace-text-or-position nil kill-region mark t set-register delete-only] 5 (#$ . 3992) "P"])#@383 Repeat replacing text of highlighted region with typed text. Search for the next stretch of text identical to the region last replaced by typing text over it and replaces it with the same stretch of text. With ARG (interactively, prefix numeric argument), repeat that many times. Just `\[universal-argument]' means repeat until the end of the buffer's accessible portion. (fn ARG) (defalias 'delete-selection-repeat-replace-region #[257 "\205\304!:\203d\202\305 !\203*G\306V\203*\n;\204.\307\n@!\204.\310\311!\207\n:\203\317\n@\nA\312rq\210\214~\210 \312\211\211\203\217:\203\217@\262A\262=\203a\312\262\202H:\203H@\250\203HA\250\203H\203\204AU\203\204@\262\202H@\262A\262\202H\203\266\211\203\266X\203\266\313\314!U\203\266\315\"\316\306\nG\312\n$\266\202\314\204\307=\203\307\317\266\202\314\310\320!\266*\266\211\306V\205\356\n\205\356\321\312\314#\205\356\322\n\312\314#\210\211S\262\202\317\207" [delete-selection-save-to-register current-prefix-arg delsel--replace-text-or-position buffer-undo-list get-register prefix-numeric-value 0 buffer-live-p message "No known previous replacement" nil mark t filter-buffer-substring set-text-properties "" "Cannot locate replacement text" search-forward replace-match] 14 (#$ . 4490) "P"])#@1068 Delete selection according to TYPE: `yank' For commands which do a yank; ensures the region about to be deleted isn't immediately yanked back, which would make the command a no-op. `supersede' Delete the active region and ignore the current command, i.e. the command will just delete the region. This is for commands that normally delete small amounts of text, like a single character -- they will instead delete the whole active region. `kill' `kill-region' is used on the selection, rather than `delete-region'. (Text selected with the mouse will typically be yankable anyhow.) FUNCTION For commands which need to dynamically determine this behavior. FUNCTION should take no argument and return a value acceptable as TYPE, or nil. In the latter case, FUNCTION should itself do with the active region whatever is appropriate. Other non-nil values The normal case: delete the active region prior to executing the command which will insert replacement text. (fn TYPE) (defalias 'delete-selection-helper #[257 "\3041\251\3051\236\3061\231\211\307\267\202k\310\311!\210\205\225 \312=\205\225\313\312\314\n!!\210\315\211)\202\225\316`\317 \" @\230\203I\320\321!\203I\321 \203I\322\323!\210\324\325 !\310 \210\211b\262\202\225`\317 U\310 \210\211?\205f\315\211\262\202\225\326!\203x\327 !\202\225\211\205\225\310 \210\205\225 \312=\205\225\313\312\314\n!!\210\315\211)000\20700\330 \2070\331\332A@\"\210\330 \207\331\333!\210\330 \207" [overwrite-mode this-command current-prefix-arg kill-ring (text-read-only) (file-supersession) (quit) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (kill 18 yank 47 supersede 87)) delete-active-region t self-insert-command nil prefix-numeric-value ignore buffer-substring-no-properties mark fboundp mouse-region-match current-kill 1 copy-marker region-beginning functionp delete-selection-helper ding message "%s" "Text is read-only"] 5 (#$ . 5814)])#@275 Function run before commands that delete selections are executed. Commands which will delete the selection need a `delete-selection' property on their symbol; commands which insert text but don't have this property won't delete the selection. See `delete-selection-helper'. (defalias 'delete-selection-pre-hook #[0 "\2059\305 \2059 ?\2059\n\203/\n\203\" :\203\" @\306=\204/\n\307=?\2059 \310=\2059\311\f9\2058\f\312N!\207" [delete-selection-mode buffer-read-only delete-selection-temporary-region transient-mark-mode this-command use-region-p only selection lambda delete-selection-helper delete-selection] 3 (#$ . 7871)])#@598 Return t when `delete-selection-mode' should not delete the region. The `self-insert-command' could be the current command or may be called by the current command. If this function returns nil, then `delete-selection' is allowed to delete the region. This function is intended for use as the value of the `delete-selection' property of a command, and shouldn't be used for anything else. In particular, `self-insert-command' has this function as its `delete-selection' property, so that "electric" self-insert commands that act on the region could adapt themselves to `delete-selection-mode'. (defalias 'delete-selection-uses-region-p #[0 "\300\301!?\207" [run-hook-with-args-until-success self-insert-uses-region-functions] 2 (#$ . 8511)]) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\305#\210\300\307\302\307#\210\300\310\302\307#\210\300\311\302\307#\210\300\312\302\307#\210\300\313\302\305#\210\300\314\302\315#\210\300\316\302\305#\210\300\317\302\305#\210\300\320\302\305#\210\300\321\302\305#\210\300\322\302\305#\207" [put self-insert-command delete-selection delete-selection-uses-region-p insert-char t quoted-insert yank yank-pop yank-from-kill-ring clipboard-yank insert-register delete-char supersede reindent-then-newline-and-indent newline-and-indent newline electric-newline-and-maybe-indent open-line] 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 #[0 "\203 \302 \203 \303\211\207\304 \207" [delete-selection-mode deactivate-mark region-active-p t abort-minibuffers] 2 (#$ . 9866) nil]) (define-key minibuffer-local-map "" 'minibuffer-keyboard-quit)#@38 Unload the Delete Selection library. (defalias 'delsel-unload-function #[0 "\301\302\303#\210\304\211\203\211@\305\306\307#\210A\266\202\202\210\307\207" [minibuffer-local-map define-key "" abort-recursive-edit (self-insert-command insert-char quoted-insert yank clipboard-yank insert-register newline-and-indent reindent-then-newline-and-indent newline open-line) put delete-selection nil] 6 (#$ . 10270)]) (provide 'delsel)