diff options
| -rw-r--r-- | ennum-html.el | 2 | ||||
| -rw-r--r-- | ennum.el | 7 |
2 files changed, 4 insertions, 5 deletions
diff --git a/ennum-html.el b/ennum-html.el index dcdf26b..a4bb7fa 100644 --- a/ennum-html.el +++ b/ennum-html.el @@ -238,7 +238,7 @@ "<a " (format "<a hreflang=\"%s\" " lang) (ennum-html-export-post slug - (map-elt ennum-html--iso-639-1-alist lang nil 'string=) + (map-elt ennum-html--iso-639-1-alist lang) (org-export-backend-name (plist-get info :back-end))))) translations @@ -328,7 +328,7 @@ code, without surrounding template. See `org-export-as'. When optional argument OUTPUT-HTML-FILE is nil, return exported result as a string." (let ((system-time-locale (map-elt (ennum-setting :locale-alist) - (ennum-post-language post) nil 'string=)) + (ennum-post-language post))) (ext-plist (list :ennum-post post))) (ennum-with-file-contents interned-org-file (cond @@ -405,8 +405,7 @@ result as a string." (ennum-exp (let* ((tongue (ennum-post-language (first posts))) (system-time-locale - (map-elt (ennum-setting :locale-alist) - tongue nil 'string=))) + (map-elt (ennum-setting :locale-alist) tongue))) (when (file-name-directory output-file) (ennum-mkdir-p (file-name-directory output-file))) (with-temp-buffer @@ -672,7 +671,7 @@ are compared using `equal'." This function is purely funcion. ALIST is not mutated." (ennum-assoc-set key - (cons value (map-elt alist key nil 'equal)) + (cons value (map-elt alist key)) alist)) (defun ennum-many-to-many-group-by (function sequence) |