From 02d8717f18ce0ce4bbf67368c41a0e399097f17a Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Tue, 30 Nov 2021 20:11:05 +0100 Subject: [PATCH] Fix issue with type of argument passed, simplify some code --- conlanging.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/conlanging.el b/conlanging.el index 1885847..39b8b4f 100644 --- a/conlanging.el +++ b/conlanging.el @@ -268,9 +268,9 @@ second is the Runic equivalent.") (defun conlanging--translate (text table) "Translate TEXT through its correspondance TABLE." - (dolist (elem table) - (setq text (replace-regexp-in-string (car elem) (cdr elem) text))) - text) + (let ((rune-table (cdr (assoc table conlanging-language-list)))) + (dolist (elem rune-table text) + (setq text (replace-regexp-in-string (car elem) (cdr elem) text))))) (defun conlanging--replace-region-by-translation (table) "Replace region with its translation through TABLE.