;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require cua-base rect] 2)
#@618 If non-nil, restrict current region to this rectangle.
A cua-rectangle definition is a vector used for all actions in
`cua-rectangle-mark-mode', of the form:

  [top bot left right corner ins virt select]

TOP is the upper-left corner point.

BOTTOM is the point at the end of line after the lower-right
corner point.

LEFT and RIGHT are column numbers.

CORNER specifies currently active corner 0=t/l 1=t/r 2=b/l 3=b/r.

INS specifies whether to insert on left(nil) or right(t) side.

If VIRT is non-nil, virtual straight edges are enabled.

If SELECT is a regexp, only lines starting with that regexp are
affected.
(defvar cua--rectangle nil (#$ . 152))
(make-variable-buffer-local 'cua--rectangle)
#@164 Most recent rectangle geometry.
A CONS cell, the car of which is the rectangle's buffer, and the
cdr of which is a cua-rectangle definition.
See `cua--rectangle'.
(defvar cua--last-rectangle nil (#$ . 860))
#@29 Rectangle restored by undo.
(defvar cua--restored-rectangle nil (#$ . 1073))
(defvar cua--last-killed-rectangle nil)
#@53 List of overlays used to display current rectangle.
(defvar cua--rectangle-overlays nil (#$ . 1196))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local cua--rectangle-overlays put permanent-local t] 4)
(defvar cua--overlay-keymap (byte-code "\300 \301
\302\303#\207" [make-sparse-keymap define-key "
" cua-rotate-rectangle] 5))
(defvar cua--virtual-edges-debug nil)
(defvar cua--rect-undo-set-point nil)
(defalias 'cua--rectangle-undo-boundary #[0 "<\205!\302 \303 \304 \210\305\306\307\310	!\311\257	B\211\266\202\207" [buffer-undo-list cua--rectangle cua--rect-start-position cua--rect-end-position undo-boundary apply 0 cua--rect-undo-handler copy-sequence t] 11])
#@20 

(fn RECT ON S E)
(defalias 'cua--rect-undo-handler #[1028 "?\211\262\203

\202\304!\305\306\307\203\202\310\257	B\211\207" [cua--rect-undo-set-point cua--restored-rectangle cua--buffer-and-point-before-command buffer-undo-list copy-sequence nil apply 0 cua--rect-undo-handler] 13 (#$ . 1905)])
#@115 Non-nil if Cua-Rectangle-Mark mode is enabled.
Use the command `cua-rectangle-mark-mode' to change this variable.
(defvar cua-rectangle-mark-mode nil (#$ . 2235))
(make-variable-buffer-local 'cua-rectangle-mark-mode)
#@683 Toggle the region as rectangular.
Activates the region if needed.  Only lasts until the region is deactivated.

This is a minor mode.  If called interactively, toggle the
`Cua-Rectangle-Mark 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 `cua-rectangle-mark-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'cua-rectangle-mark-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203G\311\312\313\"\210\311\314\315\305\306$\210\316 \210\202P\317 \210\320\314\315\306#\210\321\322\203Z\323\202[\324\"\210\325\326!\203}\302 \203o\211\302 \232\203}\327\330\203y\331\202z\332\333#\210\210\334 \210\207" [cua-rectangle-mark-mode local-minor-modes current-message toggle 1 nil t boundp delq add-hook deactivate-mark-hook #[0 "\300\301!\207" [cua-rectangle-mark-mode -1] 2] post-command-hook cua--rectangle-post-command cua-set-rectangle-mark cua--deactivate-rectangle remove-hook run-hooks cua-rectangle-mark-mode-hook cua-rectangle-mark-mode-on-hook cua-rectangle-mark-mode-off-hook called-interactively-p any message "Cua-Rectangle-Mark mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 2459) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar cua-rectangle-mark-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\310\211%\207" [cua--rectangle-keymap cua-rectangle-mark-mode-hook variable-documentation put "Hook run after entering or leaving `cua-rectangle-mark-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 cua-rectangle-mark-mode] 6)
#@22 

(fn &optional VAL)
(defalias 'cua--rectangle-top #[256 "\211\204\301H\207\302 \262
\211\303HX\203\301I\207\303I\210\304\305!\207" [cua--rectangle 0 line-beginning-position 1 cua--rectangle-corner 2] 4 (#$ . 4654)])
#@22 

(fn &optional VAL)
(defalias 'cua--rectangle-bot #[256 "\211\204\301H\207\302 \262
\211\303HY\203\301I\207\303I\210\304\305!\207" [cua--rectangle 1 line-end-position 0 cua--rectangle-corner 2] 4 (#$ . 4887)])
#@22 

(fn &optional VAL)
(defalias 'cua--rectangle-left #[256 "\211\250\203$\211\301HX\203\302I\207\301I\210\303\304 \203!\305\202\"\306!\207\302H\207" [cua--rectangle 3 2 cua--rectangle-corner cua--rectangle-right-side -1 1] 4 (#$ . 5114)])
#@22 

(fn &optional VAL)
(defalias 'cua--rectangle-right #[256 "\211\250\203$\211\301HY\203\302I\207\301I\210\303\304 \203!\305\202\"\306!\207\302H\207" [cua--rectangle 2 3 cua--rectangle-corner cua--rectangle-right-side -1 1] 4 (#$ . 5369)])
#@26 

(fn &optional ADVANCE)
(defalias 'cua--rectangle-corner #[256 "\301H
\250\204	\207\301\302U\203\303Z\202\304\301\\\\\301\"I\210\305\302I\207" [cua--rectangle 4 0 3 mod 5] 7 (#$ . 5625)])
#@25 

(fn &optional TOPBOT)
(defalias 'cua--rectangle-right-side #[256 "\211\203\300 \301 U\203\302 \303W\207\304\302 \303\"\305U\207" [cua--rectangle-left cua--rectangle-right cua--rectangle-corner 2 mod 1] 4 (#$ . 5832)])
(defalias 'cua--rectangle-column #[0 "\300 \203\301 \207\302 \207" [cua--rectangle-right-side cua--rectangle-right cua--rectangle-left] 1])
#@22 

(fn &optional COL)
(defalias 'cua--rectangle-insert-col #[256 "\211\250\203\n\301I\207\302\303!\203 \301H\304U\203\305 T\207\301H\207\306 \207" [cua--rectangle 5 cua--rectangle-right-side t 0 cua--rectangle-right cua--rectangle-left] 4 (#$ . 6204)])
#@26 

(fn &optional SET VAL)
(defalias 'cua--rectangle-virtual-edges #[512 "
\203	\301I\210\301H\207" [cua--rectangle 6] 5 (#$ . 6470)])
#@38 

(fn &optional VAL BOUNDED NEGATED)
(defalias 'cua--rectangle-restriction #[768 "\203\301;\205G\302V\205EI\207\301H\207" [cua--rectangle 7 0] 8 (#$ . 6613)])
(defalias 'cua--rectangle-assert #[0 "\301\302`#\210\303 \304 W\203\301\305!\210\306 \307 W\205\301\310!\207" [cua--rectangle message "%S (%d)" cua--rectangle-right cua--rectangle-left "rectangle right < left" cua--rectangle-bot cua--rectangle-top "rectangle bot < top"] 4])
(defalias 'cua--rectangle-get-corners #[0 "`\301 \302\211\211\212b\210i\262b\210i\262X\203)
X\203#\303\202$\304\262
\202<\262\262
X\2039\305\202:\306\262

X\203O
W\203iS\262\202i\262\262b\210\307!\210`\262b\210\307!\210`\262)\310\303\302&\207" [cua-virtual-rectangle-edges mark nil 0 1 2 3 move-to-column vector] 14])
(defalias 'cua--rectangle-set-corners #[0 "\301\211\211\211\302 \211\303U\203\304 \262\305 \262\306 \262\307 \262\202g\211\310U\2038\304 \262\307 \262\306 \262\305 \262\202g\211\311U\203Q\306 \262\305 \262\304 \262\307 \262\202g\211\312U\203g\306 \262\307 \262\304 \262\305 \262b\210\313!\210\314`!\210b\210\315 \203\211\313!ZU\205\230l?\202\216\313!V\205\230n?\205\230\316u\207" [tab-width nil cua--rectangle-corner 0 cua--rectangle-top cua--rectangle-left cua--rectangle-bot cua--rectangle-right 1 2 3 move-to-column set-mark cua--rectangle-right-side -1] 8])
(defalias 'cua--rect-start-position #[0 "\212\300 b\210\301\302 !\302 V\203n\204\303u\210`)\207" [cua--rectangle-top move-to-column cua--rectangle-left -1] 2])
(defalias 'cua--rect-end-position #[0 "\212\301 b\210\302\303 !\303 ZU\203l\204n\204\304u\210`)\207" [tab-width cua--rectangle-bot move-to-column cua--rectangle-right -1] 3])
#@10 

(fn N)
(defalias 'cua--forward-line #[257 "`
y\300U\205m?\206\211b\207" [0] 4 (#$ . 8378)])
(defalias 'cua--rectangle-resized #[0 "\301\302\303!\210\304 \210\305 \207" [cua--buffer-and-point-before-command nil cua--rectangle-insert-col 0 cua--rectangle-set-corners cua--keep-active] 2])
#@40 Resize rectangle to the right.

(fn N)
(defalias 'cua-resize-rectangle-right #[257 "\211\300V
\300V\203.
S\262\301 \203 \302\211 T!\210\303\302 !\210\202\304\211 T!\210\303\302 !\210\202\211\2054\305 \207" [0 cua--rectangle-right-side cua--rectangle-right move-to-column cua--rectangle-left cua--rectangle-resized] 4 (#$ . 8678) "p"])
#@39 Resize rectangle to the left.

(fn N)
(defalias 'cua-resize-rectangle-left #[257 "\300
\301V\203H
S\262\302 \301U\204\303 \204$\304 \301U\203$\301\262\202
\303 \2037\302\211 S!\210\305\302 !\210\202B\304\211 S!\210\305\302 !\210\306\262
\202
\211\205N\307 \207" [nil 0 cua--rectangle-right cua--rectangle-right-side cua--rectangle-left move-to-column t cua--rectangle-resized] 4 (#$ . 9027) "p"])
#@37 Resize rectangle downwards.

(fn N)
(defalias 'cua-resize-rectangle-down #[257 "\300
\301V\203D
S\262\302 \303Y\203+\304 b\210\305\306!\203
\307\310 !\210\304\311!\210\311\262
\202
\312 b\210\305\306!\203
\307\310 !\210\312\311!\210\311\262
\202
\211\205J\313 \207" [nil 0 cua--rectangle-corner 2 cua--rectangle-bot cua--forward-line 1 move-to-column cua--rectangle-column t cua--rectangle-top cua--rectangle-resized] 4 (#$ . 9442) "p"])
#@35 Resize rectangle upwards.

(fn N)
(defalias 'cua-resize-rectangle-up #[257 "\300
\301V\203D
S\262\302 \303Y\203+\304 b\210\305\306!\203
\307\310 !\210\304\311!\210\311\262
\202
\312 b\210\305\306!\203
\307\310 !\210\312\311!\210\311\262
\202
\211\205J\313 \207" [nil 0 cua--rectangle-corner 2 cua--rectangle-bot cua--forward-line -1 move-to-column cua--rectangle-column t cua--rectangle-top cua--rectangle-resized] 4 (#$ . 9894) "p"])
#@34 Resize rectangle to end of line.
(defalias 'cua-resize-rectangle-eol #[0 "l?\205\300\210i\301 V\203\301i!\210\302 \204\303\304!\210\305 \207" [nil cua--rectangle-right cua--rectangle-right-side cua--rectangle-corner 1 cua--rectangle-resized] 2 (#$ . 10343) nil])
#@40 Resize rectangle to beginning of line.
(defalias 'cua-resize-rectangle-bol #[0 "n?\205\300 \210\301i!\210\302 \203\303\304!\210\305 \207" [beginning-of-line cua--rectangle-left cua--rectangle-right-side cua--rectangle-corner -1 cua--rectangle-resized] 2 (#$ . 10619) nil])
#@39 Resize rectangle to bottom of buffer.
(defalias 'cua-resize-rectangle-bot #[0 "db\210\300\301 !\210\302\303!\210\304 \207" [move-to-column cua--rectangle-column cua--rectangle-bot t cua--rectangle-resized] 2 (#$ . 10902) nil])
#@36 Resize rectangle to top of buffer.
(defalias 'cua-resize-rectangle-top #[0 "eb\210\300\301 !\210\302\303!\210\304 \207" [move-to-column cua--rectangle-column cua--rectangle-top t cua--rectangle-resized] 2 (#$ . 11135) nil])
#@46 Resize rectangle upwards by one scroll page.
(defalias 'cua-resize-rectangle-page-up #[0 "\300 \210\301\302 !\210\303 \304Y\203\305\306!\210\202\307\306!\210\310 \207" [scroll-down move-to-column cua--rectangle-column cua--rectangle-corner 2 cua--rectangle-bot t cua--rectangle-top cua--rectangle-resized] 2 (#$ . 11365) nil])
#@48 Resize rectangle downwards by one scroll page.
(defalias 'cua-resize-rectangle-page-down #[0 "\300 \210\301\302 !\210\303 \304Y\203\305\306!\210\202\307\306!\210\310 \207" [scroll-up move-to-column cua--rectangle-column cua--rectangle-corner 2 cua--rectangle-bot t cua--rectangle-top cua--rectangle-resized] 2 (#$ . 11702) nil])
#@59 Set rectangle corner at mouse click position.

(fn EVENT)
(defalias 'cua-mouse-resize-rectangle #[257 "\300
!\210\301 \203\302\303\304!!@\305\"\210\306 \203\307i!\210\202#\310i!\210\311 \312Y\2031\313\305!\210\2025\314\305!\210\315 \207" [mouse-set-point cua--rectangle-virtual-edges move-to-column posn-col-row event-end t cua--rectangle-right-side cua--rectangle-right cua--rectangle-left cua--rectangle-corner 2 cua--rectangle-bot cua--rectangle-top cua--rectangle-resized] 5 (#$ . 12041) "e"])
(defvar cua--mouse-last-pos nil)
#@54 Start rectangle at mouse click position.

(fn EVENT)
(defalias 'cua-mouse-set-rectangle-mark #[257 "\203\304 \210\305\306!\210\307\310
!\210\311 \210\307\211\211\207" [cua--rectangle cua--last-rectangle cua--buffer-and-point-before-command cua--mouse-last-pos cua--deactivate-rectangle cua--deactivate t nil mouse-set-point cua-set-rectangle-mark] 4 (#$ . 12586) "e"])
#@141 Expand rectangle to mouse click position and copy rectangle.
If command is repeated at same position, delete the rectangle.

(fn EVENT ARG)
(defalias 'cua-mouse-save-then-kill-rectangle #[514 "	=\203`\n\242=\203\n\243=\203\f\204\306 \210\307 \207\310!\210\311\312
!\210`B\211)\207" [this-command last-command cua--mouse-last-pos cua--last-killed-rectangle buffer-read-only cua-keep-region-after-copy cua--delete-rectangle cua--deactivate cua-mouse-resize-rectangle t cua-copy-region] 4 (#$ . 12968) "e\nP"])
#@14 

(fn EVENT)
(defalias 'cua--mouse-ignore #[257 "\211\207" [last-command this-command] 3 (#$ . 13496) "e"])
#@12 

(fn DIR)
(defalias 'cua--rectangle-move #[257 "\301\302 \303 \304 \305 \306\267\202db\210\307\310!\203g\302\301!\210b\210\310y\210\303\301!\210\202gb\210\307\311!\203g\303\301!\210b\210\307\311!\210\302\301!\210\202g
\312V\203g\304S!\210\305
S!\210\202g\305
T!\210\304T!\210\202g\313\262\205r\313\314 \210\315 \207" [cua--buffer-and-point-before-command t cua--rectangle-top cua--rectangle-bot cua--rectangle-left cua--rectangle-right #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up 15 down 41 left 68 right 87)) cua--forward-line -1 1 0 nil cua--rectangle-set-corners cua--keep-active] 8 (#$ . 13612)])
#@90 Return position where auto-tabify should start (or nil if not required).

(fn START END)
(defalias 'cua--tabify-start #[514 "\212\214~\210?\205,	\205,	\250\203+edU\204+e	Z]b\210\302\303d	\\^\304#\205,
*\207" [buffer-read-only cua-auto-tabify-rectangles search-forward "	" t] 7 (#$ . 14284)])
#@542 Call FCT for each line of region with 4 parameters:
Region start, end, left-col, right-col.
Point is at start when FCT is called.
Call fct with (s,e) = whole lines if VISIBLE non-nil.
Only call fct for visible lines if VISIBLE==t.
Set undo boundary if UNDO is non-nil.
Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges)
Perform auto-tabify after operation if TABIFY is non-nil.
Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear.

(fn KEEP-CLEAR VISIBLE UNDO PAD TABIFY &optional FCT POST-FCT)
(defalias 'cua--rectangle-operation #[1797 "\302\303 \304 \305 \306 T\307 \250\205\310U\311 	\205$\312\"\f\203,\313 \210\250\2036\314 \262\f\212\214~\210\315 \316V\203Vb\210n\203Vl\204Vm\204VT\262
\302=\203k\317 ]\262\320 ^\262b\210\321 \262
\203\205n\203\205m\204\205T\262b\210\322 \262}\210eb\210`dW\203H
\323
\"\210\204\265
\204\265iV\203\265\324u\210\203\307\204\307\325\326!\203\307\316u\210`\327\223\210\323
\"\210	\203=

\204\352iY\203=
iX\203=
\302`\203
A@\203\377\325@!\262\202
\330@\302#\262\211b\210AA@\203

?\262\203,

\n\n%\266\202=

\203;

\n\n$\210\266\327\211\223\210\316y\210\202\226
\204Q
\304\302!\210\203^
\"\210\211\203g
\331
`\"\210*\332\267\202\201
\333 \210\202\201
\334 \210\202\201
\335 \210\333 \210\327\211)\207" [inhibit-field-text-motion cua--buffer-and-point-before-command t cua--rectangle-top cua--rectangle-bot cua--rectangle-left cua--rectangle-right make-marker 2 cua--rectangle-restriction cua--tabify-start cua--rectangle-undo-boundary cua--rectangle-virtual-edges cua--rectangle-corner 1 window-start window-end line-end-position line-beginning-position move-to-column -1 looking-at "	" nil re-search-forward tabify #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (keep 367 clear 373 corners 379)) cua--keep-active cua--deactivate cua--rectangle-set-corners] 23 (#$ . 14591)])
(byte-code "\300\301\302\303#\300\207" [function-put cua--rectangle-operation lisp-indent-function 4] 4)
(defalias 'cua--delete-rectangle #[0 "\300C\301 \204\302\303\211\304\305\304\306\307\"&\210\202&\302\303\310\304\303\304\306\311\"&\210\211\242\207" [0 cua--rectangle-virtual-edges cua--rectangle-operation nil t 2 make-closure #[1285 "\300\211\242T\240\210V\205dX\205|\207" [V0] 7 "\n\n(fn S E L R V)"] 1 #[1285 "\300\211\242T\240\210V\205dX\205|\207" [V0] 7 "\n\n(fn S E L R V)"]] 10])
(defalias 'cua--extract-rectangle #[0 "\300C\301 \204\302\300\211\211\211\211\303\304\"&\210\202&\302\300\305\300\211\211\303\306\"&\210\211\242\237\207" [nil cua--rectangle-virtual-edges cua--rectangle-operation make-closure #[1028 "\300\301\"\300\242B\240\207" [V0 cua--filter-buffer-noprops] 8 "\n\n(fn S E L R)"] 1 #[1285 "\301\302\211\303U\203T\262b\210\304!\210`\305 U\203-Z\262\303\262\202R\306w\210i^Z\262`\262	\304!\210\306	x\210i]Z\262`\262\203g	V\203g\307		\"\202h\310\262
\302V\203x\311\312\"
P\262

\302V\203\206\211\311\312\"P\262
\300
\300\242B\240\207" [V0 t 0 nil move-to-column line-end-position " 	" cua--filter-buffer-noprops "" make-string 32] 13 "\n\n(fn S E L R V)"]] 10])
(defalias 'cua--extract-rectangle-bounds #[0 "\300C\301 \204\302\300\211\211\211\211\303\304\"&\210\202&\302\300\305\300\211\211\303\306\"&\210\211\242\237\207" [nil cua--rectangle-virtual-edges cua--rectangle-operation make-closure #[1028 "\300B\300\242B\240\207" [V0] 7 "\n\n(fn S E L R)"] 1 #[1285 "b\210\301!\210`\262\301!\210`\262\300B\300\242B\240\207" [V0 move-to-column] 8 "\n\n(fn S E L R V)"]] 10])
#@309 Insert rectangle RECT similarly to `insert-rectangle'.
In contrast to `insert-rectangle', don't set mark and exit with
point at either next to top right or below bottom left corner

Note: In overwrite mode, the rectangle is inserted as separate text lines.

(fn RECT &optional BELOW PASTE-COLUMN LINE-COUNT)
(defalias 'cua--insert-rectangle #[1025 "\301=\203n\205l\206m\206`TdU\262
\204i\262\302\303``\"\304\211\2040\203\217\204H\203>\305c\210\202H\306y\210n\204H\305c\210\204R\307\302\"\210\204\\\304\262\202x\310@!\210
\204hi\262A\262\203x\204x`\262
\304\262\203'S\211\262\311U\203'\304\262\202'\203\301
\203\301\204\301\311V\203\301\306y\210n\204\253\305c\210\307\302\"\210\312\313	ZT\"\210S\262\202\233\203\316\204\316\314`\"\210\211\205\331?\205\331\211b\207" [overwrite-mode auto t cua--tabify-start nil 10 1 move-to-column insert-for-yank 0 insert-char 32 tabify] 13 (#$ . 18316)])
#@23 

(fn &optional RING)
(defalias 'cua--copy-rectangle-as-kill #[256 "\203\n\304\305 \"\207\305 \n\205\n@	B\211\205!\306\307\310	\311#!\207" [cua--register killed-rectangle kill-ring cua--last-killed-rectangle set-register cua--extract-rectangle kill-new mapconcat #[257 "\211\300P\207" ["\n"] 3 "\n\n(fn ROW)"] ""] 6 (#$ . 19285)])
(defalias 'cua--activate-rectangle #[0 "\203@p=\203A@`=\203AA\206\303 \304 \203%\305\202&\306\307\310 \207" [cua--last-rectangle cua--rectangle cua--status-string cua--rectangle-get-corners cua--rectangle-virtual-edges " [R]" "" nil activate-mark] 2])
(defalias 'cua--deactivate-rectangle #[0 "\306\307\"\210p`	BB\310\211\310\211
\205\305\311!\207" [cua--rectangle-overlays cua--rectangle cua--last-rectangle cua--status-string cua--mouse-last-pos cua-rectangle-mark-mode mapc delete-overlay nil -1] 4])
(defalias 'cua--highlight-rectangle #[0 "	C\302C\303 \304 T

U\204&\305\306!\210\307\302\310\302\211\211\311\312#&\210\313\314\242\"\210\242\237\211)\207" [deactivate-mark cua--rectangle-overlays nil cua--rectangle-left cua--rectangle-right sit-for 0 cua--rectangle-operation t make-closure #[1285 "\211\203\305\202	\306\307\211\211\211\310 \203\204
\311 \312 \307\211\211\211\211\211b\210\313!\262`\262\313!\262`\262
U\203?\314\262\202FSb\210i\262U\203T\314\262\202[\211Sb\210i\262U\203iU\204\202
U\204\263\315\316Z	U\203\213	U\204\213\317\202\214\314Z\n\203\225\320\202\226\321\"\322\323Se]\322\"\206\244\324#\262U\204\263S\262U\203\350\211U\204\202

SU\204\202
\n\204\325
ZU\204\202
\325\"\314U\204\202
S\262\266\202\204
U\2034
\315\316Z\n\203\376\326\202\377\321\"\322#\262\n\327 \203
\330\nGSG\331\332%\210\202%
\330\314\317\331\332%\210\n\nP\262\307\262
\266\202\204
\315\316Z	U\203E
\317\202F
\314Z\n\203O
\333\202P
\321\"\322#\262	\327 \203m
\330	GS\nG\331\332
%\210\202v
\330\314\317\331\332
%\210\211U\204\202
S\262\266\300\242\203\261
\300\242@\211\262\203\261
\334!\nW\203\261
\335!	U\204\261
\336!\210\300\211\242A\240\210\202\204
\300\242\203\342
\300\242@\211\262\203\342
\334!\nU\204\321
\335!	U\203\342
\337#\210\300\211\242A\240\210\202\352
\340\n\n\"\262\341\342#\210\341\343#\210\341\322#\210\341\344\f#\210\341\345\346 #\210\301\301\242B\240\207" [V0 V1 cua--virtual-edges-debug tab-width cua--overlay-keymap cua-rectangle cua-rectangle-noselect nil cua--rectangle-virtual-edges line-beginning-position line-end-position move-to-column 0 propertize make-string 1 46 32 face get-text-property default mod 44 cua--rectangle-right-side put-text-property cursor 2 126 overlay-start overlay-end delete-overlay move-overlay make-overlay overlay-put before-string after-string keymap window selected-window] 24 "\n\n(fn S E L R V)"] mapc delete-overlay] 15])
#@34 

(fn &optional CH TO-COL CLEAR)
(defalias 'cua--indent-rectangle #[768 "\300 \301 \302C\303\203\304\202\305\302\306\302\307\310

\f\f\f&\307\311	\"&\207" [cua--rectangle-insert-col cua--rectangle-virtual-edges nil cua--rectangle-operation clear corners t make-closure #[1028 "\305\302\303\"\210l\203i\302W\203\305\302\306\"\210\301\203\301j\210\2021\300\203.\300\307=\204.\300c\210\2021\310 \210\311\306!\203;\312i!\207\304iZ\240\207" [V0 V1 V2 V3 V4 move-to-column t 9 tab-to-tab-stop cua--rectangle-right-side cua--rectangle-insert-col] 7 "\n\n(fn S E L R)"] #[514 "\300\242\205\300\242\302V\205	\303\300\242\\I\210	\304\300\242\\SI\207" [V0 cua--rectangle 0 2 3] 6 "\n\n(fn L R)"]] 19 (#$ . 22195)])
(defvar cua--rectangle-initialized nil)
#@129 Set mark and start in CUA rectangle mode.
With prefix argument, activate previous rectangle if possible.

(fn &optional REOPEN)
(defalias 'cua-set-rectangle-mark #[256 "\204\305 \210	?\205:\211\203#\n\203#\n@p=\203#\nA@b\210\202-\204-\306\307\211\310#\210\311 \210\312 \210\f\205:\313\310!\207" [cua--rectangle-initialized cua--rectangle cua--last-rectangle mark-active cua-enable-rectangle-auto-help cua--init-rectangles push-mark nil t cua--activate-rectangle cua--rectangle-set-corners cua-help-for-rectangle] 5 (#$ . 22978) "P"])
#@27 Cancel current rectangle.
(defalias 'cua-clear-rectangle-mark #[0 "\205\302\303 \207" [cua--rectangle mark-active nil cua--deactivate-rectangle] 1 (#$ . 23529) nil])
(defalias 'cua-toggle-rectangle-mark #[0 "\203\n\304 \210\202	\204\305 \210\306 \210\203 \n\205'\307\310!\207\205'\311\310!\207" [cua--rectangle cua--rectangle-initialized cua-enable-rectangle-auto-help cua-enable-region-auto-help cua--deactivate-rectangle cua--init-rectangles cua--activate-rectangle cua-help-for-rectangle t cua-help-for-region] 2 nil nil])
#@104 Restrict rectangle to lines (not) matching regexp.
With prefix argument, toggle restriction.

(fn ARG)
(defalias 'cua-restrict-regexp-rectangle #[257 "\300 \211\203!\211A@\204!
\203\300
@\301AA@?#\207\300\302\301\211#\207\300\303\304\301\211\211\211%\301#\207" [cua--rectangle-restriction nil "" read-from-minibuffer "Restrict rectangle (regexp): "] 9 (#$ . 24077) "P"])
#@107 Restrict rectangle to lines (not) starting with CHAR.
With prefix argument, toggle restriction.

(fn ARG)
(defalias 'cua-restrict-prefix-rectangle #[257 "\300 \211\203!\211A@\203!
\203\300
@\301AA@?#\207\300\302\303\211#\207\300\304\305\306\307!\"\301#\207" [cua--rectangle-restriction t "" nil format "[%c]" read-char "Restrictive rectangle (char): "] 7 (#$ . 24461) "P"])
(defalias 'cua-move-rectangle-up #[0 "\300\301!\207" [cua--rectangle-move up] 2 nil nil])
(defalias 'cua-move-rectangle-down #[0 "\300\301!\207" [cua--rectangle-move down] 2 nil nil])
(defalias 'cua-move-rectangle-left #[0 "\300\301!\207" [cua--rectangle-move left] 2 nil nil])
(defalias 'cua-move-rectangle-right #[0 "\300\301!\207" [cua--rectangle-move right] 2 nil nil])
(defalias 'cua-rotate-rectangle #[0 "\301\302 \303 U\203
\304\202\305!\210\306 \210\307 \205\310\211\207" [cua--buffer-and-point-before-command cua--rectangle-corner cua--rectangle-left cua--rectangle-right 0 1 cua--rectangle-set-corners cua--rectangle-virtual-edges nil] 3 nil nil])
(defalias 'cua-toggle-rectangle-virtual-edges #[0 "\301\302\301 ?\"\210\303 \210\301 \205\304\305 \207" [cua--status-string cua--rectangle-virtual-edges t cua--rectangle-set-corners " [R]" cua--keep-active] 3 nil nil])
(defalias 'cua-do-rectangle-padding #[0 "\203\301\302!\210\202\303\304\211\305\211\211%\210\306 \210\307 \207" [buffer-read-only message "Cannot do padding in read-only buffer" cua--rectangle-operation nil t cua--rectangle-set-corners cua--keep-active] 6 nil nil])
#@167 Blank out CUA rectangle, shifting text right.
The text previously in the region is not overwritten by the blanks,
but instead winds up to the right of the rectangle.
(defalias 'cua-open-rectangle #[0 "\300\301\302\303\304\302\305&\207" [cua--rectangle-operation corners nil t 1 #[1028 "\300\301w\210iZ`\300\301x\210`
|\210\\j\207" [" 	" nil] 8 "\n\n(fn S E L R)"]] 7 (#$ . 26004) nil])
#@234 Delete all whitespace starting at left edge of CUA rectangle.
On each line in the rectangle, all continuous whitespace starting
at that column is deleted.
With prefix arg, also delete whitespace to the left of that column.

(fn ARG)
(defalias 'cua-close-rectangle #[257 "\300\301\302\303\304\302\305\306\"&\207" [cua--rectangle-operation clear nil t 1 make-closure #[1028 "\300\203
\301\302\303 \"\210`\262\304\302\305 \"\210`|\207" [V0 skip-syntax-backward " " line-beginning-position skip-syntax-forward line-end-position] 7 "\n\n(fn S E L R)"]] 10 (#$ . 26401) "P"])
#@93 Blank out CUA rectangle.
The text previously in the rectangle is overwritten by the blanks.
(defalias 'cua-blank-rectangle #[0 "\300\301\302\211\303\302\304&\207" [cua--rectangle-operation keep nil 1 #[1028 "b\210\300\301\302 \"\210`\262ib\210\303\301\304 \"\210`|\210\211j\207" [skip-syntax-forward " " line-end-position skip-syntax-backward line-beginning-position] 8 "\n\n(fn S E L R)"]] 7 (#$ . 26983) nil])
#@39 Align rectangle lines to left column.
(defalias 'cua-align-rectangle #[0 "\300\301\302\303\211\302\304\305&\207" [cua--rectangle-operation clear nil t #[1028 "\300 \301\302\"\210\301\303\"\210`\262\210\304\303\305 \"\210`|\210
j\207" [line-beginning-position skip-syntax-backward "^ " " " skip-syntax-forward line-end-position] 8 "\n\n(fn S E L R)"] #[514 "\300!\207" [move-to-column] 4 "\n\n(fn L R)"]] 8 (#$ . 27406) nil])
#@70 Copy rectangle, but store as normal text.

(fn &optional ARG DELETE)
(defalias 'cua-copy-rectangle-as-text #[512 "\203\211\203\f\302\303!\207\304\303!\207\305 \306\307\310#\311!\262	\203)\312	\"\266\202.\313
!\266\211\2035\314 \210\315 \207" [cua--global-mark-active cua--register cua--cut-rectangle-to-global-mark t cua--copy-rectangle-to-global-mark cua--extract-rectangle mapconcat #[257 "\211\300P\207" ["\n"] 3 "\n\n(fn ROW)"] "" cua--prefix-arg set-register kill-new cua--delete-rectangle cua--deactivate] 7 (#$ . 27843) "P"])
#@53 Kill rectangle, but store as normal text.

(fn ARG)
(defalias 'cua-cut-rectangle-as-text #[257 "\301
?\"\207" [buffer-read-only cua-copy-rectangle-as-text] 4 (#$ . 28395) "P"])
#@137 Replace CUA rectangle contents with STRING on each line.
The length of STRING need not be the same as the rectangle width.

(fn STRING)
(defalias 'cua-string-rectangle #[257 "\300\301\302\303\211\302\304\305\"\306 ?\205\304\307	\"&\207" [cua--rectangle-operation keep nil t make-closure #[1028 "|\210\301\302w\210iZ`|\210\300c\210i
\\j\207" [V0 " 	" nil] 7 "\n\n(fn S E L R)"] cua--rectangle-restriction #[514 "\301\211\300G\\S]!\207" [V0 cua--rectangle-right] 6 "\n\n(fn L R)"]] 11 (#$ . 28580) "sString rectangle: "])
#@64 Replace CUA rectangle contents with CHARACTER.

(fn CHARACTER)
(defalias 'cua-fill-char-rectangle #[257 "\300\301\302\303\304\302\305\306\"&\207" [cua--rectangle-operation clear nil t 1 make-closure #[1028 "|\210\301\302\"\210\303\300Z\"\207" [V0 move-to-column t insert-char] 8 "\n\n(fn S E L R)"]] 10 (#$ . 29117) "cFill rectangle with character: "])
#@81 Replace REGEXP with NEWTEXT in each line of CUA rectangle.

(fn REGEXP NEWTEXT)
(defalias 'cua-replace-in-rectangle #[514 "\203\301\302!\207\303\304\305\306\307\305\310\311		#&\207" [buffer-read-only message "Cannot replace in read-only buffer" cua--rectangle-operation keep nil t 1 make-closure #[1028 "\302\300\303#\205
\304\301\305\211#\207" [V0 V1 re-search-forward t replace-match nil] 8 "\n\n(fn S E L R)"]] 12 (#$ . 29484) "sReplace regexp: \nsNew text: "])
#@72 Increment each line of CUA rectangle by prefix amount.

(fn INCREMENT)
(defalias 'cua-incr-rectangle #[257 "\300\301\302\303\304\302\305\306\"&\207" [cua--rectangle-operation keep nil t 1 make-closure #[1028 "\301\302\303#\203 \304\305\224\305\225\"\306
\307\"\310\311G\"\312\310\300\\\"!\207\301\313\303#\203N\304\305\224\305\225\"\211\314H\315U\203:\316\202;\317\306\320\"\310\321G#\312\310\300\\\"!\207\322\207" [V0 re-search-forward "0x\\([[:xdigit:]]+\\)" t cua--filter-buffer-noprops 1 string-to-number 16 format "0x%%0%dx" replace-match "\\( *-?[0-9]+\\)" 0 48 "0" "" 10 "%%%s%dd" nil] 13 "\n\n(fn S E L R)"]] 10 (#$ . 29963) "p"])
#@47 Last format used by `cua-sequence-rectangle'.
(defvar cua--rectangle-seq-format "%d" (#$ . 30625))
#@142 Resequence each line of CUA rectangle starting from FIRST.
The numbers are formatted according to the FORMAT string.

(fn FIRST INCR FORMAT)
(defalias 'cua-sequence-rectangle #[771 "C
C\211\242G\301U\203\211\240\210\202\211\242\302\303\304\305\306\304\307\310	\f\n$&\207" [cua--rectangle-seq-format 0 cua--rectangle-operation clear nil t 1 make-closure #[1028 "|\210\303\302\242\300\242\"c\210\300\211\242\301\\\240\207" [V0 V1 V2 format] 7 "\n\n(fn S E L R)"]] 16 (#$ . 30731) (byte-code "\203\n\302!\202\303\304\305\306\307\"\310\211\311$!\303\304\305\312\313\"\310\211\314$!\304\315	\316Q!E\207" [current-prefix-arg cua--rectangle-seq-format prefix-numeric-value string-to-number read-string format-prompt "Start value" 0 nil "0" "Increment" 1 "1" "Format: (" ") "] 7)])
#@23 

(fn COMMAND TABIFY)
(defalias 'cua--convert-rectangle-as '(macro . #[514 "\300\301\302\211\211\303\304	\305BE\257\207" [cua--rectangle-operation 'clear nil lambda (s e _l _r) (s e)] 12 (#$ . 31529)]))
#@38 Convert the rectangle to upper case.
(defalias 'cua-upcase-rectangle #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[1028 "\300\"\207" [upcase-region] 7 "\n\n(fn S E L R)"]] 7 (#$ . 31741) nil])
#@38 Convert the rectangle to lower case.
(defalias 'cua-downcase-rectangle #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[1028 "\300\"\207" [downcase-region] 7 "\n\n(fn S E L R)"]] 7 (#$ . 31975) nil])
#@47 Convert the rectangle initials to upper case.
(defalias 'cua-upcase-initials-rectangle #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[1028 "\300\"\207" [upcase-initials-region] 7 "\n\n(fn S E L R)"]] 7 (#$ . 32213) nil])
#@39 Convert the rectangle to proper case.
(defalias 'cua-capitalize-rectangle #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[1028 "\300\"\207" [capitalize-region] 7 "\n\n(fn S E L R)"]] 7 (#$ . 32474) nil])
#@69 

(fn WIDTH ADJUST KEEP REPLACE PAD FORMAT-FCT &optional SETUP-FCT)
(defalias 'cua--rectangle-aux-replace #[1798 "\302\303!\304V\203\202\305 \306 ZT\206\307 \310C\310C\311Crq\210\312 \210\2034 \210\2028\313!\210\203Fed\"\210)	\203ceb\210m\204c
\314`\315 \"\242B\240\210\304y\210\202N)	\204m\316!\210	\205\312
\317\242!\240\210	\203\204\320\242\"\210\321\310\211\322\f\310\323\324

\f\f\f&&\210\211\242\311V\203\265\325\326\242\242\304V\203\262\327\202\263\330#\210\203\303\305\306 \\S!\210\n\205\312\331 \207" [fill-column cua--debug get-buffer-create "*CUA temp*" 1 cua--rectangle-right cua--rectangle-left cua--extract-rectangle nil 0 erase-buffer cua--insert-rectangle filter-buffer-substring line-end-position kill-buffer reverse print cua--rectangle-operation t make-closure #[1028 "\306b\210\307\306w\210i\262

\203\310
E\300\"\210`|\210\303\242\204)\302\311\240\210\202W\312\313\"\210\303\242@c\210i\301\\V\203Q\302`\240\210\312\301\\\313\"\210`\302\242|\210\304\211\242T\240\210\303\211\242A\240\210
\203b\310iD\300\"\210\314\311!\210\211j\207" [V0 V1 V2 V3 V4 cua--debug nil " 	" print 0 move-to-column t just-one-space] 9 "\n\n(fn S E L R)"] message "Warning:  Truncated %d row%s" "s" "" cua--rectangle-resized] 26 (#$ . 32717)])
(byte-code "\300\301\302\303#\300\207" [function-put cua--rectangle-aux-replace lisp-indent-function 4] 4)
#@18 

(fn START END)
(defalias 'cua--left-fill-rectangle #[514 "\300 \210`dW\203\301\302!\210\303y\210\202\304ed\305\302$\210\306ed\"\207" [beginning-of-line delete-horizontal-space nil 1 fill-region-as-paragraph left untabify] 7 (#$ . 34147)])
#@147 Replace rectangle with filled TEXT read from minibuffer.
A numeric prefix argument is used a new width for the filled rectangle.

(fn WIDTH TEXT)
(defalias 'cua-text-fill-rectangle #[514 "\300\301\211\211\302\303\304\305	\"&\207" [cua--rectangle-aux-replace t 1 cua--left-fill-rectangle make-closure #[0 "\300c\207" [V0] 1]] 12 (#$ . 34399) (byte-code "\301!\302\303\304\211\211\211%D\207" [current-prefix-arg prefix-numeric-value read-from-minibuffer "Enter text: " nil] 7)])
#@122 Fill contents of current rectangle.
A numeric prefix argument is used as new width for the filled rectangle.

(fn WIDTH)
(defalias 'cua-refill-rectangle #[257 "\300
\203\301!\202\f\302\303\211\211\304\305&\207" [cua--rectangle-aux-replace prefix-numeric-value 0 t 1 cua--left-fill-rectangle] 8 (#$ . 34887) "P"])
#@147 Run shell command on rectangle like `shell-command-on-region'.
With prefix arg, replace rectangle with output from command.

(fn REPLACE COMMAND)
(defalias 'cua-shell-command-on-rectangle #[514 "\300\301\302\211\303\304\305		#&\207" [cua--rectangle-aux-replace -1 t 1 make-closure #[514 "\302\301\300\211\303&\207" [V0 V1 shell-command-on-region nil] 9 "\n\n(fn S E)"]] 12 (#$ . 35212) (byte-code "\301\302\303\211\211\304%D\207" [current-prefix-arg read-from-minibuffer "Shell command on rectangle: " nil shell-command-history] 7)])
#@37 Reverse the lines of the rectangle.
(defalias 'cua-reverse-rectangle #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-aux-replace 0 t reverse-region] 7 (#$ . 35760) nil])
#@71 Remove the first line of the rectangle and scroll remaining lines up.
(defalias 'cua-scroll-rectangle-up #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-aux-replace 0 t #[514 "\300y\301U\205\n
`|\207" [1 0] 4 "\n\n(fn S E)"]] 7 (#$ . 35945) nil])
#@118 Insert a blank line at the first line of the rectangle.
The remaining lines are scrolled down, losing the last line.
(defalias 'cua-scroll-rectangle-down #[0 "\300\301\302\211\211\211\303&\207" [cua--rectangle-aux-replace 0 t #[514 "
b\210\300c\207" ["\n"] 3 "\n\n(fn S E)"]] 7 (#$ . 36209) nil])
#@21 

(fn &optional CH)
(defalias 'cua-insert-char-rectangle #[256 "\203\n\301 \210\202\302
\206\303 \304H!\210\305 \210\306\207" [buffer-read-only ding cua--indent-rectangle this-single-command-keys 0 cua--keep-active t] 4 (#$ . 36513) nil])
#@89 Indent rectangle to next tab stop.
With prefix arg, indent to that column.

(fn COLUMN)
(defalias 'cua-indent-rectangle #[257 "\211\204\300\301!\207\302\303\304!\"\207" [cua-insert-char-rectangle 9 cua--indent-rectangle nil prefix-numeric-value] 5 (#$ . 36764) "P"])
#@44 Delete char to left or right of rectangle.
(defalias 'cua-delete-char-rectangle #[0 "\300 \301 \302C\303\304\302\305\302\306\307\n\n\n$\306\310	\"&\207" [cua--rectangle-insert-col cua--rectangle-virtual-edges nil cua--rectangle-operation corners t make-closure #[1028 "\303\304\305!\203
T\300]\202\301\"\210n?\205*\306\307!\210\304\305!\203%\310i!\207\302iZ\240\207" [V0 V1 V2 move-to-column cua--rectangle-right-side t delete-char -1 cua--rectangle-insert-col] 7 "\n\n(fn S E L R)"] #[514 "\300\242\205\300\242\302V\205	\303\300\242ZI\210	\304\300\242ZSI\207" [V0 cua--rectangle 0 2 3] 6 "\n\n(fn L R)"]] 14 (#$ . 37040) nil])
#@23 

(fn &optional HELP)
(defalias 'cua-help-for-rectangle #[256 "\301\267\202\302\202\303\202\304\202\305\202\306\307\203 \310\202!\311\312\313\314\315\n\316\f\317\320\321\260!\207" [cua--rectangle-modifier-key #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hyper 6 super 10 alt 14 control 18)) " H-" " s-" " A-" " C-" " M-" message "C-?:help" "" "p:pad" "o:open" "c:close" "b:blank" "s:string" "f:fill" "i:incr" "n:seq"] 20 (#$ . 37694) nil])
(defalias 'cua--cancel-rectangle #[0 "\203\302 \210\303\211\207" [cua--rectangle cua--last-rectangle cua--deactivate-rectangle nil] 2])
(defalias 'cua--rectangle-post-command #[0 "\203\306\307\306\310 \210\202J	\203J\f\203J\f@p\232\203J\fA`U\204J\311 \2034\312i!\210\2028\313i!\210\314 \315Y\203F\316\307!\210\202J\317\307!\210	\203b\n\203\\\204\\\320 \210\202o\321 \210\202o
\203o\322\323
\"\210\306\307\205|b\210\306\211\207" [cua--restored-rectangle cua--rectangle mark-active deactivate-mark cua--buffer-and-point-before-command cua--rectangle-overlays nil t cua--rectangle-set-corners cua--rectangle-right-side cua--rectangle-right cua--rectangle-left cua--rectangle-corner 2 cua--rectangle-bot cua--rectangle-top cua--highlight-rectangle cua--deactivate-rectangle mapc delete-overlay cua--rect-undo-set-point] 3])
(byte-code "\300\301\302\303B\304\305$\210\300\301\306\307B\310\305$\210\300\301\311\312B\313\305$\207" [advice--add-function :around #[0 "\300\301!\207" [default-value region-extract-function] 2] #[257 "\300\301\"\207" [set-default region-extract-function] 4 "\n\n(fn GV--VAL)"] cua--rectangle-region-extract nil #[0 "\300\301!\207" [default-value region-insert-function] 2] #[257 "\300\301\"\207" [set-default region-insert-function] 4 "\n\n(fn GV--VAL)"] cua--rectangle-region-insert #[0 "\300\301!\207" [default-value redisplay-highlight-region-function] 2] #[257 "\300\301\"\207" [set-default redisplay-highlight-region-function] 4 "\n\n(fn GV--VAL)"] cua--rectangle-highlight-for-redisplay] 5)
#@24 

(fn ORIG &rest ARGS)
(defalias 'cua--rectangle-highlight-for-redisplay #[385 "\204	\302\"\207	\3038!\207" [cua--rectangle redisplay-unhighlight-region-function apply 3] 5 (#$ . 39768)])
#@24 

(fn ORIG &rest ARGS)
(defalias 'cua--rectangle-region-insert #[385 "\204	\301\"\207\302
@!\207" [cua--rectangle apply cua--insert-rectangle] 5 (#$ . 39967)])
#@30 

(fn ORIG &optional DELETE)
(defalias 'cua--rectangle-region-extract #[513 "\204

!\207\211\305\267\202\306 \207\307 \207\310 \311\312\313#\203\"\307 \210
\n\205*\n@	B\f\314=\2035\315
\205H\316\317G\320\321\322BB%\210\211\207" [cua--rectangle killed-rectangle kill-ring cua--last-killed-rectangle last-command #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bounds 14 delete-only 17)) cua--extract-rectangle-bounds cua--delete-rectangle cua--extract-rectangle mapconcat identity "\n" kill-region kill-region-dont-append put-text-property 0 yank-handler rectangle--insert-for-yank (t)] 11 (#$ . 40137)])
#@16 

(fn KEY CMD)
(defalias 'cua--rect-M/H-key #[514 "\301#\207" [cua--rectangle-keymap cua--M/H-key] 6 (#$ . 40803)])
(defalias 'cua--init-rectangles #[0 "\305	\306#\210\305\n	\307#\210\310=\204\311\312\306\"\210\313\n\312\307#\210\305\314\307#\210\305\315\316#\210\305\317\316#\210\305\320\321#\210\305\322\321#\210\305\323\324#\210\305\325\326#\210\305\327\330#\210\305\331\332#\210\305\333\334#\210\305\335\336#\210\305\337\340#\210\305\341\342#\210\305\343\340#\210\305\344\342#\210\305\345\346#\210\305\347\346#\210\305\350\346#\210\305\351\352#\210\305\353\354#\210\305\355\356#\210\305\357\360#\210\305\361\362#\210\305\363\364#\210\305\365\366#\210\305\367\366#\210\305\370\371#\210\305\372\366#\210\305\373\366#\210\311\374\375\"\210\311\376\377\"\210\311\201@\201A\"\210\311\201B\201C\"\210\311\201D\201E\"\210\311\201F\201G\"\210\311\201H\201I\"\210\311\201J\201K\"\210\311\201L\201M\"\210\311\201N\201O\"\210\311\201P\201Q\"\210\311\201R\201S\"\210\311\201T\201U\"\210\311\201V\201W\"\210\311\201X\201Y\"\210\311\201Z\201[\"\210\311\201\\\201]\"\210\311\201^\201_\"\210\311\201`\201a\"\210\311\201b\201c\"\210\311\201d\201e\"\210\311\201f\201g\"\210\311\201h\201i\"\210\311\201j\201k\"\210\311\201l\201m\"\210\311\201n\201o\"\210\311\201p\201q\"\210\201r\211\207" [cua--rectangle-keymap cua-rectangle-mark-key cua--region-keymap cua--rectangle-modifier-key cua--rectangle-initialized define-key cua-clear-rectangle-mark cua-toggle-rectangle-mark meta cua--rect-M/H-key 32 cua--M/H-key [remap set-mark-command] [remap forward-char] cua-resize-rectangle-right [remap right-char] [remap backward-char] cua-resize-rectangle-left [remap left-char] [remap next-line] cua-resize-rectangle-down [remap previous-line] cua-resize-rectangle-up [remap end-of-line] cua-resize-rectangle-eol [remap beginning-of-line] cua-resize-rectangle-bol [remap end-of-buffer] cua-resize-rectangle-bot [remap beginning-of-buffer] cua-resize-rectangle-top [remap scroll-down] cua-resize-rectangle-page-up [remap scroll-up] cua-resize-rectangle-page-down [remap scroll-down-command] [remap scroll-up-command] [remap delete-backward-char] cua-delete-char-rectangle [remap backward-delete-char] [remap backward-delete-char-untabify] [remap self-insert-command] cua-insert-char-rectangle [t] (menu-item "sic" cua-insert-char-rectangle :filter cua--self-insert-char-p) "
" cua-rotate-rectangle "	" cua-indent-rectangle [(control 63)] cua-help-for-rectangle [mouse-1] cua-mouse-set-rectangle-mark [down-mouse-1] cua--mouse-ignore [drag-mouse-1] [mouse-3] cua-mouse-save-then-kill-rectangle [down-mouse-3] [drag-mouse-3] up cua-move-rectangle-up down cua-move-rectangle-down left cua-move-rectangle-left right cua-move-rectangle-right (control up) cua-scroll-rectangle-up (control down) cua-scroll-rectangle-down 97 cua-align-rectangle 98 cua-blank-rectangle 99 cua-close-rectangle 102 cua-fill-char-rectangle 105 cua-incr-rectangle 107 cua-cut-rectangle-as-text 108 cua-downcase-rectangle 109 cua-copy-rectangle-as-text 110 cua-sequence-rectangle 111 cua-open-rectangle 112 cua-toggle-rectangle-virtual-edges 80 cua-do-rectangle-padding 113 cua-refill-rectangle 114 cua-replace-in-rectangle 82 cua-reverse-rectangle 115 cua-string-rectangle 116 cua-text-fill-rectangle 117 cua-upcase-rectangle 124 cua-shell-command-on-rectangle 39 cua-restrict-prefix-rectangle 47 cua-restrict-regexp-rectangle t] 4])
(provide 'cua-rect)