aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2020-11-07 13:57:29 -0700
committerSean Whitton <spwhitton@spwhitton.name>2020-11-07 17:10:49 -0700
commitcfbd4ae7343733b508feaf453b91facd1d0fb44d (patch)
tree71bffdd05423d464e39d3292b5a2470f4f1940b0
parente39134094c6384f0f09346208546137f4fc36e5e (diff)
downloadorg-d20-cfbd4ae7343733b508feaf453b91facd1d0fb44d.tar.gz
use nth rather than seq-elt, and use a static quoted list
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r--org-d20.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/org-d20.el b/org-d20.el
index dcb6c27..1aa4b7c 100644
--- a/org-d20.el
+++ b/org-d20.el
@@ -411,10 +411,8 @@ the best N of them, e.g., 4d6k3."
;; Return the number or letter with which a monster name should be suffixed
(defun org-d20--monster-number (n)
(if (and org-d20-letter-monsters (>= 26 n))
- (seq-elt
- (list "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")
- (1- n))
+ (nth (1- n) '("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"))
(int-to-string n)))
;; Concat b onto a as a signed term, where a is possibly empty