branch: elpa/multiple-cursors
commit 3f382d2c8fc0aa154ff74f3e2c48fd8889d8e6b1
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
Move variables before first use
---
mc-separate-operations.el | 34 +++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)
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)
+ )
))
)
)
