;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'multiple-cursors-core) #@66 Insert increasing numbers for each cursor, starting at 0 or ARG. (defalias 'mc/insert-numbers #[(arg) "\203\n\303!\206 \304\305\306 \307\"\310\311\312\313ed\"\314\"\"\210\315\316\n!!)\207" [arg mc--insert-numbers-number #1=#:real-cursor-id prefix-numeric-value 0 overlay-get mc/create-fake-cursor-at-point mc-id mapc #[(cursor) "\301!\205\n\302\303\"\207" [cursor mc/fake-cursor-p mc/execute-command-for-fake-cursor mc--insert-number-and-increase] 3] sort overlays-in mc--compare-by-overlay-start mc/pop-state-from-overlay mc/cursor-with-id] 6 (#$ . 120) "P"]) (defvar mc--insert-numbers-number 0) (defalias 'mc--insert-number-and-increase #[nil "\301!c\210T\211\207" [mc--insert-numbers-number number-to-string] 2 nil nil]) (defalias 'mc--ordered-region-strings #[nil "\302\212\303\304 \305\"\306\307\310\311ed\"\312\"\"\210\313\314 !!\210*\237)\207" [strings #1=#:real-cursor-id nil overlay-get mc/create-fake-cursor-at-point mc-id mapc #[(cursor) "\302!\205\303\304!\305!\" B\211\207" [cursor strings mc/fake-cursor-p buffer-substring-no-properties mc/cursor-beg mc/cursor-end] 4] sort overlays-in mc--compare-by-overlay-start mc/pop-state-from-overlay mc/cursor-with-id] 6]) #@115 Insert increasing letters for each cursor, starting at 0 or ARG. Where letter[0]=a letter[2]=c letter[26]=aa (defalias 'mc/insert-letters #[(arg) "\203\n\303!\206 \304\305\306 \307\"\310\311\312\313ed\"\314\"\"\210\315\316\n!!)\207" [arg mc--insert-letters-number #1=#:real-cursor-id prefix-numeric-value 0 overlay-get mc/create-fake-cursor-at-point mc-id mapc #[(cursor) "\301!\205\n\302\303\"\207" [cursor mc/fake-cursor-p mc/execute-command-for-fake-cursor mc--insert-letter-and-increase] 3] sort overlays-in mc--compare-by-overlay-start mc/pop-state-from-overlay mc/cursor-with-id] 6 (#$ . 1327) "P"]) (defalias 'mc--number-to-letters #[(number) "\303\304\305\"\306\\!\305\245 \307V\203\310 S!\nP\202\n*\207" [number number2 letter char-to-string mod 26 97 0 mc--number-to-letters] 4]) (defvar mc--insert-letters-number 0) (defalias 'mc--insert-letter-and-increase #[nil "\301!c\210T\211\207" [mc--insert-letters-number mc--number-to-letters] 2 nil nil]) (defvar mc--strings-to-replace nil) (defalias 'mc--replace-region-strings-1 #[nil "\301 \302 |\210\212@c\210)A\211\207" [mc--strings-to-replace region-beginning region-end] 2 nil nil]) (defalias 'mc--replace-region-strings #[nil "\301\302 \303\"\304\305\306\307ed\"\310\"\"\210\311\312!!)\207" [#1=#:real-cursor-id overlay-get mc/create-fake-cursor-at-point mc-id mapc #[(cursor) "\301!\205\n\302\303\"\207" [cursor mc/fake-cursor-p mc/execute-command-for-fake-cursor mc--replace-region-strings-1] 3] sort overlays-in mc--compare-by-overlay-start mc/pop-state-from-overlay mc/cursor-with-id] 6]) (defalias 'mc/reverse-regions #[nil "\204\302\303!\210\304 \210\300\305!\207\306 \204\307\310!\210\311 \237\312 \207" [multiple-cursors-mode mc--strings-to-replace mc/mark-next-lines 1 mc/reverse-regions 0 use-region-p mc/execute-command-for-all-cursors mark-sexp mc--ordered-region-strings mc--replace-region-strings] 2 nil nil]) (defalias 'mc/sort-regions #[nil "\301 \204 \302\303!\210\304\305 \306\"\307 \207" [mc--strings-to-replace use-region-p mc/execute-command-for-all-cursors mark-sexp sort mc--ordered-region-strings string< mc--replace-region-strings] 3 nil nil]) #@187 Aligns all cursors vertically with a given CHARACTER to the one with the highest colum number (the rightest). Might not behave as intended if more than one cursors are on the same line. (defalias 'mc/vertical-align #[(character) "i\301\302!\210\301\303!)\207" [rightest-column mc/execute-command-for-all-cursors #[nil "i]\211\207" [rightest-column] 2 "get the rightest cursor" nil] #[nil "iZ\212\303 \n\"c\210) u)\207" [rightest-column missing-spaces character make-string] 3 nil nil]] 2 (#$ . 3506) "c"]) #@66 Aligns all cursors with whitespace like `mc/vertical-align' does (defalias 'mc/vertical-align-with-space #[nil "\300\301!\207" [mc/vertical-align 32] 2 (#$ . 4023) nil]) (provide 'mc-separate-operations)