Current File : //usr/local/share/emacs/27.2/lisp/rect.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'rectangle nil "Operations on rectangles." :version "25.1" :group 'editing)
#@578 Call FUNCTION for each line of rectangle with corners at START, END.
If COERCE-TABS is non-nil, convert multi-column characters
that span the starting or ending columns on any line
to multiple spaces before calling FUNCTION.
FUNCTION is called with three arguments:
position of start of segment of this line within the rectangle,
number of columns that belong to rectangle but are before that position,
number of columns that belong to rectangle but are after point.
Point is at the end of the segment of this line within the rectangle.
(fn FUNCTION START END COERCE-TABS)
(defalias 'operate-on-rectangle #[1028 "\300\301\302\303\304\305 \"\306\"\307\310%#\207" [apply-on-rectangle make-byte-code 514 "\302\211\211\303\301\"\210iZ\262`\262\303\301\"\210\301\204\" iV\203\" \304u\210iZ\262\305W\2035 \211\\\262\305\262\300#\207" vconcat vector [nil move-to-column -1 0] 9 "\n\n(fn STARTCOL ENDCOL)"] 12 (#$ . 507)])
#@57 (POS . COL) to override the column to use for the mark.
(defvar rectangle--mark-crutches nil (#$ . 1452))
(make-variable-buffer-local 'rectangle--mark-crutches)
#@35
(fn START END &optional WINDOW)
(defalias 'rectangle--pos-cols #[770 "\212\301\302\"@=\203< \211A@=\203 A\202$ \203 \303b\210i=\2034 ^]B\2027 B\266\202\202\261 @=\203b @=\203R AAB\202\261 \203X \303b\210iAB\202\261 \211\203l \304\303\302\303#\210@=\203\221 Ab\210i=\203\211 ^]B\202\214 B\266\202\202\261 @=\203\242 b\210iAB\202\261 \203\250 \303b\210ib\210iB\262)\207" [rectangle--mark-crutches window-parameter rectangle--point-crutches nil set-window-parameter] 9 (#$ . 1619)])
#@17
(fn COL KIND)
(defalias 'rectangle--col-pos #[514 "\301!\211U\203, l\204, \302=\203\" \303\304\305\"\205K \306\304\305\304#\202K \205K \304\211\202K \211V\2035 \307u\210\302=\203F \306\304\305`B#\202K `B\211\207" [rectangle--mark-crutches move-to-column point window-parameter nil rectangle--point-crutches set-window-parameter -1] 8 (#$ . 2157)])
#@12
(fn POS)
(defalias 'rectangle--point-col #[257 "\300\301\302\"@=\203 \211A\202 b\210i\207" [window-parameter nil rectangle--point-crutches] 4 (#$ . 2524)])
(defalias 'rectangle--crutches #[0 "\301\302\303\"B\207" [rectangle--mark-crutches window-parameter nil rectangle--point-crutches] 4])
(defalias 'rectangle--reset-point-crutches #[0 "\300\301\302\"\205\f \303\301\302\301#\207" [window-parameter nil rectangle--point-crutches set-window-parameter] 4])
(defalias 'rectangle--reset-crutches #[0 "\300\301!\210\302 \207" [kill-local-variable rectangle--mark-crutches rectangle--reset-point-crutches] 2])
#@339 Call FUNCTION for each line of rectangle with corners at START, END.
FUNCTION is called with two arguments: the start and end columns of the
rectangle, plus ARGS extra arguments. Point is at the beginning of line when
the function is called.
The final point after the last operation will be returned.
(fn FUNCTION START END &rest ARGS)
(defalias 'apply-on-rectangle #[899 "\212\300\"\211@Ab\210\301 b\210\302\303 !\304W\203\" \262\262b\210\305\n\n$\210`\262\306y\307U\203D n\203D `X\204% \266\205)\207" [rectangle--pos-cols line-beginning-position copy-marker line-end-position nil apply 1 0] 15 (#$ . 3145)])
#@174 Return cons of the column and line values of POSITION.
POSITION specifies a position of the current buffer. The value
returned has the form (COLUMN . LINE).
(fn POSITION)
(defalias 'rectangle-position-as-coordinates #[257 "\212\211b\210i\300 B\266\202)\207" [line-number-at-pos] 5 (#$ . 3784)])
#@324 Return non-nil if two rectangles intersect.
POS1 and POS2 specify the positions of the upper-left corners of
the first and second rectangles as conses of the form (COLUMN . LINE).
SIZE1 and SIZE2 specify the dimensions of the first and second
rectangles, as conses of the form (WIDTH . HEIGHT).
(fn POS1 SIZE1 POS2 SIZE2)
(defalias 'rectangle-intersect-p #[1028 "@A@A@A@A\\X\2066 \\X\2066 \\X\2066 \\X?\207" [] 14 (#$ . 4090)])
#@140 Return the dimensions of the rectangle with corners at START
and END. The returned value has the form of (WIDTH . HEIGHT).
(fn START END)
(defalias 'rectangle-dimensions #[514 "\212\300\301!\301!Z!T\302\"\300A@Z!\211B\266\203)\207" [abs line-number-at-pos rectangle--pos-cols] 7 (#$ . 4555)])
#@29
(fn STARTCOL ENDCOL FILL)
(defalias 'delete-rectangle-line #[771 "\300\203\n \301\202 \302\"U\205 `\300\302\"\210`|\207" [move-to-column t coerce] 7 (#$ . 4862)])
#@35
(fn STARTCOL ENDCOL LINES FILL)
(defalias 'delete-extract-rectangle-line #[1028 "\300 \301\203\f \302\202
\303\"W\203! \304Z!AB\241\2023 `\262\301\302\"\210\305`\302#AB\241\207" [point-at-eol move-to-column t coerce spaces-string filter-buffer-substring] 10 (#$ . 5039)])
#@30
(fn STARTCOL ENDCOL LINES)
(defalias 'extract-rectangle-line #[771 "\300\211\211\211\211\301!\210`\262iZ\262\301!\210`\262iZ\262`{\262\302W\2034 \\\262\302\262\302W\203= \302\262b\210\303\304\305#\203m i\212\306u\210i)Z\307\302\310` \311##\312!\307\211G`\nZ\\\"Q\266\202\202@ \302V\204y \302V\203\203 \312!\312!Q\262AB\241\207" [nil move-to-column 0 search-forward " " t -1 substring - 1 spaces-string] 16 (#$ . 5333)])
(defconst spaces-strings ["" " " " " " " " " " " " " " " " "])
#@40 Return a string with N spaces.
(fn N)
(defalias 'spaces-string #[257 "\211\301X\203\n H\207\302\303\"\207" [spaces-strings 8 make-string 32] 4 (#$ . 5890)])
#@383 Delete (don't save) text in the region-rectangle.
The same range of columns is deleted in each line starting with the
line where the region begins and ending with the line where the region
ends.
When called from a program the rectangle's corners are START and END.
With a prefix (or a FILL) argument, also fill lines where nothing has
to be deleted.
(fn START END &optional FILL)
(defalias 'delete-rectangle #[770 "\300\301$\207" [apply-on-rectangle delete-rectangle-line] 8 (#$ . 6058) "*r\nP"])
#@320 Delete the contents of the rectangle with corners at START and END.
Return it as a list of strings, one for each line of the rectangle.
When called from a program the rectangle's corners are START and END.
With an optional FILL argument, also fill lines where nothing has to be
deleted.
(fn START END &optional FILL)
(defalias 'delete-extract-rectangle #[770 "\300C\301\302%\210\211A\237\207" [nil apply-on-rectangle delete-extract-rectangle-line] 10 (#$ . 6567)])
#@153 Return the contents of the rectangle with corners at START and END.
Return it as a list of strings, one for each line of the rectangle.
(fn START END)
(defalias 'extract-rectangle #[514 "\300C\301\302$\210\211A\237\207" [nil apply-on-rectangle extract-rectangle-line] 8 (#$ . 7046)])
#@167 Return the bounds of the rectangle with corners at START and END.
Return it as a list of (START . END) positions, one for each line of
the rectangle.
(fn START END)
(defalias 'extract-rectangle-bounds #[514 "\300C\301\302\303\304\305\306!\307\"\310\311%#\210\211\242\237\207" [nil apply-on-rectangle make-byte-code 514 "\301!\210\300`\301!\210`B\300\242B\240\207" vconcat vector [move-to-column] 6 "\n\n(fn STARTCOL ENDCOL)"] 10 (#$ . 7341)])
#@43 Rectangle for `yank-rectangle' to insert.
(defvar killed-rectangle nil (#$ . 7797))
#@604 Delete the region-rectangle and save it as the last killed one.
When called from a program the rectangle's corners are START and END.
You might prefer to use `delete-extract-rectangle' from a program.
With a prefix (or a FILL) argument, also fill lines where nothing has to be
deleted.
If the buffer is read-only, Emacs will beep and refrain from deleting
the rectangle, but put it in `killed-rectangle' anyway. This means that
you can use this command to copy text from a read-only buffer.
(If the variable `kill-read-only-ok' is non-nil, then this won't
even beep.)
(fn START END &optional FILL)
(defalias 'kill-rectangle #[770 "\3031
\304#\2110\207\210\305\306\"\n\203 \307\310!\210\311\207\312 \210\313\314pC\"\207" [killed-rectangle deactivate-mark kill-read-only-ok (buffer-read-only text-read-only) delete-extract-rectangle t extract-rectangle message "Read only text copied to `killed-rectangle'" nil barf-if-buffer-read-only signal text-read-only] 7 (#$ . 7888) "r\nP"])
#@79 Copy the region-rectangle and save it as the last killed one.
(fn START END)
(defalias 'copy-rectangle-as-kill #[514 "\302\"\303\304\305!\205 \306@G!\207" [killed-rectangle deactivate-mark extract-rectangle t called-interactively-p interactive indicate-copied-region] 5 (#$ . 8889) "r"])
#@65 Yank the last killed rectangle with upper left corner at point.
(defalias 'yank-rectangle #[0 "\301!\207" [killed-rectangle insert-rectangle] 2 (#$ . 9190) "*"])
#@324 Insert text of RECTANGLE with upper left corner at point.
RECTANGLE's first line is inserted at point, its second
line is inserted at a point vertically under point, etc.
RECTANGLE should be a list of strings.
After this command, the mark is at the upper left corner
and point is at the lower right corner.
(fn RECTANGLE)
(defalias 'insert-rectangle #[257 "\211i\300\301 \210\205, \211\204 \302y\210n\204 \303c\210\304\300\"\210\305\262\306@!\210A\262\202 \207" [t push-mark 1 10 move-to-column nil insert-for-yank] 7 (#$ . 9360)])
#@391 Blank out the region-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.
When called from a program the rectangle's corners are START and END.
With a prefix (or a FILL) argument, fill with blanks even if there is
no text on the right side of the rectangle.
(fn START END &optional FILL)
(defalias 'open-rectangle #[770 "\300\301$\210b\207" [apply-on-rectangle open-rectangle-line] 8 (#$ . 9909) "*r\nP"])
#@29
(fn STARTCOL ENDCOL FILL)
(defalias 'open-rectangle-line #[771 "\300\203\n \301\202 \302\"U\205 \211?\205 `\303 U?\205 j\207" [move-to-column t coerce point-at-eol] 6 (#$ . 10427)])
#@29
(fn STARTCOL ENDCOL FILL)
(defalias 'delete-whitespace-rectangle-line #[771 "\300\203\n \301\202 \302\"U\205\" `\303 U?\205\" `\304\305\303 \"\210`|\207" [move-to-column t coerce point-at-eol skip-syntax-forward " "] 7 (#$ . 10625)])
(defalias 'close-rectangle 'delete-whitespace-rectangle)
#@435 Delete all whitespace following a specified column in each line.
The left edge of the rectangle specifies the position in each line
at which whitespace deletion should begin. On each line in the
rectangle, all contiguous whitespace starting at that column is deleted.
When called from a program the rectangle's corners are START and END.
With a prefix (or a FILL) argument, also fill too short lines.
(fn START END &optional FILL)
(defalias 'delete-whitespace-rectangle #[770 "\300\301$\207" [apply-on-rectangle delete-whitespace-rectangle-line] 8 (#$ . 10929) "*r\nP"])
(defvar string-rectangle-history nil)
#@38
(fn STARTCOL ENDCOL STRING DELETE)
(defalias 'string-rectangle-line #[1028 "\300\301\"\210\211\203 \302\303#\210c\207" [move-to-column t delete-rectangle-line nil] 8 (#$ . 11550)])
(defvar rectangle--string-preview-state nil nil)
(make-variable-buffer-local 'rectangle--string-preview-state)
(defvar rectangle--string-preview-window nil nil)
(make-variable-buffer-local 'rectangle--string-preview-window)
(defalias 'rectangle--string-flush-preview #[0 "\301\302\303\233\"\210AA\304\241\207" [rectangle--string-preview-state mapc delete-overlay 3 nil] 4])
(defalias 'rectangle--string-erase-preview #[0 "\301!r\302\303\304\305\306!\307\"\310$\216\311@\312\"\210\313 *\207" [rectangle--string-preview-window internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord rectangle--string-flush-preview] 7])
#@12
(fn COL)
(defalias 'rectangle--space-to #[257 "\300\301\302\303\304E#\207" [propertize " " display space :align-to] 7 (#$ . 12461)])
(byte-code "\300\301\302\303\304\305%\210\306\301\307\310\311DD\312\304\305\313\314&\207" [custom-declare-face rectangle-preview ((t :inherit region)) "The face to use for the `string-rectangle' preview." :version "25.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1] "If non-nil, `string-rectangle' will show an on-the-fly preview." :type boolean] 8)
(defalias 'rectangle--string-preview #[0 "\205V \303 C\211\242\203 \211\304\242\305\300#\240\210\306 !r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210\n?\2065 \242\n@\232?\205Q \320 \210\321\307\322\323\312\313!\324\"\325\326%\nA@\315\n8#*\262\262\207" [rectangle-preview rectangle--string-preview-window rectangle--string-preview-state minibuffer-contents propertize face internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord rectangle--string-flush-preview apply-on-rectangle 514 "\302!\211X\203
`\202 \303u\210i\262`\302!`\304\" AA\305 \233B\241\210W\2036 \306\307\310\n!#\210W\205B \311Z!U\203\\ \306\312\203V \300\242P\202X \300\242#\202l \306\313\300\242#\210\211\205l \306\312#\262\207" [rectangle--string-preview-state move-to-column -1 make-overlay 3 overlay-put before-string rectangle--space-to spaces-string after-string display] 13 "\n\n(fn STARTCOL ENDCOL)"] 9])
(defvar rectangle--inhibit-region-highlight nil)
#@348 Replace rectangle contents with STRING on each line.
The length of STRING need not be the same as the rectangle width.
When called interactively and option `rectangle-preview' is
non-nil, display the result as the user enters the string into
the minibuffer.
Called from a program, takes three args; START, END and STRING.
(fn START END STRING)
(defalias 'string-rectangle #[771 "\301=\204\n `B\302\303\301%b\207" [buffer-undo-list t apply-on-rectangle string-rectangle-line] 9 (#$ . 14037) (byte-code "\303\300!\210\303\301!\210p\304 =\205 \305 \306 \307 \310E\311\312 \210\313\314\315\316\317 !\320\"\321$\310C\211\313\314\322\316\317\"\323\"\324$\240\210\313\314\325\316\317!\326\"\324$\216\327\330\242\"\210\331\332\333\n@\206\\ \334\"\310\302\n@\335%)\266\202E*\207" [rectangle--string-preview-state rectangle--inhibit-region-highlight string-rectangle-history make-local-variable window-buffer selected-window region-beginning region-end nil t barf-if-buffer-read-only make-byte-code 0 "\300\302\303\304\305\306$\210\302\307\310\305\306$\207" vconcat vector [rectangle--string-preview-window add-hook minibuffer-exit-hook rectangle--string-erase-preview nil t post-command-hook rectangle--string-preview] 5 "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-string format "String rectangle (default %s): " "" inherit-input-method] 16)])
(defalias 'replace-rectangle 'string-rectangle)
#@293 Insert STRING on each line of region-rectangle, shifting text right.
When called from a program, the rectangle's corners are START and END.
The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text.
(fn START END STRING)
(defalias 'string-insert-rectangle #[771 "\300\301\302%\207" [apply-on-rectangle string-rectangle-line nil] 9 (#$ . 15577) (byte-code "\301 \210\302 \303 \304\305\306@\206 \307\"\310\300@$E\207" [string-rectangle-history barf-if-buffer-read-only region-beginning region-end read-string format "String insert rectangle (default %s): " "" nil] 7)])
#@300 Blank out the region-rectangle.
The text previously in the region is overwritten with blanks.
When called from a program the rectangle's corners are START and END.
With a prefix (or a FILL) argument, also fill with blanks the parts of the
rectangle which were empty.
(fn START END &optional FILL)
(defalias 'clear-rectangle #[770 "\300\301$\207" [apply-on-rectangle clear-rectangle-line] 8 (#$ . 16229) "*r\nP"])
#@29
(fn STARTCOL ENDCOL FILL)
(defalias 'clear-rectangle-line #[771 "\300 \301\203\f \302\202
\303\"U\2059 \204( \212\211b\210i)X\203( `|\2029 `\262\301\302\"\210i\262\211`|\210j\207" [point-at-eol move-to-column t coerce] 7 (#$ . 16653)])
#@32
(fn START END FORMAT-STRING)
(defalias 'rectangle-number-line-callback #[771 "\301\302\"\210\303\"c\210T\211\207" [rectangle-number-line-counter move-to-column t format] 6 (#$ . 16908)])
#@27
(fn START END START-AT)
(defalias 'rectangle--default-line-number-format #[771 "\300\301\211\302\"\\!G!\303Q\207" ["%" int-to-string count-lines "d "] 9 (#$ . 17108)])
#@341 Insert numbers in front of the region-rectangle.
START-AT, if non-nil, should be a number from which to begin
counting. FORMAT, if non-nil, should be a format string to pass
to `format' along with the line count. When called interactively
with a prefix argument, prompt for START-AT and FORMAT.
(fn START END START-AT &optional FORMAT)
(defalias 'rectangle-number-lines #[1027 "\211\204 \301#\262\302\303$)\207" [rectangle-number-line-counter rectangle--default-line-number-format apply-on-rectangle rectangle-number-line-callback] 9 (#$ . 17290) (byte-code "\203 \301 \302 \303\304\305\"\306\307\310#\"F\207\301 \302 \305\311F\207" [current-prefix-arg region-beginning region-end read-number "Number to count from: " 1 read-string "Format string: " rectangle--default-line-number-format nil] 12)])
(byte-code "\300\301\302\303B\304\305$\210\300\301\306\307B\310\305$\210\300\301\311\312B\313\305$\210\300\301\314\315B\316\305$\207" [advice--add-function :around #[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)"] rectangle--highlight-for-redisplay nil #[0 "\300\301!\207" [default-value redisplay-unhighlight-region-function] 2] #[257 "\300\301\"\207" [set-default redisplay-unhighlight-region-function] 4 "\n\n(fn GV--VAL)"] rectangle--unhighlight-for-redisplay #[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)"] rectangle--extract-region #[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)"] rectangle--insert-region] 5)
#@49 Keymap used while marking a rectangular region.
(defvar rectangle-mark-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\310\211\2031 \211@\301\311\312\"\313\314\315\"!#\210A\266\202\202 \210\211\207" [make-sparse-keymap define-key [15] open-rectangle [20] string-rectangle [remap exchange-point-and-mark] rectangle-exchange-point-and-mark (right-char left-char forward-char backward-char next-line previous-line) vector remap intern format "rectangle-%s"] 10) (#$ . 19053))
#@107 Non-nil if Rectangle-Mark mode is enabled.
Use the command `rectangle-mark-mode' to change this variable.
(defvar rectangle-mark-mode nil (#$ . 19572))
(make-variable-buffer-local 'rectangle-mark-mode)
#@380 Toggle the region as rectangular.
If called interactively, enable Rectangle-Mark mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
Activates the region if needed. Only lasts until the region is deactivated.
(fn &optional ARG)
(defalias 'rectangle-mark-mode #[256 "\301 \302=\203
?\202 \303!\304V\305 \210\203. \306\307\310\"\210\311 \204. \312`\313\211#\210\314\315!\210\316\317\2038 \320\2029 \321\"\210\322\323!\203] \301 \203M \211\301 \232\203] \324\314\325\203X \326\202Y \327#\266\210\330 \210\207" [rectangle-mark-mode current-message toggle prefix-numeric-value 0 rectangle--reset-crutches add-hook deactivate-mark-hook #[0 "\300\301!\207" [rectangle-mark-mode -1] 2] region-active-p push-mark t message "Mark set (rectangle mode)" run-hooks rectangle-mark-mode-hook rectangle-mark-mode-on-hook rectangle-mark-mode-off-hook called-interactively-p any " in current buffer" "Rectangle-Mark mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 19781) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar rectangle-mark-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [rectangle-mark-mode-map rectangle-mark-mode-hook variable-documentation put "Hook run after entering or leaving `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.)" add-minor-mode rectangle-mark-mode nil boundp] 6)
#@96 Like `exchange-point-and-mark' but cycles through the rectangle's corners.
(fn &optional ARG)
(defalias 'rectangle-exchange-point-and-mark #[256 "\211\203\n \302\211!\207` =\303 W\211\203 \304\"\202\" \304\"\203+ \211@\202- \211A\2036 A\2028 @\203> \302\305 \210b\210\306\203O \202P \303\"\210\307`!\210b\210\306\203d \202e \310\"\207" [this-command last-command exchange-point-and-mark mark rectangle--pos-cols rectangle--reset-crutches rectangle--col-pos set-mark point] 12 (#$ . 21421) "P"])
#@34
(fn CMD N &optional OTHER-CMD)
(defalias 'rectangle--*-char #[770 "\300W\203\f \301[\"\207\302`!\303\300V\203\341 \304 \305 i\3061S \3071I \212!\210`V\2034 \211S\202C `W\203B T\\\202C i)00\202V 0\210T\\\202V \210\211S\310Z!W\203\216 W\203\216 Z\211\nX\203\200 Z\262\n\262\202\212 \nZ\262\300\262\n\210\202\332 \300W\203\240 \311 \210\300\262 \300\262\202\332 U\203\256 \303!\210\202\332 \211 X\203\301 Z\262 \262\202\332 W\203\320 \\\202\325 Z\262\300\262 T\266\206\202 \312\313\"\207" [0 rectangle--*-char rectangle--point-col 1 line-beginning-position line-end-position (beginning-of-buffer) (end-of-buffer) abs ding rectangle--col-pos point] 13 (#$ . 21950)])
#@83 Like `right-char' but steps into wide chars and moves past EOL.
(fn &optional N)
(defalias 'rectangle-right-char #[256 "\300\301\302#\207" [rectangle--*-char right-char left-char] 5 (#$ . 22684) "p"])
#@82 Like `left-char' but steps into wide chars and moves past EOL.
(fn &optional N)
(defalias 'rectangle-left-char #[256 "\300\301\302#\207" [rectangle--*-char left-char right-char] 5 (#$ . 22893) "p"])
#@85 Like `forward-char' but steps into wide chars and moves past EOL.
(fn &optional N)
(defalias 'rectangle-forward-char #[256 "\300\301\302#\207" [rectangle--*-char forward-char backward-char] 5 (#$ . 23100) "p"])
#@86 Like `backward-char' but steps into wide chars and moves past EOL.
(fn &optional N)
(defalias 'rectangle-backward-char #[256 "\300\301\302#\207" [rectangle--*-char backward-char forward-char] 5 (#$ . 23319) "p"])
#@110 Like `next-line' but steps into wide chars and moves past EOL.
Ignores `line-move-visual'.
(fn &optional N)
(defalias 'rectangle-next-line #[256 "\300`!y\210\301\302\"\207" [rectangle--point-col rectangle--col-pos point] 5 (#$ . 23541) "p"])
#@114 Like `previous-line' but steps into wide chars and moves past EOL.
Ignores `line-move-visual'.
(fn &optional N)
(defalias 'rectangle-previous-line #[256 "\300`![y\210\301\302\"\207" [rectangle--point-col rectangle--col-pos point] 5 (#$ . 23793) "p"])
#@30
(fn ORIG &optional DELETE)
(defalias 'rectangle--extract-region #[513 "\204 !\207\211\302=\203 \303\304 \305 \"\207\211\203 \306\202 \307\304 \305 \"\310\311\312# \313=\2030 \314\205C \315\316G\317\320\321BB%\210\211\207" [rectangle-mark-mode last-command bounds extract-rectangle-bounds region-beginning region-end delete-extract-rectangle extract-rectangle mapconcat identity "\n" kill-region kill-region-dont-append put-text-property 0 yank-handler rectangle--insert-for-yank (t)] 11 (#$ . 24053)])
#@21
(fn ORIG STRINGS)
(defalias 'rectangle--insert-region #[514 "\204 !\207\301!\207" [rectangle-mark-mode insert-rectangle] 4 (#$ . 24577)])
#@13
(fn STRS)
(defalias 'rectangle--insert-for-yank #[257 "`B\211\302!\210\303\304\305\306\307!\310\"\311\312%\211\207" [buffer-undo-list yank-undo-function insert-rectangle make-byte-code 514 "\302 \210\300\303\240\210 \300A=?\205 \304\305!\210\202 \207" vconcat vector [pending-undo-list undo-start nil undo-more 1] 4 "\n\n(fn START END)"] 9 (#$ . 24728)])
#@25
(fn LEFTCOL LEFT STR)
(defalias 'rectangle--place-cursor #[771 "\300\301\302\"@=\205 A=\205 \303\304\305\306\305%\207" [window-parameter nil rectangle--point-crutches put-text-property 0 1 cursor] 10 (#$ . 25098)])
#@34
(fn ORIG START END WINDOW ROL)
(defalias 'rectangle--highlight-for-redisplay #[1285 "\204 $\207 \203 \n!\210\303\207\211\242\304=\203? \211A@\305 =\203? \3068=\203? \3078=\203? \310 \3118\232\203? \207\212\303C\242\304=\203O \312\233\202T \n!\210\303C\313!p=\204a \314\315!\210\316!r\317\320\321\322\323!\324\"\306$\216\325@\326\"\210\327\317\330\331\322\323\n #\332\"\333\334%#\210*\210\335\336\242\"\210\304\305 \310 \242BBBBB\266\202)\207" [rectangle-mark-mode rectangle--inhibit-region-highlight redisplay-unhighlight-region-function nil rectangle buffer-chars-modified-tick 2 3 rectangle--crutches 4 5 window-buffer cl--assertion-failed (eq (window-buffer window) (current-buffer)) internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] select-window norecord apply-on-rectangle 514 "\304!`\304!`\302\242\204# \305\"\306\307\300#\210\306\310\311#\210\211\262\2026 \302\242\302\211\242A\240\210\242\312p$\210\211\262W\203O \306\313\314\n!#\210]\262\202\210 V\203{ \206[ `Sf\315=\203{ S\262\312#\210b\210\306\313\314\n!#\210\202\210 \316\313\"\203\210 \306\313\317#\210 \203\234 \316\320\"\203$\306\320\317#\210\202$W\203\302 \314!\321\322G\310\311%\210\323#\210\306\320#\266\202$V\203\206\316 `Sf\315=\203S\262\312#\210U\203\357 \306\320\317#\210\202$b\210\314!\321\322G\310\311%\210U\203
\323#\210\306\320#\266\202$\316\320\"\203$\306\320\317#\210U\203@\324 \203@\306\320\325\326\310\327#\316\320\"P#\210\301\301\242B\240\207" [rectangle--string-preview-state move-to-column make-overlay overlay-put window face region move-overlay before-string rectangle--space-to 9 overlay-get nil after-string put-text-property 0 rectangle--place-cursor display-graphic-p propertize " " (region (:height 0.2))] 14 "\n\n(fn LEFTCOL RIGHTCOL)" mapc delete-overlay] 17 (#$ . 25329)])
#@17
(fn ORIG ROL)
(defalias 'rectangle--unhighlight-for-redisplay #[514 "\211\242\300=\204 !\207\301\302\303\233\"\210\211A\304\240\207" [rectangle mapc delete-overlay 5 nil] 6 (#$ . 27317)])
(provide 'rect)
Mini Shell