ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/emulation/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/emulation/cua-rect.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\302!\207" [require cua-base rect] 2)
(defvar cua--rectangle nil)
(make-variable-buffer-local 'cua--rectangle)
(defvar cua--last-rectangle nil)
(defvar cua--restored-rectangle nil)
(defvar cua--last-killed-rectangle nil)
(defvar cua--rectangle-overlays nil)
(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 "\301 \302\303\304#)\207" [map make-sparse-keymap define-key "
" cua-rotate-rectangle] 4))
(defvar cua--virtual-edges-debug nil)
(defvar cua--rect-undo-set-point nil)
(defalias 'cua--rectangle-undo-boundary #[nil "<\205 \304 \305 \306 \210\307\310\n \311\312 !\313\n \257 B\211*\207" [buffer-undo-list e s cua--rectangle cua--rect-start-position cua--rect-end-position undo-boundary apply 0 cua--rect-undo-handler copy-sequence t] 9])
(defalias 'cua--rect-undo-handler #[(rect on s e) "?\211\203\f \202 \306 !\307\310\311 \203 \202 \312 \257 \fB\211\f\207" [on s cua--rect-undo-set-point rect cua--restored-rectangle cua--buffer-and-point-before-command copy-sequence nil apply 0 cua--rect-undo-handler e buffer-undo-list] 9])
#@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 (#$ . 1617))
(make-variable-buffer-local 'cua-rectangle-mark-mode)
#@112 Toggle the region as rectangular.
Activates the region if needed. Only lasts until the region is deactivated.
(defalias 'cua-rectangle-mark-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203* \310\311\312\"\210\310\313\314\315\316$\210\317 \210\2023 \320 \210\321\313\314\316#\210\322\323\n\203= \324\202> \325\"\210\326\327!\203c \304 \203R \304 \232\203c \330\331\332\n\203^ \333\202_ \334 #\210))\335 \210\n\207" [#1=#:last-message arg cua-rectangle-mark-mode local current-message toggle prefix-numeric-value 0 add-hook deactivate-mark-hook #[nil "\300\301!\207" [cua-rectangle-mark-mode -1] 2] post-command-hook cua--rectangle-post-command nil t 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 " in current buffer" message "Cua-Rectangle-Mark mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 1841) (list (or current-prefix-arg 'toggle))])
#@188 Hook run after entering or leaving `cua-rectangle-mark-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar cua-rectangle-mark-mode-hook nil (#$ . 2870))
(byte-code "\301\302\303\303\211%\207" [cua--rectangle-keymap add-minor-mode cua-rectangle-mark-mode nil] 6)
(defalias 'cua--rectangle-top #[(&optional val) "\204 \302H\207\303 \211 \304HX\203 \302I\207 \304I\210\305\306!\207" [val cua--rectangle 0 line-beginning-position 1 cua--rectangle-corner 2] 4])
(defalias 'cua--rectangle-bot #[(&optional val) "\204 \302H\207\303 \211 \304HY\203 \302I\207 \304I\210\305\306!\207" [val cua--rectangle 1 line-end-position 0 cua--rectangle-corner 2] 4])
(defalias 'cua--rectangle-left #[(&optional val) "\250\203$ \302HX\203 \303I\207 \302I\210\304\305 \203! \306\202\" \307!\207 \303H\207" [val cua--rectangle 3 2 cua--rectangle-corner cua--rectangle-right-side -1 1] 3])
(defalias 'cua--rectangle-right #[(&optional val) "\250\203$ \302HY\203 \303I\207 \302I\210\304\305 \203! \306\202\" \307!\207 \303H\207" [val cua--rectangle 2 3 cua--rectangle-corner cua--rectangle-right-side -1 1] 3])
(defalias 'cua--rectangle-corner #[(&optional advance) "\303H\n\250\204
\202) \303\n\304U\203 \305 Z\202# \306\307 \303\n#\303\"I\210\310\304I)\207" [cua--rectangle c advance 4 0 3 mod + 5] 7])
(defalias 'cua--rectangle-right-side #[(&optional topbot) "\203 \301 \302 U\203 \303 \304W\207\305\303 \304\"\306U\207" [topbot cua--rectangle-left cua--rectangle-right cua--rectangle-corner 2 mod 1] 3])
(defalias 'cua--rectangle-column #[nil "\300 \203 \301 \207\302 \207" [cua--rectangle-right-side cua--rectangle-right cua--rectangle-left] 1])
(defalias 'cua--rectangle-insert-col #[(&optional col) "\250\203\n \302I\207\303\304!\203 \302H\305U\203 \306 T\207 \302H\207\307 \207" [col cua--rectangle 5 cua--rectangle-right-side t 0 cua--rectangle-right cua--rectangle-left] 3])
(defalias 'cua--rectangle-virtual-edges #[(&optional set val) "\203 \303\nI\210 \303H\207" [set cua--rectangle val 6] 3])
(defalias 'cua--rectangle-restriction #[(&optional val bounded negated) "\203 \304;\205 G\305V\205 \n EI\207 \304H\207" [val cua--rectangle bounded negated 7 0] 5])
(defalias 'cua--rectangle-assert #[nil "\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 #[nil "`\306 \307\211\211 \212\fb\210i b\210i\f X\203+ \nX\203& \310\202' \311\202; \f \nX\2039 \312\202: \313 \nX\203M \nW\203c \nS\202c \n \fb\210\314 !\210` b\210\314\n!\210`)\315\f \n\310
\307&-\207" [corner l r bot top cua-virtual-rectangle-edges mark nil 0 1 2 3 move-to-column vector] 9])
(defalias 'cua--rectangle-set-corners #[nil "\306\211\211\211\307 \310U\203 \311 \312 \313 \314 \202\\ \315U\2035 \311 \314 \313 \312 \202\\ \316U\203J \313 \312 \311 \314 \202\\ \317U\203\\ \313 \314 \311 \312 \nb\210\320 !\210\321`!\210\fb\210\322 \203~ \320 !
ZU\205\215 l?\202\203 \320 ! V\205\215 n?\205\215 \323u-\207" [c mc mp pc pp 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] 5])
(defalias 'cua--rect-start-position #[nil "\212\300 b\210\301\302 !\302 V\203 n\204 \303u\210`)\207" [cua--rectangle-top move-to-column cua--rectangle-left -1] 2])
(defalias 'cua--rect-end-position #[nil "\212\301 b\210\302\303 !\303 ZU\203 l\204 n\204 \304u\210`)\207" [tab-width cua--rectangle-bot move-to-column cua--rectangle-right -1] 3])
(defalias 'cua--forward-line #[(n) "` y\302U\205 m?\206 b)\207" [pt n 0] 2])
(defalias 'cua--rectangle-resized #[nil "\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])
#@32 Resize rectangle to the right.
(defalias 'cua-resize-rectangle-right #[(n) "\302V\302V\203. S\303 \203 \304\211 T!\210\305\304 !\210\202 \306\211 T!\210\305\304 !\210\202 \2054 \307 )\207" [n resized 0 cua--rectangle-right-side cua--rectangle-right move-to-column cua--rectangle-left cua--rectangle-resized] 2 (#$ . 6984) "p"])
#@31 Resize rectangle to the left.
(defalias 'cua-resize-rectangle-left #[(n) "\302 \303V\203G S\304 \303U\204 \305 \204$ \306 \303U\203$ \303\211\202 \305 \2037 \304\211 S!\210\307\304 !\210\202B \306\211 S!\210\307\304 !\210\310\202 \205M \311 )\207" [resized n nil 0 cua--rectangle-right cua--rectangle-right-side cua--rectangle-left move-to-column t cua--rectangle-resized] 3 (#$ . 7327) "p"])
#@29 Resize rectangle downwards.
(defalias 'cua-resize-rectangle-down #[(n) "\302 \303V\203B S\304 \305Y\203* \306 b\210\307\310!\203 \311\312 !\210\306\313!\210\313\202 \314 b\210\307\310!\203 \311\312 !\210\314\313!\210\313\202 \205H \315 )\207" [resized n 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] 2 (#$ . 7735) "p"])
#@27 Resize rectangle upwards.
(defalias 'cua-resize-rectangle-up #[(n) "\302 \303V\203B S\304 \305Y\203* \306 b\210\307\310!\203 \311\312 !\210\306\313!\210\313\202 \314 b\210\307\310!\203 \311\312 !\210\314\313!\210\313\202 \205H \315 )\207" [resized n 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] 2 (#$ . 8176) "p"])
#@34 Resize rectangle to end of line.
(defalias 'cua-resize-rectangle-eol #[nil "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 (#$ . 8614) nil])
#@40 Resize rectangle to beginning of line.
(defalias 'cua-resize-rectangle-bol #[nil "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 (#$ . 8891) nil])
#@39 Resize rectangle to bottom of buffer.
(defalias 'cua-resize-rectangle-bot #[nil "db\210\300\301 !\210\302\303!\210\304 \207" [move-to-column cua--rectangle-column cua--rectangle-bot t cua--rectangle-resized] 2 (#$ . 9175) nil])
#@36 Resize rectangle to top of buffer.
(defalias 'cua-resize-rectangle-top #[nil "eb\210\300\301 !\210\302\303!\210\304 \207" [move-to-column cua--rectangle-column cua--rectangle-top t cua--rectangle-resized] 2 (#$ . 9409) nil])
#@46 Resize rectangle upwards by one scroll page.
(defalias 'cua-resize-rectangle-page-up #[nil "\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 (#$ . 9640) nil])
#@48 Resize rectangle downwards by one scroll page.
(defalias 'cua-resize-rectangle-page-down #[nil "\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 (#$ . 9978) nil])
#@47 Set rectangle corner at mouse click position.
(defalias 'cua-mouse-resize-rectangle #[(event) "\301!\210\302 \203 \303\304\305!!@\306\"\210\307 \203 \310i!\210\202# \311i!\210\312 \313Y\2031 \314\306!\210\2025 \315\306!\210\316 \207" [event 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] 4 (#$ . 10318) "e"])
(defvar cua--mouse-last-pos nil)
#@42 Start rectangle at mouse click position.
(defalias 'cua-mouse-set-rectangle-mark #[(event) "\203 \305 \210\306\307!\210\310\311\n!\210\312 \210\310\211\211\207" [cua--rectangle cua--last-rectangle event cua--buffer-and-point-before-command cua--mouse-last-pos cua--deactivate-rectangle cua--deactivate t nil mouse-set-point cua-set-rectangle-mark] 3 (#$ . 10861) "e"])
#@125 Expand rectangle to mouse click position and copy rectangle.
If command is repeated at same position, delete the rectangle.
(defalias 'cua-mouse-save-then-kill-rectangle #[(event arg) " =\203 `\n\242=\203 \n\243=\203 \f\204 \306 \210\307 \207\310
!\210\311 \312\f!\210` B\211)\207" [this-command last-command cua--mouse-last-pos cua--last-killed-rectangle buffer-read-only event cua--delete-rectangle cua--deactivate cua-mouse-resize-rectangle t cua-copy-region cua-keep-region-after-copy arg] 2 (#$ . 11242) "e\nP"])
(defalias 'cua--mouse-ignore #[(_event) "\211\207" [last-command this-command] 2 nil "e"])
(defalias 'cua--rectangle-move #[(dir) "\306\307 \310 \311 \312
\313=\203. b\210\314\315!\203} \307\306!\210\nb\210\315y\210\310\306!\210\202}
\316=\203O \nb\210\314\317!\203} \310\306!\210 b\210\314\317!\210\307\306!\210\202}
\320=\203h \321V\203} \311 S!\210\312S!\210\202}
\322=\203{ \312T!\210\311 T!\210\202} \323\f\205\211 \323\324 \210\325 -\207" [r l bot top moved dir t cua--rectangle-top cua--rectangle-bot cua--rectangle-left cua--rectangle-right up cua--forward-line -1 down 1 left 0 right nil cua--rectangle-set-corners cua--keep-active cua--buffer-and-point-before-command] 5])
(defalias 'cua--tabify-start #[(start end) "\212\214~\210?\205, \205, \250\203+ edU\204+ e\n Z]b\210\304\305d \\^\306#\205, \n*\207" [buffer-read-only cua-auto-tabify-rectangles start end search-forward " " t] 5])
(defalias 'cua--rectangle-operation #[(keep-clear visible undo pad tabify &optional fct post-fct) "\306\307 \310 \311 \312 T \313 $\250\205 $\314U %\315 & \205+ \316 \n\" '(\2035 \317 \210$\250\203? \320 $\212\214~\210\321 \322V\203\\ \nb\210n\203\\ l\204\\ m\204\\ \nT)\306=\203m \323 ]\324 \n^\nb\210\325 )\203\203 n\203\203 m\204\203 \nT b\210\326 \211\n}\210eb\210`dW\203F\327\f$\"\210$\204\257 )\204\257 i\fV\203\257 \330u\210%\203\302 $\204\302 \331\332!\203\302 \322u\210
`\333\223\210\327 $\"\210*\203;)\204\343 i Y\203;i\fX\203;\306` + ,&\203&A@\203\377 \331&@!,\202\f\334&@
\306#,+b\210&AA@\203,?,)\203,*+
\f,%\210\202:,\203:*+
\f$\210*
\333\211\223\210\322y\210\202\220 )\204O\310\306!\210-\203Z- \f\"\210'\203e\335'`\"\210*.\336=\203s\337 \210\202\215.\340=\203\200\341 \210\202\215.\342=\203\215\343 \210\337 \210\333\211/. \207" [inhibit-field-text-motion start end l r m 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 keep cua--keep-active clear cua--deactivate corners cua--rectangle-set-corners pad tabpad sel tabify-start undo visible fct p v post-fct keep-clear cua--buffer-and-point-before-command] 7])
(put 'cua--rectangle-operation 'lisp-indent-function 4)
(defalias 'cua--delete-rectangle #[nil "\301\302 \204 \303\304\211\305\306\305\307&\210\202 \303\304\310\305\304\305\311&\210)\207" [lines 0 cua--rectangle-virtual-edges cua--rectangle-operation nil t 2 #[(s e _l _r _v) "T \nV\205 dX\205 \n |\207" [lines e s] 2] 1 #[(s e _l _r _v) "T \nV\205 dX\205 \n |\207" [lines e s] 2]] 7])
(defalias 'cua--extract-rectangle #[nil "\301\302 \204 \303\301\211\211\211\211\304&\210\202 \303\301\305\301\211\211\306&\210\237)\207" [rect nil cua--rectangle-virtual-edges cua--rectangle-operation #[(s e _l _r) "\303 \"\nB\211\207" [s e rect cua--filter-buffer-noprops] 3] 1 #[(s e l r _v) "\306\307\211\310\f
U\203
T\fb\210\311!\210`\312 U\203+ Z\310\202L \313
w\210i^Z`\311!\210\313\fx\210i]Z` \203]
\fV\203] \314\f
\"\202^ \315\n\307V\203l \316\n\317\"P \307V\203y \316 \317\"PB\211,\207" [row as bs copy s e t 0 nil move-to-column line-end-position " " cua--filter-buffer-noprops "" make-string 32 l r rect] 4]] 7])
(defalias 'cua--extract-rectangle-bounds #[nil "\301\302 \204 \303\301\211\211\211\211\304&\210\202 \303\301\305\301\211\211\306&\210\237)\207" [rect nil cua--rectangle-virtual-edges cua--rectangle-operation #[(s e _l _r) " B\nB\211\207" [s e rect] 2] 1 #[(s e l r _v) "b\210\305 !\210`\305\n!\210` B\fB\211\207" [s l r e rect move-to-column] 2]] 7])
(defalias 'cua--insert-rectangle #[(rect &optional below paste-column line-count) "\306=\203 n\205 l\206 m\206 `TdU \204 i\n\307\310``\"\311\211 \2045 \203\231 \204O \203E \312c\210\202O \313y\210n\204O \312c\210\204Y \314 \307\"\210\204c \311\202 \315@!\210\f\204o iA\203 \204 `\311\203, S\211\316U\203, \311\211\202. \203\317 \f\203\317 \204\317 \316V\203\317 \313y\210n\204\270 \312c\210\314 \307\"\210\317\320\321\f \322#\"\210S\211\202\251
\203\335 \204\335 \323
`\"\210 \205\351 ?\205\351 b-\207" [below paste-column rect p last-column tabify-start auto t cua--tabify-start nil 10 1 move-to-column insert-for-yank 0 insert-char 32 - -1 tabify first lines overwrite-mode line-count] 7])
(defalias 'cua--copy-rectangle-as-kill #[(&optional ring) "\203\n \305\306 \"\207\306 \n\205 \n@ B\f\205! \307\310\311 \312#!\207" [cua--register killed-rectangle kill-ring cua--last-killed-rectangle ring set-register cua--extract-rectangle kill-new mapconcat #[(row) "\301P\207" [row "\n"] 2] ""] 5])
(defalias 'cua--activate-rectangle #[nil "\203 @p=\203 A@`=\203 AA\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 #[nil "\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 #[nil " \306\307 \310 T \nU\204! \311\312!\210\313\306\314\306\211\211\315&\210\316\317
\"\210\f\237\211-\207" [deactivate-mark cua--rectangle-overlays right left new old nil cua--rectangle-left cua--rectangle-right sit-for 0 cua--rectangle-operation t #[(s e l r v) "\203 \306\202 \307\310\211\211\211 \311 \203\232\312 \313 \310\211\211\211\211\211 ) * + , - . / 01b\210\3142!.`,\3143!+`)0,U\203U \315-\202] ,Sb\210i-0/U\203k \315*\202s )Sb\210i*.2U\203\203 +3U\204\230.2U\204\317 \316\317\3202-/,U\203\246 /0U\204\246 \321\202\247 \315#4\203\261 \322\202\262 \323\"\324\3251Se]\324\"\206\300 \326#,/U\204\317 1S1+3U\203\n)/U\204\230*+SU\204\230 \204\367 *+5ZU\204\230\327+5\"\315U\204\2306S6\202\230+.U\203L\316\31732Z4\203\"\330\202#\323\"\324
#\331 \203;\332\nGS\nG\333\334\n%\210\202C\332\315\321\333\334\n%\210 \nP\310\202\230\316\317\3203*/)U\203_\321\202`\315#4\203j\335\202k\323\"\324
#\331 \203\203\332 GS G\333\334 %\210\202\213\332\315\321\333\334 %\210)/U\204\2306S6.7\203\3067@\211\203\306\336\f!1W\203\306\337\f!6U\204\306\340\f!\2107A\2117\204\2377\203\3657@\211\203\365\336\f!1U\204\345\337\f!6U\203\365\341\f16#\2107A7\202\374\34216\"\343\f\344 #\210\343\f\345 #\210\343\f\324
#\210\343\f\3468#\210\343\f\347\350 #\210\f9B\2119-\207" [v as ms bs overlay rface 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 pr cr0 cr pl cl0 cl le lb s l r cua--virtual-edges-debug tab-width e old cua--overlay-keymap new] 9] mapc delete-overlay] 7])
(defalias 'cua--indent-rectangle #[(&optional ch to-col clear) "\304 \305 \306\307 \203 \303\202 \310\306\311 \306\312\313&+\207" [indent pad col clear cua--rectangle-insert-col cua--rectangle-virtual-edges nil cua--rectangle-operation corners t #[(_s _e l _r) "\306 \"\210l\203 iW\203 \306\307\"\210\n\203 \nj\210\2021 \203. \310=\204. c\210\2021 \311 \210\312\307!\203; \313i!\207i\fZ\211\207" [col pad to-col ch l indent move-to-column t 9 tab-to-tab-stop cua--rectangle-right-side cua--rectangle-insert-col] 3] #[(l r) "\205 \304V\205 \305\n\\I\210 \306\307 \310#I\207" [indent cua--rectangle l r 0 2 3 + -1] 6]] 8])
(defvar cua--rectangle-initialized nil)
#@106 Set mark and start in CUA rectangle mode.
With prefix argument, activate previous rectangle if possible.
(defalias 'cua-set-rectangle-mark #[(&optional reopen) "\204 \306 \210 ?\205: \n\203# \203# @p=\203# A@b\210\202- \f\204- \307\310\211\311#\210\312 \210\313 \210
\205: \314\311!\207" [cua--rectangle-initialized cua--rectangle reopen 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] 4 (#$ . 19891) "P"])
#@27 Cancel current rectangle.
(defalias 'cua-clear-rectangle-mark #[nil "\205 \302\303 \207" [cua--rectangle mark-active nil cua--deactivate-rectangle] 1 (#$ . 20436) nil])
(defalias 'cua-toggle-rectangle-mark #[nil "\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])
#@94 Restrict rectangle to lines (not) matching regexp.
With prefix argument, toggle restriction.
(defalias 'cua-restrict-regexp-rectangle #[(arg) "\302 \211\203& A@\204& \203 \302@\303AA@?#\2021 \302\304\303\211#\2021 \302\305\306\303\211\211\211%\303 #)\207" [r arg cua--rectangle-restriction nil "" read-from-minibuffer "Restrict rectangle (regexp): "] 8 (#$ . 20987) "P"])
#@97 Restrict rectangle to lines (not) starting with CHAR.
With prefix argument, toggle restriction.
(defalias 'cua-restrict-prefix-rectangle #[(arg) "\302 \211\203& A@\203& \203 \302@\303AA@?#\2020 \302\304\305\211#\2020 \302\306\307\310\311!\"\303 #)\207" [r arg cua--rectangle-restriction t "" nil format "[%c]" read-char "Restrictive rectangle (char): "] 6 (#$ . 21371) "P"])
(defalias 'cua-move-rectangle-up #[nil "\300\301!\207" [cua--rectangle-move up] 2 nil nil])
(defalias 'cua-move-rectangle-down #[nil "\300\301!\207" [cua--rectangle-move down] 2 nil nil])
(defalias 'cua-move-rectangle-left #[nil "\300\301!\207" [cua--rectangle-move left] 2 nil nil])
(defalias 'cua-move-rectangle-right #[nil "\300\301!\207" [cua--rectangle-move right] 2 nil nil])
(defalias 'cua-rotate-rectangle #[nil "\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 #[nil "\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 #[nil "\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 #[nil "\300\301\302\303\304\302\305&\207" [cua--rectangle-operation corners nil t 1 #[(_s _e l r) "\304\305w\210iZ`\304\305x\210` |\210 \n\\j*\207" [l p ws r " " nil] 2]] 7 (#$ . 22929) nil])
#@224 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.
(defalias 'cua-close-rectangle #[(arg) "\300\301\302\303\304\302\305&\207" [cua--rectangle-operation clear nil t 1 #[(s _e _l _r) "\203\f \302\303\304 \"\210`\305\303\306 \"\210 `|\207" [arg s skip-syntax-backward " " line-beginning-position skip-syntax-forward line-end-position] 3]] 7 (#$ . 23329) "P"])
#@93 Blank out CUA rectangle.
The text previously in the rectangle is overwritten by the blanks.
(defalias 'cua-blank-rectangle #[nil "\300\301\302\211\303\302\304&\207" [cua--rectangle-operation keep nil 1 #[(s e _l _r) "b\210\303\304\305 \"\210`i\nb\210\306\304\307 \"\210`|\210 j)\207" [e column s skip-syntax-forward " " line-end-position skip-syntax-backward line-beginning-position] 3]] 7 (#$ . 23867) nil])
#@39 Align rectangle lines to left column.
(defalias 'cua-align-rectangle #[nil "\300\301\302\303\211\302\304\305&\207" [cua--rectangle-operation clear nil t #[(s _e l _r) "\303 \304\305\"\210\304\306\"\210`)\307\306\310 \"\210 `|\210\nj\207" [b s l line-beginning-position skip-syntax-backward "^ " " " skip-syntax-forward line-end-position] 3] #[(l _r) "\301!\207" [l move-to-column] 2]] 8 (#$ . 24287) nil])
#@43 Copy rectangle, but store as normal text.
(defalias 'cua-copy-rectangle-as-text #[(&optional arg delete) "\203 \203\f \306\307!\207\310\307!\207\311 \312\313\n\314#\315\f!
\203) \316
\"\210\202- \317 !\210* \2035 \320 \210\321 \207" [cua--global-mark-active delete rect text arg cua--register cua--cut-rectangle-to-global-mark t cua--copy-rectangle-to-global-mark cua--extract-rectangle mapconcat #[(row) "\301P\207" [row "\n"] 2] "" cua--prefix-arg set-register kill-new cua--delete-rectangle cua--deactivate] 4 (#$ . 24705) "P"])
#@43 Kill rectangle, but store as normal text.
(defalias 'cua-cut-rectangle-as-text #[(arg) "\302 ?\"\207" [arg buffer-read-only cua-copy-rectangle-as-text] 3 (#$ . 25251) "P"])
#@124 Replace CUA rectangle contents with STRING on each line.
The length of STRING need not be the same as the rectangle width.
(defalias 'cua-string-rectangle #[(string) "\300\301\302\303\211\302\304\305 ?\205 \306&\207" [cua--rectangle-operation keep nil t #[(s e l _r) " |\210\305\306w\210i\nZ`|\210\fc\210i \\j)\207" [s e l ws string " " nil] 2] cua--rectangle-restriction #[(l _r) "\302\303 G\304#]!\207" [l string cua--rectangle-right + -1] 6]] 8 (#$ . 25432) "sString rectangle: "])
#@48 Replace CUA rectangle contents with CHARACTER.
(defalias 'cua-fill-char-rectangle #[(character) "\300\301\302\303\304\302\305&\207" [cua--rectangle-operation clear nil t 1 #[(s e l r) " |\210\305\n\306\"\210\307 \f\nZ\"\207" [s e l character r move-to-column t insert-char] 4]] 7 (#$ . 25931) "cFill rectangle with character: "])
#@60 Replace REGEXP with NEWTEXT in each line of CUA rectangle.
(defalias 'cua-replace-in-rectangle #[(regexp newtext) "\203 \301\302!\207\303\304\305\306\307\305\310&\207" [buffer-read-only message "Cannot replace in read-only buffer" cua--rectangle-operation keep nil t 1 #[(_s e _l _r) "\303 \304#\205
\305\n\306\211#\207" [regexp e newtext re-search-forward t replace-match nil] 4]] 7 (#$ . 26269) "sReplace regexp: \nsNew text: "])
#@56 Increment each line of CUA rectangle by prefix amount.
(defalias 'cua-incr-rectangle #[(increment) "\300\301\302\303\304\302\305&\207" [cua--rectangle-operation keep nil t 1 #[(_s e _l _r) "\306\307\310#\203$ \311\312\224\312\225\"\313 \314\"\315\316 G\"\317\315 \n\f\\\"!+\207\306\320\310#\203W \311\312\224\312\225\"\211\321H\322U\203? \323\202@ \324 \313 \325\"\315\326
G#\317\315 \n\f\\\"!,\207\327\207" [e txt n fmt increment prefix re-search-forward "0x\\([0-9a-fA-F]+\\)" 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] 6]] 7 (#$ . 26712) "p"])
#@47 Last format used by `cua-sequence-rectangle'.
(defvar cua--rectangle-seq-format "%d" (#$ . 27364))
#@118 Resequence each line of CUA rectangle starting from FIRST.
The numbers are formatted according to the FORMAT string.
(defalias 'cua-sequence-rectangle #[(first incr format) "G\302U\203\f \202 \303\304\305\306\307\305\310&\207" [format cua--rectangle-seq-format 0 cua--rectangle-operation clear nil t 1 #[(s e _l _r) " |\210\302\n \"c\210 \f\\\211\207" [s e format first incr] 3]] 7 (#$ . 27470) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (string-to-number (read-string "Start value: (0) " nil nil "0"))) (string-to-number (read-string "Increment: (1) " nil nil "1")) (read-string (concat "Format: (" cua--rectangle-seq-format ") ")))])
(defalias 'cua--convert-rectangle-as '(macro . #[(command tabify) "\302\303\304\211\211\305\306 \307BE\257\207" [tabify command cua--rectangle-operation 'clear nil lambda (s e _l _r) (s e)] 10]))
#@38 Convert the rectangle to upper case.
(defalias 'cua-upcase-rectangle #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[(s e _l _r) "\302 \"\207" [s e upcase-region] 3]] 7 (#$ . 28347) nil])
#@38 Convert the rectangle to lower case.
(defalias 'cua-downcase-rectangle #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[(s e _l _r) "\302 \"\207" [s e downcase-region] 3]] 7 (#$ . 28575) nil])
#@47 Convert the rectangle initials to upper case.
(defalias 'cua-upcase-initials-rectangle #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[(s e _l _r) "\302 \"\207" [s e upcase-initials-region] 3]] 7 (#$ . 28807) nil])
#@39 Convert the rectangle to proper case.
(defalias 'cua-capitalize-rectangle #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-operation clear nil #[(s e _l _r) "\302 \"\207" [s e capitalize-region] 3]] 7 (#$ . 29062) nil])
(defalias 'cua--rectangle-aux-replace #[(width adjust keep replace pad format-fct &optional setup-fct) "\306\307!\310V\203
\202 \311\312 \313 \314# \206 \315 \316\211\317 !r!q\210\320 \210 \2037 \210\202; \321
!\210\"\203K #\"ed\"\210)$\203e eb\210m\204e \322`\323 \" B\310y\210\202S )%\204p \324!!\210$\205\273 \325 !%\203\204 \326 !\"\210\327\316\211\330&\316\331&\210\n\317V\203\245 \332\333\n\211\310V\203\242 \334\202\243 \335#\210'\203\264 \312\336\313 \314#!\210(\205\273 \337 .\207" [width setup-fct tr z y r get-buffer-create "*CUA temp*" 1 - cua--rectangle-right cua--rectangle-left -1 cua--extract-rectangle nil 0 erase-buffer cua--insert-rectangle filter-buffer-substring line-end-position kill-buffer reverse print cua--rectangle-operation t #[(s e l _r) "\306 b\210\307\306w\210i\n\203 \310 E\f\"\210 `|\210
\204% \311
\202R \312\313\"\210
@c\210i\\V\203O `
\312\\\313\"\210`
|\210T
A\n\203] \310iD\f\"\210\314\311!\210j)\207" [cc e cua--debug s auxbuf z nil " " print 0 move-to-column t just-one-space y l w tr] 4] message "Warning: Truncated %d row%s" "s" "" + cua--rectangle-resized w auxbuf format-fct fill-column replace cua--debug pad adjust keep] 7])
(put 'cua--rectangle-aux-replace 'lisp-indent-function 4)
(defalias 'cua--left-fill-rectangle #[(_start _end) "\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] 5])
#@130 Replace rectangle with filled TEXT read from minibuffer.
A numeric prefix argument is used a new width for the filled rectangle.
(defalias 'cua-text-fill-rectangle #[(width text) "\301\302\211\211\303\304\305&\207" [width cua--rectangle-aux-replace t 1 cua--left-fill-rectangle #[nil "c\207" [text] 1]] 8 (#$ . 30816) (list (prefix-numeric-value current-prefix-arg) (read-from-minibuffer "Enter text: " nil nil nil nil))])
#@110 Fill contents of current rectangle.
A numeric prefix argument is used as new width for the filled rectangle.
(defalias 'cua-refill-rectangle #[(width) "\301\203 \302!\202\f \303\304\211\211\305\306&\207" [width cua--rectangle-aux-replace prefix-numeric-value 0 t 1 cua--left-fill-rectangle] 7 (#$ . 31249) "P"])
#@125 Run shell command on rectangle like `shell-command-on-region'.
With prefix arg, replace rectangle with output from command.
(defalias 'cua-shell-command-on-rectangle #[(replace command) "\301\302\303\211\304\305&\207" [replace cua--rectangle-aux-replace -1 t 1 #[(s e) "\304 \n \211\305&\207" [s e command replace shell-command-on-region nil] 7]] 7 (#$ . 31572) (list current-prefix-arg (read-from-minibuffer "Shell command on rectangle: " nil nil nil 'shell-command-history))])
#@37 Reverse the lines of the rectangle.
(defalias 'cua-reverse-rectangle #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-aux-replace 0 t reverse-region] 7 (#$ . 32061) nil])
#@71 Remove the first line of the rectangle and scroll remaining lines up.
(defalias 'cua-scroll-rectangle-up #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-aux-replace 0 t #[(s _e) "\301y\302U\205\n `|\207" [s 1 0] 2]] 7 (#$ . 32248) 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 #[nil "\300\301\302\211\211\211\303&\207" [cua--rectangle-aux-replace 0 t #[(s _e) "b\210\301c\207" [s "\n"] 1]] 7 (#$ . 32504) nil])
(defalias 'cua-insert-char-rectangle #[(&optional ch) "\203\n \302 \210\202 \303 \206 \304 \305H!\210\306 \210\307\207" [buffer-read-only ch ding cua--indent-rectangle this-single-command-keys 0 cua--keep-active t] 3 nil nil])
#@76 Indent rectangle to next tab stop.
With prefix arg, indent to that column.
(defalias 'cua-indent-rectangle #[(column) "\204 \301\302!\207\303\304\305!\"\207" [column cua-insert-char-rectangle 9 cua--indent-rectangle nil prefix-numeric-value] 4 (#$ . 33030) "P"])
#@44 Delete char to left or right of rectangle.
(defalias 'cua-delete-char-rectangle #[nil "\303 \304 \305\306\307\305\310 \305\311\312&+\207" [indent pad col cua--rectangle-insert-col cua--rectangle-virtual-edges nil cua--rectangle-operation corners t #[(_s _e l r) "\305\306\307!\203 T ]\202 \n \"\210n?\205* \310\311!\210\306\307!\203% \312i!\207\niZ\211\207" [r col l pad indent move-to-column cua--rectangle-right-side t delete-char -1 cua--rectangle-insert-col] 3] #[(l r) "\205 \304V\205 \305\nZI\210 \306\307 \310#I\207" [indent cua--rectangle l r 0 2 3 - 1] 6]] 8 (#$ . 33302) nil])
(defalias 'cua-help-for-rectangle #[(&optional help) "\303=\203\n \304\202 \305=\203 \306\202 \307=\203 \310\202 \311\312\n\203) \313\202* \314 \315 \316 \317 \320 \321 \322 \323 \324\260!)\207" [cua--rectangle-modifier-key M help hyper " H-" super " s-" alt " A-" " M-" message "C-?:help" "" "p:pad" "o:open" "c:close" "b:blank" "s:string" "f:fill" "i:incr" "n:seq"] 18 nil nil])
(defalias 'cua--cancel-rectangle #[nil "\203 \302 \210\303\211\207" [cua--rectangle cua--last-rectangle cua--deactivate-rectangle nil] 2])
(defalias 'cua--rectangle-post-command #[nil "\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 #[nil "\300\301!\207" [default-value region-extract-function] 2] #[#1=(gv--val) "\301\302\"\207" [gv--val set-default region-extract-function] 3] cua--rectangle-region-extract nil #[nil "\300\301!\207" [default-value region-insert-function] 2] #[#1# "\301\302\"\207" [gv--val set-default region-insert-function] 3] cua--insert-rectangle #[nil "\300\301!\207" [default-value redisplay-highlight-region-function] 2] #[#1# "\301\302\"\207" [gv--val set-default redisplay-highlight-region-function] 3] cua--rectangle-highlight-for-redisplay] 5)
(defalias 'cua--rectangle-highlight-for-redisplay #[(orig &rest args) "\204 \304 \n\"\207 \305\n8!\207" [cua--rectangle orig args redisplay-unhighlight-region-function apply 3] 3])
(defalias 'cua--rectangle-region-extract #[(orig &optional delete) "\204 \n!\207\n\306=\203 \307 \207\n\310=\203 \311 \207\312 \313\314 \315# \n\203* \311 \210 \2054 @
B\316=\203B \317 \205T \320\321\fG\322\323 \324BB\f%\210\f*\207" [cua--rectangle orig delete strs str killed-rectangle bounds cua--extract-rectangle-bounds delete-only 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) kill-ring cua--last-killed-rectangle last-command] 7])
(defalias 'cua--rect-M/H-key #[(key cmd) "\303 \n#\207" [cua--rectangle-keymap key cmd cua--M/H-key] 4])
(defalias 'cua--init-rectangles #[nil "\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)
Kontol Shell Bypass