;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/cua-base.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\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\317\334\335\336\323\337\306\301&\210\317\340\321\341\323\342\306\301&\210\317\343\302\344\323\327\306\301&\210\317\345\321\346\323\347\306\301&\210\317\350\302\351\323\327\306\301&\210\317\352\353\354\323\355\306\301&\210\317\356\321\357\323\327\306\301&\210\317\360\302\361\323\327\306\301&\210\317\362\302\363\323\327\306\301&\210\317\364\321\365\323\327\306\301&\210\317\366\302\367\323\327\306\301&\210\317\370\321\371\323\327\306\301&\210\317\372\373\374\323\375\306\301&\210\317\376\377\201@\201A\201B\323\201C\306\301&	\210\317\201D\201E\201F\323\201G\306\301&\210\317\201H\321\201I\323\327\306\301&\210\201J\201K\201L\201M\306\301%\210\201J\201N\201O\201P\306\301%\210\317\201Q\321\201R\323\327\306\301&\210\201J\201S\201T\201U\306\301%\210\317\201V\201W\201X\323\201Y\306\301&\210\317\201Z\302\201[\323\327\306\301&\210\317\201\\\201]\201^\201_\201`\323\201a\306\301&	\210\317\201b\201c\201d\323\201e\306\301&\210\317\201f\201g\201h\323\201i\306\301&\210\317\201j\201k\201l\323\201m\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 `cua-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." 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 keys 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, always use the meta modifier.\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-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" '(#$ . 12334) t nil)
(byte-code "\303\304!\204\n\305\211\306\307\310\305\311\305%\210\303\312!\204\305\305\207" [cua--rectangle cua--last-killed-rectangle cua--global-mark-active featurep cua-rect nil autoload cua-toggle-global-mark "cua-gmrk" t cua-gmrk] 7)
#@61 Buffer-local variable that may disable the CUA keymappings.
(defvar cua-inhibit-cua-keys nil (#$ . 12691))
(make-variable-buffer-local 'cua-inhibit-cua-keys)
(defvar cua--explicit-region-start nil)
(make-variable-buffer-local 'cua--explicit-region-start)
(defvar cua--last-region-shifted nil)
(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 #[(arg repeat) "\306 \211G	SH	Z\307V\2062
\203\310 \2062
\247?\2062
\307X\2062\311
\312\313#\314 \210\nB\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 reset-this-command-lengths cua-prefix-override-inhibit-delay cua--prefix-override-timer last-command this-command arg prefix-arg 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 #[(arg) "\301\302\"\207" [arg cua--prefix-override-replay 0] 3 (#$ . 13722) "P"])
#@74 Repeating prefix key when region is active works as a single prefix key.
(defalias 'cua--prefix-repeat-handler #[(arg) "\301\302\"\207" [arg cua--prefix-override-replay 1] 3 (#$ . 13990) "P"])
#@46 Copy region/rectangle, then replay last key.
(defalias 'cua--prefix-copy-handler #[(arg) "\203\304	!\210\202\305	!\210\306 \211\211GSHB\211)\207" [cua--rectangle arg keys unread-command-events cua-copy-rectangle cua-copy-region this-single-command-keys] 3 (#$ . 14190) "P"])
#@45 Cut region/rectangle, then replay last key.
(defalias 'cua--prefix-cut-handler #[(arg) "\203\304	!\210\202\305	!\210\306 \211\211GSHB\211)\207" [cua--rectangle arg keys unread-command-events cua-cut-rectangle cua-cut-region this-single-command-keys] 3 (#$ . 14479) "P"])
(defalias 'cua--prefix-override-timeout #[nil "\305\306 G	U\205\307\nB\203\310 \210\202\311\312 \207" [cua--prefix-override-timer cua--prefix-override-length unread-command-events prefix-arg overriding-terminal-local-map t this-command-keys timeout reset-this-command-lengths 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\211\207" [mark-active deactivate-mark t nil] 2])
(defalias 'cua--deactivate #[(&optional now) "\304	\204\n\305\211\207\304\306\307!\207" [cua--explicit-region-start now deactivate-mark mark-active nil t run-hooks deactivate-mark-hook] 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=\203.?\2029\312=\2038\2029\313*\205@	\314\\\211?\205G	\207" [cua-enable-register-prefix arg prefix ctrl-u-prefix cua--register 0 10 this-command-keys 21 not-ctrl-u ctrl-u-only t 48] 3])
(defvar cua--last-deleted-region-pos nil)
(defvar cua--last-deleted-region-text nil)
#@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 "\306 `\211X\204	\307	\"\203\310\311\n\"\210	|\210p\f:\205)\f@B\312 \210	U*?\207" [end start cua--last-deleted-region-text cua-delete-copy-to-register-0 buffer-undo-list cua--last-deleted-region-pos mark filter-buffer-substring set-register 48 cua--deactivate] 4 (#$ . 16064) nil])
#@56 Replace the active region with the character you type.
(defalias 'cua-replace-region #[nil "\205\305 \n=?\205\f\205	\205\n\306=?\307 ))\207" [cua-delete-selection not-empty this-original-command this-command overwrite-mode cua-delete-region self-insert-command cua--fallback] 2 (#$ . 16503) 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$\210\2026
\312=\2031\312\n\"\210\2026\313\n\"\210\203@\314 \202B\315 *\207" [arg cua--last-killed-rectangle end start cua--register this-original-command cua--prefix-arg nil mark copy-to-register clipboard-kill-ring-save copy-region-as-kill cua--keep-active cua--deactivate cua-keep-region-after-copy] 6 (#$ . 16818) "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 `\211X\204\f
\203+\312
\f\313$\210\202?\314=\203:\314\f\"\210\202?\315\f\"\210*\316 \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 clipboard-kill-region kill-region cua--deactivate this-original-command] 6 (#$ . 17341) "P"])
#@54 Cancel the active region, rectangle, or global mark.
(defalias 'cua-cancel #[nil "\302\211\303\304!\205\f\304 \207" [mark-active cua--explicit-region-start nil fboundp cua--cancel-rectangle] 3 (#$ . 17850) nil])
#@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!\311\211	\203#
\204#\312\313	\"\202\n
!\203E
\2032\314
!\202\n
m?\205\n
\314\315``\f\\\"!\210\fu\202\n
\"\203P\316\317!\202\n
#\203\217$\203q\320 `^b\210\321 \322 \211\323U\203\217\311\202\217\315`\320 \"%@\230\203\214\324\325!\203\214\325 \203\214\326\323!\210\327 \210
\203\260
:\203\236\330
!\202\n

;\203\251\331
!\202\n
\312\332	\"\202\n
&\203\357%\205\275%@&@=\203\357`'(\333=\204\333\334)\335 \210'(B(\330&A\311\n$\210\205\353'b)\202\n
*\336=\203\373\336 \202\n
*\337=\203
\337 \202\n
\340!,\207" [arg cua--register paste-lines paste-column count regtxt cua--prefix-arg get-register prefix-numeric-value nil message "Nothing in register %c" cua--insert-at-global-mark filter-buffer-substring error "Cannot paste into a read-only buffer" mark cua--rectangle-left cua--delete-rectangle 1 fboundp mouse-region-match current-kill cua-delete-region cua--insert-rectangle insert-for-yank "Unknown data in register %c" t cua--paste-rectangle undo-boundary clipboard-yank x-clipboard-yank yank cua--global-mark-active buffer-read-only mark-active cua--rectangle kill-ring cua--last-killed-rectangle pt buffer-undo-list this-command this-original-command] 6 (#$ . 18072) "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 (#$ . 19619) "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\211\207\306\304 \210\205\307\310!)\207" [cua-enable-cua-keys arg mark-active cua--rectangle exchange-point-and-mark t nil cua--rectangle-corner 0] 2 (#$ . 20332) "P"])
(defvar cua--repeat-replace-text nil)
#@208 Repeat replacing text of highlighted region with typed text.
Searches 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.
(defalias 'cua-repeat-replace-region #[(arg) "\203\232\212\214@q\210~\210	A\306\211\211
\203c:\203c@A\f
=\2038\306\211\202\f:\203\f@\250\203\fA\250\203\203Z\fAU\203Z\f@\202\f@\fA\202\203\202\n\203\202\nX\203\202\307\310!U\203\202\311\n\"\202\226\204\222\f
=\203\222\312\202\226\313\314!\210.\306\205\265\205\265\315\306\310\306$\205\265\316\310#\207" [cua--last-deleted-region-pos buffer-undo-list e s u elt nil mark t cua--filter-buffer-noprops "" message "Cannot locate replacement text" search-forward replace-match ul cua--repeat-replace-text cua--last-deleted-region-text arg] 6 (#$ . 20810) "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 (#$ . 21701) nil])
(defalias 'cua-pop-to-last-change #[nil "\305\211\n\204]:\203]@A	\250\203 	\211\202	:\203	A\250\203>	@\250\2047	@;\203>	A\211\202	@\306=\203	A:\203	\211A@)\250\203\307	8\211\203\n\n\205x\n`U?\205x\neY\205x\ndX\205x\nb\210\310+\207" [buffer-undo-list elt pos undo-list x 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 \206_\312 \207\f\203L
\203L\315 \210\316\317!\207\310\311\211\"\210\320\311\205_\321\320!\207" [arg last-command this-command cua-auto-mark-last-change cua-toggle-set-mark mark-active prefix-numeric-value 4 push-mark-command nil pop-to-mark-command pop-global-mark cua-pop-to-last-change cua--deactivate message "Mark cleared" t cua-help-for-region cua--explicit-region-start cua--last-region-shifted cua-enable-region-auto-help] 4 (#$ . 22262) "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\303\307\310\217\207" [arg - cua-scroll-down nil prefix-numeric-value 0 scroll-up (scroll-up arg) ((end-of-buffer (byte-code "db\207" [] 1)))] 3 (#$ . 23697) "P"])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cua-scroll-up CUA move isearch-scroll t] 4)
#@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\303\307\310\217\207" [arg - cua-scroll-up nil prefix-numeric-value 0 scroll-down (scroll-down arg) ((beginning-of-buffer (byte-code "eb\207" [] 1)))] 3 (#$ . 24420) "P"])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cua-scroll-down CUA move isearch-scroll t] 4)
(defalias 'cua--update-indications #[nil "\203\f	\203\f	\202&\n\203\203\202&\f\203$
\203$\f\202&
\211:\2033A\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\306!\203\307!\210\310	9\203\254	\311N\312=\204~\n\203\254\204\254	\313N\206.	\314N\211\2047\310\202n\f\315=\203A\316\202n\f\317=\203S
\203O\320\202n\321\202n\f\322=\203e
\203a\323\202n\324\202n
\203m\323\202n\325\211\203z	*\202\254\203\225\n\204\214\326\310\327\"\210\327\310\202\254\204\236
\203\252\n\204\254\326\310\211\"\210\202\254\327
\205\263p`B\211\207" [cua--prefix-override-timer this-command mark-active deactivate-mark ds cua--rectangle timerp cancel-timer nil CUA move delete-selection pending-delete yank cua-paste kill cua-copy-rectangle cua-copy-region supersede cua-delete-rectangle cua-delete-region cua-replace-region push-mark-command t nc this-original-command this-command-keys-shift-translated cua--last-region-shifted cua--explicit-region-start cua--buffer-and-point-before-command] 4])
(defalias 'cua--pre-command-handler #[nil "\205\301\302\303\217\207" [cua-mode nil (cua--pre-command-handler-1) ((error))] 3])
(defalias 'cua--post-command-handler-1 #[nil "\203\306 \210\307\310!\203\310 \210\311\n\203\203\311
\2038\203+\312 \210\2028\n\2038\313\314\315\316!`\f$\210\317\320 !\204R?\205P\203O\f?\202P\316\203Z\321 \210\322 \207" [cua--global-mark-active cua--buffer-and-point-before-command mark-active deactivate-mark cua--explicit-region-start cua--debug cua--global-mark-post-command fboundp cua--rectangle-post-command nil cua--rectangle-assert message "Mark=%d Point=%d Expl=%s" mark t window-minibuffer-p selected-window cua--update-indications cua--select-keymaps cua--rectangle cua-highlight-region-shift-only transient-mark-mode cua-enable-cursor-indications] 5])
(defalias 'cua--post-command-handler #[nil "\205\301\302\303\217\207" [cua-mode nil (cua--post-command-handler-1) ((error))] 3])
(defvar cua--rectangle-modifier-key 'meta)
(defalias 'cua--M/H-key #[(map key fct) "<\204C\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 self-insert-iso)] 2])
#@59 Global keymap for cua-mode; users may add to this keymap.
(defvar cua-global-keymap (make-sparse-keymap) (#$ . 27913))
(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\311B\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 "\205	?\211\205(\205(\f?\205(\306=\204
?\205(\n?\205(?\f\n\2059\307!\2069\310=
\205L\f?\205L\306=\206L\205V\311 ?\211\207" [mark-active deactivate-mark cua--ena-region-keymap cua-enable-cua-keys cua-inhibit-cua-keys cua--explicit-region-start t timerp shift window-minibuffer-p executing-kbd-macro cua--prefix-override-timer cua--ena-prefix-override-keymap cua--ena-prefix-repeat-keymap cua--last-region-shifted 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 arg) "\n\306 \210\307
\211BB\211\207" [last-command this-command arg prefix-arg cua--prefix-override-timer prefix reset-this-command-lengths shift unread-command-events] 3])
(defalias 'cua--shift-control-c-prefix #[(arg) "\301\302\"\207" [arg cua--shift-control-prefix 3] 3 nil "P"])
(defalias 'cua--shift-control-x-prefix #[(arg) "\301\302\"\207" [arg cua--shift-control-prefix 24] 3 nil "P"])
(defalias 'cua--init-keymaps #[nil "\203	\306>\203\202\307\310\f\311#\210\n\307=\204,\312\313\311#\210\310\314\n\315D!\316#\210\310\317\320#\210\310\321\322#\210\310\323\322#\210\310\324\322#\210\310\325\326#\210\310\327\330#\210\310\331\332#\210\310\333\334#\210\310\335\336#\210\310\337\334#\210\310\340\336#\210\310
\341\342#\210\310
\343\344#\210@\203\205\310
\345\346#\210A\203\226\310
\347\350#\210\310
\351\352#\210\310B\353\354#\210\310B\355\354#\210\310C\356\357#\210\310C\360\357#\210\361\362D\211E\203\340E@D\310C\314\363D\"\364#\210\310C\314\365D\"\366#\210EA\211E\204\274*\310F\367\370#\210\310F\371\372#\210\310F\373\374#\210\310F\375\374#\210\310F\376\374#\210\310F\377\374#\210\310F\201G\374#\210\310F\201H\374#\210\310F\201I\201J#\210\310F\201K\201J#\210\310F\201L\201J#\210\310F\201M\201J#\210\310F\201N\201J#\210\310F\201O\201P#\210\310F\201Q\201P#\210\310F\201R\201S#\210\310F\201T\201S#\210\310F\201U\201S#\210\310F\201V\201W#\210\310F\201X\201W#\207" [cua-rectangle-modifier-key window-system cua--rectangle-modifier-key cua-global-keymap cua-rectangle-mark-key cua--cua-keys-keymap (x) meta define-key cua-set-rectangle-mark 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)] cua-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 self-insert-command] cua-replace-region [remap self-insert-iso] [remap insert-register] [remap newline-and-indent] cua-remap-control-z cua-remap-control-v cua--prefix-override-keymap cua--prefix-repeat-keymap key --dolist-tail-- cua--region-keymap [remap newline] [remap open-line] [remap delete-backward-char] cua-delete-region [remap backward-delete-char] [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])
(byte-code "\302\303\211\203	@\304\305\306#\210	A\211\204*\303\207" [cmd --dolist-tail-- (forward-char backward-char right-char left-char right-word left-word next-line previous-line forward-word backward-word end-of-line beginning-of-line end-of-visual-line beginning-of-visual-line move-end-of-line move-beginning-of-line end-of-buffer beginning-of-buffer scroll-up scroll-down scroll-up-command scroll-down-command up-list down-list backward-up-list end-of-defun beginning-of-defun forward-sexp backward-sexp forward-list backward-list forward-sentence backward-sentence forward-paragraph backward-paragraph c-forward-conditional c-backward-conditional c-down-conditional c-up-conditional c-down-conditional-with-else c-up-conditional-with-else c-beginning-of-statement c-end-of-statement) nil put CUA move] 5)
(defvar cua--saved-state nil)
#@245 Non-nil if Cua mode is enabled.
See the command `cua-mode' 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 '(#$ . 33742) :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"))
#@1317 Toggle Common User Access style editing (CUA mode).
With a prefix argument ARG, enable CUA mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.

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.

CUA mode manages Transient Mark mode internally.  Trying to disable
Transient Mark mode while CUA mode is enabled does not work; if you
only want to highlight the region when it is selected using a
shifted movement key, set `cua-highlight-region-shift-only'.
(defalias 'cua-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312\313
\204!\314 \210\312\n\203M\315\316\317\"\210\315\320\321\"\2107\203B\322\3028\"\204B\3238B89\203W\324 \210\202W\325\316\317\"\210\325\320\321\"\210\n\204e\326\327\"\202n\330\331\327\332#\210\333 \210\n\203\302:\334\335!\205|\334\336!\205\204;F<\334\335!\203\230\203\230\335\337!\210\334\336!\203\247\203\247\336\337!\210\340 \210\313;\n\205\275=\203\274>?\202\275\312:\2023
<\2033
<@:<A@\203\327\335\341!\210\342<8\203\342\336\341!\210\343<8;\344\345!\2030
\346\347<A@\203\373\350\202\374\351<A@\203
\342<8\203
\352\202
\351\342<8\203
\353\202
\351<A@\204)
\342<8\203-
\354\202.
\351%\210\313<\355\356\n\203=
\357\202>
\360\"\210\344\361!\203c
\362\302!\210\306 \203V
\306 \232\203c
\346\363\n\203`
\364\202a
\365\"\210)\366 \210\n\207" [#1=#:last-message arg cua-mode mark-even-if-inactive highlight-nonselected-windows cua--keymaps-initialized current-message toggle 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 pc-selection-mode -1 cua--deactivate 1 2 3 called-interactively-p interactive message "CUA mode disabled.%s%s%s%s" " Delete-Selection" "" " and" " PC-Selection" " enabled" run-hooks cua-mode-hook cua-mode-on-hook cua-mode-off-hook any customize-mark-as-set "Cua mode %sabled" "en" "dis" force-mode-line-update cua-enable-modeline-indications minor-mode-alist cua-enable-cursor-indications transient-mark-mode shift-select-mode cua--saved-state cua-highlight-region-shift-only cua--explicit-region-start] 7 (#$ . 34342) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [cua-mode-map 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 (#$ . 37693) "P"])
#@23 Toggle CUA debugging.
(defalias 'cua-debug #[nil "?\211\207" [cua--debug] 2 (#$ . 38013) nil])
(provide 'cua-base)