Speedup mc--numbers-to-letters

This commit is contained in:
Jules Tamagnan 2016-01-28 18:01:47 -05:00
parent a393384b35
commit 55af65920b

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)