Current File : //usr/local/share/emacs/27.2/lisp/emulation/cua-base.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\304\305\306\307\306\310\306\311\312\313\314\315\314\316&\210\317\320\321\322\323\324\306\301&\210\317\325\321\326\323\327\306\301&\210\317\330\321\331\323\327\306\301&\210\317\332\302\333\323\327\306\301&\210\334\332\335\336#\210\317\337\340\341\323\342\306\301&\210\317\343\321\344\323\345\306\301&\210\317\346\302\347\323\327\306\301&\210\317\350\321\351\323\352\306\301&\210\317\353\302\354\323\327\306\301&\210\317\355\356\357\323\360\306\301&\210\317\361\321\362\323\327\306\301&\210\317\363\302\364\323\327\306\301&\210\317\365\302\366\323\327\306\301&\210\317\367\321\370\323\327\306\301&\210\317\371\302\372\323\327\306\301&\210\317\373\321\374\323\327\306\301&\210\317\375\376\377\323\201@ \306\301&\210\317\201A \201B \201C \201D \201E \323\201F \306\301& \210\317\201G \201H \201I \323\201J \306\301&\210\317\201K \201L \201M \323\201N \306\301\312\201O & \210\317\201P \321\201Q \323\327\306\301&\210\201R \201S \201T \201U \306\301%\210\201R \201V \201W \201X \306\301%\210\317\201Y \321\201Z \323\327\306\301&\210\201R \201[ \201\\ \201] \306\301%\210\317\201^ \201_ \201` \323\201a \306\301&\210\317\201b \302\201c \323\327\306\301&\210\317\201d \201e \201f \201g \201h \323\201i \306\301& \210\317\201j \201k \201l \323\201m \306\301&\210\317\201n \201o \201p \323\201q \306\301&\210\317\201r \201s \201t \323\201u \306\301&\207" [custom-declare-group cua nil "Emulate CUA key bindings including C-x and C-c." :prefix "cua" :group editing-basics convenience emulations :version "22.1" :link (emacs-commentary-link :tag "Commentary" "cua-base.el") (emacs-library-link :tag "Lisp File" "cua-base.el") custom-declare-variable cua-enable-cua-keys t "Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste.\nIf the value is t, these mappings are always enabled. If the value is\n`shift', these keys are only enabled if the last region was marked with\na shifted movement key. If the value is nil, these keys are never\nenabled." :type (choice (const :tag "Disabled" nil) (const :tag "Shift region only" shift) (other :tag "Enabled" t)) cua-remap-control-v "If non-nil, C-v binding is used for paste (yank).\nAlso, M-v is mapped to `delete-selection-repeat-replace-region'." boolean cua-remap-control-z "If non-nil, C-z binding is used for undo." cua-highlight-region-shift-only "If non-nil, only highlight region if marked with S-<move>.\nWhen this is non-nil, CUA toggles `transient-mark-mode' on when the region\nis marked using shifted movement keys, and off when the mark is cleared.\nBut when the mark was set using \\[cua-set-mark], Transient Mark mode\nis not turned on." make-obsolete-variable transient-mark-mode "24.4" cua-prefix-override-inhibit-delay 0.2 "If non-nil, time in seconds to delay before overriding prefix key.\nIf there is additional input within this time, the prefix key is\nused as a normal prefix key. So typing a key sequence quickly will\ninhibit overriding the prefix key.\nAs a special case, if the prefix key is repeated within this time, the\nfirst prefix key is discarded, so typing a prefix key twice in quick\nsuccession will also inhibit overriding the prefix key.\nIf the value is nil, use a shifted prefix key to inhibit the override." (choice (number :tag "Inhibit delay") (const :tag "No delay" nil)) cua-delete-selection "If non-nil, typed text replaces text in the active selection." (choice (const :tag "Disabled" nil) (other :tag "Enabled" t)) cua-keep-region-after-copy "If non-nil, don't deselect the region after copying." cua-toggle-set-mark "If non-nil, the `cua-set-mark' command toggles the mark." (choice (const :tag "Disabled" nil) (other :tag "Enabled" t)) cua-auto-mark-last-change "If non-nil, set implicit mark at position of last buffer change.\nThis means that \\[universal-argument] \\[cua-set-mark] will jump to the position\nof the last buffer change before jumping to the explicit marks on the mark ring.\nSee `cua-set-mark' for details." cua-enable-register-prefix 'not-ctrl-u "If non-nil, registers are supported via numeric prefix arg.\nIf the value is t, any numeric prefix arg in the range 0 to 9 will be\ninterpreted as a register number.\nIf the value is `not-ctrl-u', using C-u to enter a numeric prefix is not\ninterpreted as a register number.\nIf the value is `ctrl-u-only', only numeric prefix entered with C-u is\ninterpreted as a register number." (choice (const :tag "Disabled" nil) (const :tag "Enabled, but C-u arg is not a register" not-ctrl-u) (const :tag "Enabled, but only for C-u arg" ctrl-u-only) (other :tag "Enabled" t)) cua-delete-copy-to-register-0 "If non-nil, save last deleted region or rectangle to register 0." cua-enable-region-auto-help "If non-nil, automatically show help for active region." cua-enable-modeline-indications "If non-nil, use minor-mode hook to show status in mode line." cua-check-pending-input "If non-nil, don't override prefix key if input pending.\nIt is rumored that `input-pending-p' is unreliable under some window\nmanagers, so try setting this to nil, if prefix override doesn't work." cua-paste-pop-rotate-temporarily "If non-nil, \\[cua-paste-pop] only rotates the kill-ring temporarily.\nThis means that both \\[yank] and the first \\[yank-pop] in a sequence always insert\nthe most recently killed text. Each immediately following \\[cua-paste-pop] replaces\nthe previous text with the next older element on the `kill-ring'.\nWith prefix arg, \\[universal-argument] \\[yank-pop] inserts the same text as the most\nrecent \\[yank-pop] (or \\[yank]) command." cua-virtual-rectangle-edges "If non-nil, rectangles have virtual straight edges.\nNote that although rectangles are always DISPLAYED with straight edges, the\nbuffer is NOT modified, until you execute a command that actually modifies it.\nM-p toggles this feature when a rectangle is active." cua-auto-tabify-rectangles 1000 "If non-nil, automatically tabify after rectangle commands.\nThis basically means that `tabify' is applied to all lines that\nare modified by inserting or deleting a rectangle. If value is\nan integer, CUA will look for existing tabs in a region around\nthe rectangle, and only do the conversion if any tabs are already\npresent. The number specifies then number of characters before\nand after the region marked by the rectangle to search." (choice (number :tag "Auto detect (limit)") (const :tag "Disabled" nil) (other :tag "Enabled" t)) cua-rectangle-mark-key [(control return)] "Global key used to toggle the cua rectangle mark." :set #[(symbol value) " L\210\306\302!\205% \n\205% \307 \310#\210\306\304!\205% \307\f \311#\210\307
\312#\207" [symbol value cua--keymaps-initialized cua-global-keymap cua--rectangle-keymap cua--region-keymap boundp define-key cua-set-rectangle-mark cua-clear-rectangle-mark cua-toggle-rectangle-mark] 4] key-sequence cua-rectangle-modifier-key 'meta "Modifier key used for rectangle commands bindings.\nOn non-window systems, use `cua-rectangle-terminal-modifier-key'.\nMust be set prior to enabling CUA." (choice (const :tag "Meta key" meta) (const :tag "Alt key" alt) (const :tag "Hyper key" hyper) (const :tag "Super key" super)) cua-rectangle-terminal-modifier-key 'meta "Modifier key used for rectangle commands bindings in terminals.\nMust be set prior to enabling CUA." (choice (const :tag "Meta key" meta) (const :tag "Alt key" alt) (const :tag "Hyper key" hyper) (const :tag "Super key" super)) "27.1" cua-enable-rectangle-auto-help "If non-nil, automatically show help for region, rectangle and global mark." custom-declare-face cua-rectangle ((default :inherit region) (((class color)) :foreground "white" :background "maroon")) "Font used by CUA for highlighting the rectangle." cua-rectangle-noselect ((default :inherit region) (((class color)) :foreground "white" :background "dimgray")) "Font used by CUA for highlighting the non-selected rectangle lines." cua-global-mark-keep-visible "If non-nil, always keep global mark visible in other window." cua-global-mark ((((min-colors 88) (class color)) :foreground "black" :background "yellow1") (((class color)) :foreground "black" :background "yellow") (t :weight bold)) "Font used by CUA for highlighting the global mark." cua-global-mark-blink-cursor-interval 0.2 "Blink cursor at this interval when global mark is active." (choice (number :tag "Blink interval") (const :tag "No blink" nil)) cua-enable-cursor-indications "If non-nil, use different cursor colors for indications." cua-normal-cursor-color (or (and (boundp 'initial-cursor-color) initial-cursor-color) (and (boundp 'initial-frame-alist) (assoc 'cursor-color initial-frame-alist) (cdr (assoc 'cursor-color initial-frame-alist))) (and (boundp 'default-frame-alist) (assoc 'cursor-color default-frame-alist) (cdr (assoc 'cursor-color default-frame-alist))) (frame-parameter nil 'cursor-color) "red") "Normal (non-overwrite) cursor color.\nDefault is to load cursor color from initial or default frame parameters.\n\nIf the value is a COLOR name, then only the `cursor-color' attribute will be\naffected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),\nthen only the `cursor-type' property will be affected. If the value is\na cons (TYPE . COLOR), then both properties are affected." :initialize custom-initialize-default (choice (color :tag "Color") (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (cons :tag "Color and Type" (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (color :tag "Color"))) cua-read-only-cursor-color "darkgreen" "Cursor color used in read-only buffers, if non-nil.\nOnly used when `cua-enable-cursor-indications' is non-nil.\n\nIf the value is a COLOR name, then only the `cursor-color' attribute will be\naffected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),\nthen only the `cursor-type' property will be affected. If the value is\na cons (TYPE . COLOR), then both properties are affected." (choice (color :tag "Color") (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (cons :tag "Color and Type" (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (color :tag "Color"))) cua-overwrite-cursor-color "yellow" "Cursor color used when overwrite mode is set, if non-nil.\nOnly used when `cua-enable-cursor-indications' is non-nil.\n\nIf the value is a COLOR name, then only the `cursor-color' attribute will be\naffected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),\nthen only the `cursor-type' property will be affected. If the value is\na cons (TYPE . COLOR), then both properties are affected." (choice (color :tag "Color") (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (cons :tag "Color and Type" (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (color :tag "Color"))) cua-global-mark-cursor-color "cyan" "Indication for active global mark.\nWill change cursor color to specified color if string.\nOnly used when `cua-enable-cursor-indications' is non-nil.\n\nIf the value is a COLOR name, then only the `cursor-color' attribute will be\naffected. If the value is a cursor TYPE (one of: box, hollow, bar, or hbar),\nthen only the `cursor-type' property will be affected. If the value is\na cons (TYPE . COLOR), then both properties are affected." (choice (color :tag "Color") (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (cons :tag "Color and Type" (choice :tag "Type" (const :tag "Filled box" box) (const :tag "Vertical bar" bar) (const :tag "Horizontal bar" hbar) (const :tag "Hollow box" hollow)) (color :tag "Color")))] 18)
#@42 Start rectangle at mouse click position.
(autoload 'cua-set-rectangle-mark "cua-rect" '(#$ . 12620) t nil)
(byte-code "\303\304\305\306\307$\210\310\311!\204 \306\211\303\312\313\306\307\306%\210\310\314!\204! \306\306\207" [cua--rectangle cua--last-killed-rectangle cua--global-mark-active autoload cua-toggle-rectangle-mark "cua-rect" nil t featurep cua-rect cua-toggle-global-mark "cua-gmrk" cua-gmrk] 7)
#@61 Buffer-local variable that may disable the CUA keymappings.
(defvar cua-inhibit-cua-keys nil (#$ . 13038))
(make-variable-buffer-local 'cua-inhibit-cua-keys)
(defvar cua--buffer-and-point-before-command nil)
(defvar cua--status-string nil)
(make-variable-buffer-local 'cua--status-string)
(defvar cua--debug nil)
(defvar cua--prefix-override-timer nil)
(defvar cua--prefix-override-length nil)
(defalias 'cua--prefix-override-replay #[(repeat) "\306 \211G SH Z \307V\2062
\203 \310 \2062 \247?\2062 \307X\2062 \311\312\313#\314 \210\315\nBB\211+\207" [keys i key repeat cua--prefix-override-length cua-check-pending-input this-command-keys 0 input-pending-p run-with-timer nil cua--prefix-override-timeout prefix-command-preserve-state no-record cua-prefix-override-inhibit-delay cua--prefix-override-timer last-command this-command unread-command-events] 5])
#@140 Start timer waiting for prefix key to be followed by another key.
Repeating prefix key when region is active works as a single prefix key.
(defalias 'cua--prefix-override-handler #[nil "\300\301!\207" [cua--prefix-override-replay 0] 2 (#$ . 13929) nil])
#@74 Repeating prefix key when region is active works as a single prefix key.
(defalias 'cua--prefix-repeat-handler #[nil "\300\301!\207" [cua--prefix-override-replay 1] 2 (#$ . 14189) nil])
#@46 Copy region/rectangle, then replay last key.
(defalias 'cua--prefix-copy-handler #[(arg) "\303!\210\304 \211\211GSH\nB\211)\207" [arg keys unread-command-events cua-copy-region this-single-command-keys] 3 (#$ . 14381) "P"])
#@45 Cut region/rectangle, then replay last key.
(defalias 'cua--prefix-cut-handler #[(arg) "\303!\210\304 \211\211GSH\nB\211)\207" [arg keys unread-command-events cua-cut-region this-single-command-keys] 3 (#$ . 14614) "P"])
(defalias 'cua--prefix-override-timeout #[nil "\305\306 G U\205 \307\nB \204 \310\311 \207" [cua--prefix-override-timer cua--prefix-override-length unread-command-events prefix-arg overriding-terminal-local-map t this-command-keys timeout nil cua--select-keymaps] 2])
(defalias 'cua--fallback #[nil "\302 !\207" [this-original-command this-command call-interactively] 2])
(defalias 'cua--keep-active #[nil "\302\303!\205 \303\304\211\207" [mark-active deactivate-mark mark t nil] 2])
(defalias 'cua--deactivate #[(&optional now) "\204 \302\211\207\301 \207" [now deactivate-mark t] 2])
(defalias 'cua--filter-buffer-noprops #[(start end) "\303 \"\304\305\nG\306\n$\210\n)\207" [start end str filter-buffer-substring set-text-properties 0 nil] 5])
(defvar cua--register nil)
(defalias 'cua--prefix-arg #[(arg) "\205: \250\205: \305Y\205: \306W\205: \307 \305H\211\250\205\" \n\310U\311\267\2022 ?\2023 \2023 \312*\205: \313\\\211?\205A \207" [cua-enable-register-prefix arg prefix ctrl-u-prefix cua--register 0 10 this-command-keys 21 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (not-ctrl-u 41 ctrl-u-only 46)) t 48] 3])
#@100 Delete the active region.
Save a copy in register 0 if `cua-delete-copy-to-register-0' is non-nil.
(defalias 'cua-delete-region #[nil "\300\301!\210\302 \207" [require delsel delete-active-region] 2 (#$ . 16033) nil])
#@90 Copy the region to the kill ring.
With numeric prefix arg, copy to register 0-9 instead.
(defalias 'cua-copy-region #[(arg) "\306!\307\310 `\211\nX\204 \n \f\203$ \311\f \n\307\312%\210\2029
\313=\2033 \313 \n\312#\210\2029 \314 \n\312#\210\203C \315 \202E \316 *\207" [arg cua--last-killed-rectangle end start cua--register this-original-command cua--prefix-arg nil mark copy-to-register region clipboard-kill-ring-save copy-region-as-kill cua--keep-active cua--deactivate cua-keep-region-after-copy] 7 (#$ . 16257) "P"])
#@98 Cut the region and copy to the kill ring.
With numeric prefix arg, copy to register 0-9 instead.
(defalias 'cua-cut-region #[(arg) "\306 \203\n \307\n!\207\310\n!\311 `\211 X\204 \f
\203, \312
\f \313\314%\210\202B \315=\203< \315\f \314#\210\202B \316\f \314#\210*\317 \207" [cua--last-killed-rectangle buffer-read-only arg end start cua--register nil cua-copy-region cua--prefix-arg mark copy-to-register t region clipboard-kill-region kill-region cua--deactivate this-original-command] 7 (#$ . 16797) "P"])
#@54 Cancel the active region, rectangle, or global mark.
(defalias 'cua-cancel #[nil "\301\302\303!\205\n \303 \207" [mark-active nil fboundp cua--cancel-rectangle] 2 (#$ . 17323) nil])
(put 'cua-paste 'delete-selection 'yank)
#@226 Paste last cut or copied region or rectangle.
An active region is deleted before executing the command.
With numeric prefix arg, paste from register 0-9 instead.
If global mark is active, copy from register or one character.
(defalias 'cua-paste #[(arg) "\306! \205 \307 !\310! \203 \204 \311\312 \"\202{ \f\203@ \203- \313 !\202{ m?\205{ \313\314``\n\\\"!\210\nu\202{
\203J \315\316!\202{ \203k :\203Y \317 !\202{ ;\203d \320 !\202{ \311\321 \"\202{ \322>\203x \202{ \323!*\207" [arg cua--register count regtxt cua--global-mark-active buffer-read-only cua--prefix-arg get-register prefix-numeric-value message "Nothing in register %c" cua--insert-at-global-mark filter-buffer-substring error "Cannot paste into a read-only buffer" cua--insert-rectangle insert-for-yank "Unknown data in register %c" (clipboard-yank x-clipboard-yank) yank this-original-command] 5 (#$ . 17554) "P"])
(defvar cua-paste-pop-count nil)
#@189 Replace a just-pasted text or rectangle with a different text.
See `yank-pop' for details about the default behavior. For an alternative
behavior, see `cua-paste-pop-rotate-temporarily'.
(defalias 'cua-paste-pop #[(arg) "\306=\203
\307 \210\310 !\207\n\204 \311\312 !!\207 :\203 \313\202# \312 !\f\2034 \310=\2044 \314=\203? \310\311\f!\210\202k \315=\203W :\204W \f \\\310\311\f!\210\202k :\203d \316\f \317#\202e \313\310\fT!\210)
\315\211\207" [last-command arg cua-paste-pop-rotate-temporarily rotate cua-paste-pop-count kill-ring cua--paste-rectangle undo yank yank-pop prefix-numeric-value 1 cua-paste cua-paste-pop + -1 kill-ring-yank-pointer this-command] 4 (#$ . 18497) "P"])
#@184 Exchange point and mark.
Don't activate the mark if `cua-enable-cua-keys' is non-nil.
Otherwise, just activate the mark if a prefix ARG is given.
See also `exchange-point-and-mark'.
(defalias 'cua-exchange-point-and-mark #[(arg) "\204 \304 !\207 \203 \305\306!\205# \306\211\207\307\304 \210 \205\" \310\311!)\207" [cua-enable-cua-keys arg mark-active cua--rectangle exchange-point-and-mark mark t nil cua--rectangle-corner 0] 2 (#$ . 19210) "P"])
#@41 Show region specific help in echo area.
(defalias 'cua-help-for-region #[(&optional help) "\301\203 \302\202\n \303\304P!\207" [help message "C-?:help " "" "C-z:undo C-x:cut C-c:copy C-v:paste S-ret:rect"] 3 (#$ . 19670) nil])
(defalias 'cua-pop-to-last-change #[nil "\304\211\n\204Z :\203Z @ A \250\203 \211\202 :\203 A\250\203> @\250\2047 @;\203> A\211\202 @\305=\203 A:\203 A@\250\203 \306 8\211\203\n \n\205u \n`U?\205u \neY\205u \ndX\205u \nb\210\307+\207" [buffer-undo-list elt pos undo-list nil apply 3 t] 4])
#@804 Set mark at where point is, clear mark, or jump to mark.
With no prefix argument, clear mark if already set. Otherwise, set
mark, and push old mark position on local mark ring; also push mark on
global mark ring if last mark was set in another buffer.
With argument, jump to mark, and pop a new position for mark off
the local mark ring (this does not affect the global mark ring).
Use \[pop-global-mark] to jump to a mark off the global mark ring
(see `pop-global-mark').
If `cua-auto-mark-last-change' is non-nil, this command behaves as if there
was an implicit mark at the position of the last buffer change.
Repeating the command without the prefix jumps to the next position
off the local (or global) mark ring.
With a double \[universal-argument] prefix argument, unconditionally set mark.
(defalias 'cua-set-mark #[(&optional arg) ":\203 \306!\307V\203 \310\311!\207 \312=\203 \312\211 \207 \313=\203+ \204+ \313\211 \207\203= \312 \203: \314 \206Y \312 \207\f\203M \315 \203M \316 \210\317\320!\207\310\311\211\"\210
\205Y \321\322!\207" [arg last-command this-command cua-auto-mark-last-change cua-toggle-set-mark cua-enable-region-auto-help prefix-numeric-value 4 push-mark-command nil pop-to-mark-command pop-global-mark cua-pop-to-last-change region-active-p cua--deactivate message "Mark cleared" cua-help-for-region t] 4 (#$ . 20223) "P"])
#@328 Scroll text of current window upward ARG lines; or near full screen if no ARG.
If window cannot be scrolled further, move cursor to bottom line instead.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll downward.
If ARG is the atom `-', scroll downward by nearly full screen.
(defalias 'cua-scroll-up #[(&optional arg) "\301=\203\n \302\303!\207\304!\305W\203 \302\304![!\207m\203! \306!\207\3071* \306!0\207\210db\207" [arg - cua-scroll-down nil prefix-numeric-value 0 scroll-up (end-of-buffer)] 3 (#$ . 21601) "^P"])
(put 'cua-scroll-up 'isearch-scroll t)
#@323 Scroll text of current window downward ARG lines; or near full screen if no ARG.
If window cannot be scrolled further, move cursor to top line instead.
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll upward.
If ARG is the atom `-', scroll upward by nearly full screen.
(defalias 'cua-scroll-down #[(&optional arg) "\301=\203\n \302\303!\207\304!\305W\203 \302\304![!\207o\203! \306!\207\3071* \306!0\207\210eb\207" [arg - cua-scroll-up nil prefix-numeric-value 0 scroll-down (beginning-of-buffer)] 3 (#$ . 22223) "^P"])
(put 'cua-scroll-down 'isearch-scroll t)
(defalias 'cua--update-indications #[nil "\203\f \203\f \202& \n\203 \203 \202& \f\203$
\203$ \f\202&
\211 :\2033 A\2025 :\203C @\202E \203a ;\203a \306\307\310\"\232\204a \311!\210\205{ 9\205{ \312\313!=?\205{ \314\313\"+\207" [cua--global-mark-active cua-global-mark-cursor-color buffer-read-only cua-read-only-cursor-color cua-overwrite-cursor-color overwrite-mode frame-parameter nil cursor-color set-cursor-color default-value cursor-type set-default cua-normal-cursor-color cursor color type] 5])
(defalias 'cua--pre-command-handler-1 #[nil "\203 \303!\203 \304!\210\305 \205 p`B\211\207" [cua--prefix-override-timer cua--rectangle cua--buffer-and-point-before-command timerp cancel-timer nil] 2])
(defalias 'cua--pre-command-handler #[nil "\205 \3011\f \302 0\207\210\303\207" [cua-mode (error) cua--pre-command-handler-1 nil] 1])
(defalias 'cua--post-command-handler-1 #[nil "\203 \305 \210\306\307!\203 \307 \210\310\n\203- \203 \311 \210\202- \312 \203- \313\314\315\316!`#\210\f\2034 \317 \210\320 \207" [cua--global-mark-active cua--buffer-and-point-before-command cua--debug cua--rectangle cua-enable-cursor-indications cua--global-mark-post-command fboundp cua--rectangle-post-command nil cua--rectangle-assert region-active-p message "Mark=%d Point=%d" mark t cua--update-indications cua--select-keymaps] 4])
(defalias 'cua--post-command-handler #[nil "\205 \3011\f \302 0\207\210\303\207" [cua-mode (error) cua--post-command-handler-1 nil] 1])
(defvar cua--rectangle-modifier-key 'meta)
(defalias 'cua--M/H-key #[(map key fct) "<\204 C\304 \305\nB! #\207" [key map cua--rectangle-modifier-key fct define-key vector] 5])
(defalias 'cua--self-insert-char-p #[(def) "\301\302 !\303=\205\n \207" [def global-key-binding this-single-command-keys self-insert-command] 2])
#@59 Global keymap for cua-mode; users may add to this keymap.
(defvar cua-global-keymap (make-sparse-keymap) (#$ . 24696))
(defvar cua--cua-keys-keymap (make-sparse-keymap))
(defvar cua--prefix-override-keymap (make-sparse-keymap))
(defvar cua--prefix-repeat-keymap (make-sparse-keymap))
(defvar cua--global-mark-keymap (make-sparse-keymap))
(defvar cua--rectangle-keymap (make-sparse-keymap))
(defvar cua--region-keymap (make-sparse-keymap))
(defvar cua--ena-cua-keys-keymap nil)
(defvar cua--ena-prefix-override-keymap nil)
(defvar cua--ena-prefix-repeat-keymap nil)
(defvar cua--ena-region-keymap nil)
(defvar cua--ena-global-mark-keymap nil)
(defvar cua--keymap-alist (byte-code "\306B\307 B\310\nB\311 B\312\fB\313
B\314
B\257\207" [cua--prefix-override-keymap cua--prefix-repeat-keymap cua--cua-keys-keymap cua--global-mark-keymap cua--rectangle-keymap cua--region-keymap cua--ena-prefix-override-keymap cua--ena-prefix-repeat-keymap cua--ena-cua-keys-keymap cua--ena-global-mark-keymap cua--rectangle cua--ena-region-keymap cua-mode cua-global-keymap] 8))
(defalias 'cua--select-keymaps #[nil "\306 \205 ?\211\205' \n\205' ?\205' \n\307=\204 \306 \205' \f?\205'
? \2056 \310
!\2066
\311=\f\n\205I ?\205I \n\307=\206I \306
\205S \312 ?\211\207" [deactivate-mark cua--ena-region-keymap cua-enable-cua-keys cua-inhibit-cua-keys executing-kbd-macro cua--prefix-override-timer region-active-p t timerp shift window-minibuffer-p cua--ena-prefix-override-keymap cua--ena-prefix-repeat-keymap cua--ena-cua-keys-keymap cua--global-mark-active cua--ena-global-mark-keymap] 3])
(defvar cua--keymaps-initialized nil)
(defalias 'cua--shift-control-prefix #[(prefix) "\305 \210\306 \211\fBB\211\207" [last-command this-command cua--prefix-override-timer prefix unread-command-events prefix-command-preserve-state shift] 3])
(defalias 'cua--shift-control-c-prefix #[nil "\300\301!\207" [cua--shift-control-prefix 3] 2 nil nil])
(defalias 'cua--shift-control-x-prefix #[nil "\300\301!\207" [cua--shift-control-prefix 24] 2 nil nil])
(defalias 'cua--init-keymaps #[nil "\306\307 !\310=\203
\202 \311 \f\312#\210\n\313=\204+ \314 \315\312#\210\311 \316\n\317D!\320#\210\311 \321\322#\210\311 \323\324#\210\311 \325\324#\210\311 \326\324#\210\311 \327\330#\210\311 \331\332#\210\311 \333\334#\210\311 \335\336#\210\311 \337\340#\210\311 \341\336#\210\311 \342\340#\210\311
\343\344#\210\311
\345\346#\210@\203\204 \311
\347\350#\210A\203\225 \311
\351\352#\210\311
\353\354#\210\311B\355\356#\210\311B\357\356#\210\311C\360\361#\210\311C\362\361#\210\363\364 D\211 E\203\337 E@D\311C\316\365D\"\366#\210\311C\316\367D\"\370#\210EA\211E\204\273 *\311F\371\372#\210\311F\373\374#\210\311F\375\376#\210\311F\377\376#\210\311F\201G \376#\210\311F\201H \376#\210\311F\201I \376#\210\311F\201J \201K #\210\311F\201L \201K #\210\311F\201M \201N #\210\311F\201O \201N #\210\311F\201P \201N #\210\311F\201Q \201R #\210\311F\201S \201R #\207" [cua-rectangle-terminal-modifier-key cua-rectangle-modifier-key cua--rectangle-modifier-key cua-global-keymap cua-rectangle-mark-key cua--cua-keys-keymap framep selected-frame t define-key cua-set-rectangle-mark meta cua--M/H-key 32 vector mouse-1 cua-mouse-set-rectangle-mark [(shift control 32)] cua-toggle-global-mark [remap yank] cua-paste [remap clipboard-yank] [remap x-clipboard-yank] [remap yank-pop] cua-paste-pop [remap set-mark-command] cua-set-mark [remap exchange-point-and-mark] cua-exchange-point-and-mark [remap scroll-up] cua-scroll-up [remap scroll-down] cua-scroll-down [remap scroll-up-command] [remap scroll-down-command] [(control x) timeout] kill-region [(control c) timeout] copy-region-as-kill [(control z)] undo [(control v)] yank [(meta v)] delete-selection-repeat-replace-region [(control x)] cua--prefix-override-handler [(control c)] [(control x) (control x)] cua--prefix-repeat-handler [(control c) (control c)] (up down left right home end next prior) nil (control x) cua--prefix-cut-handler (control c) cua--prefix-copy-handler [(shift control x)] cua--shift-control-x-prefix [(shift control c)] cua--shift-control-c-prefix [remap delete-backward-char] cua-delete-region [remap backward-delete-char] cua-remap-control-z cua-remap-control-v cua--prefix-override-keymap cua--prefix-repeat-keymap key --dolist-tail-- cua--region-keymap [remap backward-delete-char-untabify] [remap delete-char] [remap delete-forward-char] [remap kill-region] cua-cut-region [remap clipboard-kill-region] [remap copy-region-as-kill] cua-copy-region [remap kill-ring-save] [remap clipboard-kill-ring-save] [remap keyboard-escape-quit] cua-cancel [remap keyboard-quit]] 6])
(defvar cua--saved-state nil)
#@245 Non-nil if Cua mode is enabled.
See the `cua-mode' command
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 `cua-mode'.
(custom-declare-variable 'cua-mode nil '(#$ . 29391) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'cua :type 'boolean :require 'cua-base :set-after '(cua-enable-modeline-indications cua-remap-control-v cua-remap-control-z cua-rectangle-mark-key cua-rectangle-modifier-key) :link '(emacs-commentary-link "cua-base.el"))
#@1139 Toggle Common User Access style editing (CUA mode).
If called interactively, enable Cua mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
CUA mode is a global minor mode. When enabled, typed text
replaces the active selection, and you can use C-z, C-x, C-c, and
C-v to undo, cut, copy, and paste in addition to the normal Emacs
bindings. The C-x and C-c keys only do cut and copy when the
region is active, so in most cases, they do not conflict with the
normal function of these prefix keys.
If you really need to perform a command which starts with one of
the prefix keys even when the region is active, you have three
options:
- press the prefix key twice very quickly (within 0.2 seconds),
- press the prefix key and the following key within 0.2 seconds, or
- use the SHIFT key with the prefix key, i.e. C-S-x or C-S-c.
You can customize `cua-enable-cua-keys' to completely disable the
CUA bindings, or `cua-prefix-override-inhibit-delay' to change
the prefix fallback behavior.
(defalias 'cua-mode #[(&optional arg) "\306 \307\305 \310=\203 \311\305!?\202 \312 !\313V\"\210\314\315\f\204& \316 \210\314
\203R \317\320\321\"\210\317\322\323\"\2105\203G \324\3056\"\204G \3256B67\203\\ \326 \210\202\\ \327\320\321\"\210\327\322\323\"\210
\204j \330\331\"\202s \332\333\331\334#\210\335 \210
\203\264 \336\337!\205 C89\203\216 \337\340!\210\202\235 \336\337!\203\235 \203\235 \337\341!\210:\203\246 \342\341!\210;\203\256 \343<\344 \210\202\355 8\203\355 8@\203\306 \337\340!\210\202\325 \336\337!\203\325 \203\325 \337\341!\210\345\346!\203\352 \347\3508@\203\347 \351\202\350 \352\"\210\3158\353\354\311\305!\203\371 \355\202\372 \356\"\210\345\357!\203'\360\305!\210\306 \203\306 \232\203'\352 =\347\361\311\305!\203!\362\202\"\363=#\210))\364 \210\311\305!\207" [#1=#:last-message arg mark-even-if-inactive highlight-nonselected-windows cua--keymaps-initialized cua-mode current-message set-default toggle default-value prefix-numeric-value 0 t nil cua--init-keymaps add-hook pre-command-hook cua--pre-command-handler post-command-hook cua--post-command-handler assoc (cua-mode cua--status-string) cua--update-indications remove-hook delq cua--keymap-alist add-to-ordered-list emulation-mode-map-alists 400 cua--select-keymaps boundp delete-selection-mode 1 -1 transient-mark-mode 48 cua--deactivate called-interactively-p interactive message "CUA mode disabled.%s" " Delete-Selection enabled" "" run-hooks cua-mode-hook cua-mode-on-hook cua-mode-off-hook any customize-mark-as-set "Cua mode %sabled%s" "en" "dis" force-mode-line-update cua-enable-modeline-indications minor-mode-alist cua-enable-cursor-indications cua--saved-state cua-delete-selection cua-highlight-region-shift-only cua-delete-copy-to-register-0 delete-selection-save-to-register local] 4 (#$ . 29991) (list (or current-prefix-arg 'toggle))])
(defvar cua-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [cua-mode-map cua-mode-hook variable-documentation put "Hook run after entering or leaving `cua-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode cua-mode nil boundp] 6)
#@65 Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings.
(defalias 'cua-selection-mode #[(arg) "\301\302\303\"\210\304\305!\204 \306!\207\307\306!\210\310\302!\207" [arg set-default cua-enable-cua-keys nil called-interactively-p any cua-mode call-interactively customize-mark-as-set] 3 (#$ . 33400) "P"])
#@23 Toggle CUA debugging.
(defalias 'cua-debug #[nil "?\211\207" [cua--debug] 2 (#$ . 33720) nil])
(provide 'cua-base)
Mini Shell