[nongnu] elpa/multiple-cursors 3f382d2 416/434: Move variables before first use

[ELPA Syncer]

branch: elpa/multiple-cursors
commit 3f382d2c8fc0aa154ff74f3e2c48fd8889d8e6b1
Author: Matus Goljer <matus.goljer@gmail.com>
Commit: Matus Goljer <matus.goljer@gmail.com>

    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)
+     )
        ))
       )
     )