ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 21:03:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Move variables before first use

Browse Source
This commit is contained in:
Matus Goljer 2018-09-13 14:26:38 +02:00
parent 9c49874fa4
commit 3f382d2c8f
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
mc-separate-operations.el
View File

@ -29,6 +29,14 @@
(require 'multiple-cursors-core) (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 ;;;###autoload
(defun mc/insert-numbers (arg) (defun mc/insert-numbers (arg)
"Insert increasing numbers for each cursor, starting at "Insert increasing numbers for each cursor, starting at
@ -39,14 +47,6 @@
(mc/for-each-cursor-ordered (mc/for-each-cursor-ordered
(mc/execute-command-for-fake-cursor 'mc--insert-number-and-increase cursor))) (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 () (defun mc--insert-number-and-increase ()
(interactive) (interactive)
(insert (number-to-string mc--insert-numbers-number)) (insert (number-to-string mc--insert-numbers-number))
@ -61,6 +61,8 @@
(mc/cursor-end cursor)) strings)))) (mc/cursor-end cursor)) strings))))
(nreverse strings))) (nreverse strings)))
(defvar mc--insert-letters-number 0)
;;;###autoload ;;;###autoload
(defun mc/insert-letters (arg) (defun mc/insert-letters (arg)
"Insert increasing letters for each cursor, starting at 0 or ARG. "Insert increasing letters for each cursor, starting at 0 or ARG.
@ -73,15 +75,13 @@
(defun mc--number-to-letters (number) (defun mc--number-to-letters (number)
(let ((letter (let ((letter
(char-to-string (char-to-string
(+ (mod number 26) ?a))) (+ (mod number 26) ?a)))
(number2 (/ number 26))) (number2 (/ number 26)))
(if (> number2 0) (if (> number2 0)
(concat (mc--number-to-letters (- number2 1)) letter) (concat (mc--number-to-letters (- number2 1)) letter)
letter))) letter)))
(defvar mc--insert-letters-number 0)
(defun mc--insert-letter-and-increase () (defun mc--insert-letter-and-increase ()
(interactive) (interactive)
(insert (mc--number-to-letters mc--insert-letters-number)) (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 () (lambda ()
(interactive) (interactive)
(let ((missing-spaces (- rightest-column (current-column)))) (let ((missing-spaces (- rightest-column (current-column))))
(save-excursion (insert (make-string missing-spaces character))) (save-excursion (insert (make-string missing-spaces character)))
(forward-char missing-spaces) (forward-char missing-spaces)
) )
)) ))
) )
) )