;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'multiple-cursors-core) #@65 The position in the buffer that anchors the rectangular region. (defvar rrm/anchor (make-marker) (#$ . 120)) #@59 Keymap for rectangular region is mainly for rebinding C-g (defvar rectangular-region-mode-map (make-sparse-keymap) (#$ . 235)) (byte-code "\301\302\303#\210\301\304\305#\207" [rectangular-region-mode-map define-key "" rrm/keyboard-quit [return] rrm/switch-to-multiple-cursors] 4) (defvar rectangular-region-mode nil) #@31 Exit rectangular-region-mode. (defalias 'rrm/keyboard-quit #[nil "\300\301!\210\302 \210\303 \207" [rectangular-region-mode 0 rrm/remove-rectangular-region-overlays deactivate-mark] 2 (#$ . 561) nil]) #@196 Anchors the rectangular region at point. Think of this one as `set-mark' except you're marking a rectangular region. It is an exceedingly quick way of adding multiple cursors to multiple lines. (defalias 'set-rectangular-region-anchor #[nil "`\301\223\210\302`!\210\303\304!\207" [rrm/anchor nil push-mark rectangular-region-mode 1] 3 (#$ . 769) nil]) #@41 Remove all rectangular-region overlays. (defalias 'rrm/remove-rectangular-region-overlays #[nil "\300 \210\301\302\303ed\"\"\207" [mc/remove-fake-cursors mapc #[(o) "\301\302\"\303=\205\f\304!\207" [o overlay-get type additional-region delete-overlay] 3] overlays-in] 5 (#$ . 1129)]) #@66 Start from the anchor and draw a rectangle between it and point. (defalias 'rrm/repaint #[nil "\204\n\306\307\310\311#\207\312 \210\313i\314 \212\fb\210i)\212\fb\210\314 )\n W\203.\n\202/ \n V\203;\n\202<  W\203I\315\202J\316\317 !\210\320`!\210\317\n!\210\321\322``\313\211\311%!\323\324\325#\210\212\314 U\204\225y\210\317 !\210 iU\203k\320`!\210\317\n!\210\niU\203k\326 \210\202k)\327!. \207" [rectangular-region-mode annoying-arrows-mode point-column point-line rrm/anchor anchor-column remove-hook post-command-hook rrm/repaint t rrm/remove-rectangular-region-overlays nil line-number-at-pos 1 -1 move-to-column set-mark mc/store-current-state-in-overlay make-overlay overlay-put type original-cursor mc/create-fake-cursor-at-point mc/pop-state-from-overlay anchor-line left-column right-column navigation-step #1=#:current-state] 7 (#$ . 1422)]) #@63 Switch from rectangular-region-mode to multiple-cursors-mode. (defalias 'rrm/switch-to-multiple-cursors #[(&rest forms) "\300\301!\210\302\303!\207" [rectangular-region-mode 0 multiple-cursors-mode 1] 2 (#$ . 2316) nil]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice er/expand-region (switch-from-rrm-to-mc nil t (advice lambda nil (when rectangular-region-mode (rrm/switch-to-multiple-cursors)))) before nil ad-activate kill-ring-save (switch-from-rrm-to-mc nil t (advice lambda nil (when rectangular-region-mode (rrm/switch-to-multiple-cursors))))] 5) #@115 Non-nil if Rectangular-Region mode is enabled. Use the command `rectangular-region-mode' to change this variable. (defvar rectangular-region-mode nil (#$ . 2946)) (make-variable-buffer-local 'rectangular-region-mode) #@600 A mode for creating a rectangular region to edit This is a minor mode. If called interactively, toggle the `Rectangular-Region 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 `rectangular-region-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'rectangular-region-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\n\203G\315\316\317\312\211$\210\315\320\321\312\211$\210\202X\322\316\317\312#\210\322\320\321\312#\210\f\311\211\223\210\323\324\n\203b\325\202c\326\"\210\327\330!\203\210\306 \203w\306 \232\203\210\331\332\333\n\203\203\334\202\204\335 #\210))\336 \210\n\207" [#1=#:last-message arg rectangular-region-mode local-minor-modes rrm/anchor local current-message toggle 1 nil t boundp delq add-hook after-change-functions rrm/switch-to-multiple-cursors post-command-hook rrm/repaint remove-hook run-hooks rectangular-region-mode-hook rectangular-region-mode-on-hook rectangular-region-mode-off-hook called-interactively-p any " in current buffer" message "Rectangular-Region mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 3170) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar rectangular-region-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\313\310\211%\210\314\312!\207" [rectangular-region-mode-map rectangular-region-mode-hook variable-documentation put "Hook run after entering or leaving `rectangular-region-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 rectangular-region-mode " rr" provide] 6)