From cfbd4ae7343733b508feaf453b91facd1d0fb44d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 7 Nov 2020 13:57:29 -0700 Subject: use nth rather than seq-elt, and use a static quoted list Signed-off-by: Sean Whitton --- org-d20.el | 6 ++---- 1 file 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 -- cgit v1.2.3