diff --git a/mc-separate-operations.el b/mc-separate-operations.el index ca10775..c2dfba2 100644 --- a/mc-separate-operations.el +++ b/mc-separate-operations.el @@ -29,6 +29,14 @@ (require 'multiple-cursors-core) +(defcustom mc/insert-numbers-default 0 + "The default number at which to start counting for +`mc/insert-numbers'" + :type 'integer + :group 'multiple-cursors) + +(defvar mc--insert-numbers-number 0) + ;;;###autoload (defun mc/insert-numbers (arg) "Insert increasing numbers for each cursor, starting at @@ -39,14 +47,6 @@ (mc/for-each-cursor-ordered (mc/execute-command-for-fake-cursor 'mc--insert-number-and-increase cursor))) -(defcustom mc/insert-numbers-default 0 - "The default number at which to start counting for -`mc/insert-numbers'" - :type 'integer - :group 'multiple-cursors) - -(defvar mc--insert-numbers-number 0) - (defun mc--insert-number-and-increase () (interactive) (insert (number-to-string mc--insert-numbers-number)) @@ -61,6 +61,8 @@ (mc/cursor-end cursor)) strings)))) (nreverse strings))) +(defvar mc--insert-letters-number 0) + ;;;###autoload (defun mc/insert-letters (arg) "Insert increasing letters for each cursor, starting at 0 or ARG. @@ -73,15 +75,13 @@ (defun mc--number-to-letters (number) (let ((letter - (char-to-string - (+ (mod number 26) ?a))) - (number2 (/ number 26))) + (char-to-string + (+ (mod number 26) ?a))) + (number2 (/ number 26))) (if (> number2 0) - (concat (mc--number-to-letters (- number2 1)) letter) + (concat (mc--number-to-letters (- number2 1)) letter) letter))) -(defvar mc--insert-letters-number 0) - (defun mc--insert-letter-and-increase () (interactive) (insert (mc--number-to-letters mc--insert-letters-number)) @@ -137,9 +137,9 @@ Might not behave as intended if more than one cursors are on the same line." (lambda () (interactive) (let ((missing-spaces (- rightest-column (current-column)))) - (save-excursion (insert (make-string missing-spaces character))) - (forward-char missing-spaces) - ) + (save-excursion (insert (make-string missing-spaces character))) + (forward-char missing-spaces) + ) )) ) )