Merge pull request #236 from jtamagnan/insert_letters_fix

Speedup mc--numbers-to-letters
This commit is contained in:
Magnar Sveen 2016-04-27 19:05:42 +02:00
commit da069c88e5

View File

@ -65,7 +65,7 @@
(defun mc--number-to-letters (number) (defun mc--number-to-letters (number)
(let ((letter (let ((letter
(char-to-string (char-to-string
(nth (mod number 26) '(?a ?b ?c ?d ?e ?f ?g ?h ?i ?j ?k ?l ?m ?n ?o ?p ?q ?r ?s ?t ?u ?v ?w ?x ?y ?z)))) (+ (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)