;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require rect iedit-lib] 2) (defvar iedit-rectangle-mode nil) (byte-code "\303\304!\210\304\236\204\305C\244\210\306\304!\204;\307 \310\"\211\203-\311\312\313\314\315\316!\n#\317#\210\202:\320 \310\304#\210\321\322\315\323!\"\210)\303\207" [minor-mode-alist ctl-x-r-map key-def make-variable-buffer-local iedit-rectangle-mode (iedit-rectangle-mode iedit-rectangle-mode) where-is-internal lookup-key " " display-warning iedit format "Iedit rect default key %S is occupied by %s." key-description [C-x r RET] :warning define-key message "Iedit-rect default key binding is %s" [C-x r RET]] 7) #@211 This buffer local variable which is the rectangle geometry if current mode is iedit-rect. Otherwise it is nil. (car iedit-rectangle) is the top-left corner and (cadr iedit-rectangle) is the bottom-right corner (defvar iedit-rectangle nil (#$ . 726)) (make-variable-buffer-local 'iedit-rectangle) #@49 Keymap used within overlays in Iedit-rect mode. (defvar iedit-rect-keymap (byte-code "\302 \303 \"\210\304\305\306#\210)\207" [map iedit-occurrence-keymap-default make-sparse-keymap set-keymap-parent define-key [134217803] iedit-kill-rectangle] 4) (#$ . 1028)) (byte-code "\302\236\204\f\302 BB\303\304\305\"\207" [minor-mode-map-alist iedit-lib-keymap iedit-rectangle-mode add-to-list desktop-minor-mode-handlers (iedit-rectangle-mode)] 3) #@202 Toggle Iedit-rect mode. When Iedit-rect mode is on, a rectangle is started with visible rectangle highlighting. Rectangle editing support is based on Iedit mechanism. Commands: \{iedit-rect-keymap} (defalias 'iedit-rectangle-mode #[(&optional beg end) "\305 \203 \306 \207\307 \210\n\203 \203\310\311\312!\210\313\n \"\207\314\315!\207" [iedit-skip-modification-once iedit-rectangle-mode beg end mark-active t iedit-rectangle-done iedit-barf-if-lib-active nil run-hooks deactivate-mark-hook iedit-rectangle-start error "no region available."] 3 (#$ . 1484) (byte-code "\300 \205\n\301 \302 D\207" [iedit-region-active region-beginning region-end] 2)]) #@49 Start Iedit mode for the region as a rectangle. (defalias 'iedit-rectangle-start #[(beg end) "\306 \210\307!\307 \310\"\311\211\f\212b\210i b\210iW\203/b\210\312\313\310\"\210`\313\310\"\210`\"\nB` W\203P\314y\2042+ D\315\316\317\nG!P\320\321#\322 \210\323\324\325\311\310$\210\323\326\325\311\310$\210\323\327\325\311\310$\210\323\330\325\311\310$\207" [beg end iedit-occurrences-overlays iedit-initial-string-local iedit-rect-keymap iedit-occurrence-keymap barf-if-buffer-read-only copy-marker t nil iedit-make-occurrence-overlay move-to-column 1 propertize " Iedit-rect:" number-to-string face font-lock-warning-face force-mode-line-update add-hook before-revert-hook iedit-rectangle-done kbd-macro-termination-hook change-major-mode-hook iedit-aborting-hook end-col beg-col iedit-rectangle iedit-rectangle-mode] 6 (#$ . 2153)]) #@110 Exit Iedit mode. Save the current occurrence string locally and globally. Save the initial string globally. (defalias 'iedit-rectangle-done #[nil "\203\302 \210\303 \210\304\305 \210\306\307\310\311#\210\306\312\310\311#\210\306\313\310\311#\210\306\314\310\311#\207" [iedit-buffering iedit-rectangle-mode iedit-stop-buffering iedit-cleanup nil force-mode-line-update remove-hook before-revert-hook iedit-rectangle-done t kbd-macro-termination-hook change-major-mode-hook iedit-aborting-hook] 4 (#$ . 3029)]) #@80 Kill the rectangle. The behavior is the same as `kill-rectangle' in rect mode. (defalias 'iedit-kill-rectangle #[(&optional fill) "\203 \303 \204 \304\305!\210\306\307\310@!\310A@!\n#)\207" [iedit-rectangle inhibit-modification-hooks fill iedit-same-column error "Not a rectangle" t kill-rectangle marker-position] 4 (#$ . 3549) "*P"]) (provide 'iedit-rect)