| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/delsel.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:14 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/delsel.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\"\210\303\302\304\305\306\307\310\311\312\313\314\315& \207" [defalias pending-delete-mode delete-selection-mode custom-declare-variable nil "Non-nil if Delete-Selection mode is enabled.\nSee the command `delete-selection-mode' for 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 :group editing-basics :type boolean] 12)
#@418 Toggle Delete Selection mode.
With a prefix argument ARG, enable Delete Selection mode if ARG
is positive, and disable it otherwise. If called from Lisp,
enable the mode if ARG is omitted or nil.
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 (#$ . 1111) (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)
#@96 Delete the active region.
If KILLP in not-nil, the active region is killed instead of deleted.
(defalias 'delete-active-region #[(&optional killp) "\203
\301`\302 \"\210\202 `\302 |\210\303\207" [killp kill-region mark t] 3 (#$ . 2424)])
#@706 Delete selection according to TYPE:
`yank'
For commands which do a yank; ensures the region about to be
deleted isn't yanked.
`supersede'
Delete the active region and ignore the current command,
i.e. the command will just delete the region.
`kill'
`kill-region' is used on the selection, rather than
`delete-region'. (Text selected with the mouse will typically
be yankable anyhow.)
t
The normal case: delete the active region prior to executing
the command which will insert replacement text.
FUNCTION
For commands which need to dynamically determine this behaviour.
FUNCTION should take no argument and return one of the above values or nil.
(defalias 'delete-selection-helper #[(type) "\300\301\302\217\207" [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\322!\203P \323 !\207\205m \307 \210\f\205m \324=\205m \325 \324\326
!!\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 functionp delete-selection-helper self-insert-command nil prefix-numeric-value] 3) ((file-supersession (byte-code "\302\303\211A@)\"\210\304 \207" [data x message "%s" ding] 4)) (text-read-only (byte-code "\300\301!\210\302 \207" [message "Text is read-only" ding] 2)))] 3 (#$ . 2672)])
#@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 #[nil "\205 \303 \205 ?\205 \304\n9\205 \n\305N!\207" [delete-selection-mode buffer-read-only this-command use-region-p delete-selection-helper delete-selection] 3 (#$ . 4219)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\306#\210\300\307\302\306#\210\300\310\302\305#\210\300\311\302\312#\210\300\313\302\312#\210\300\314\302\312#\210\300\315\302\305#\210\300\316\302\305#\210\300\317\302\320#\207" [put self-insert-command delete-selection #[nil "\300\301!?\207" [run-hook-with-args-until-success self-insert-uses-region-functions] 2] self-insert-iso t 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 (#$ . 5276) 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 --dolist-tail--] 5 (#$ . 5931)])
(provide 'delsel)