From 6ab2e06bb396e9fdbd4f507ecf9283ef507bf748 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 17 Aug 2022 00:03:59 +0530
Subject: Do not pass comparison function to map-elt.

* ennum.el (ennum-export-post, ennum-publish-index-page,
ennum-assoc-prepend): Do not pass comparison function to map-elt.
* ennum-html.el (ennum-html-inner-template): Do not pass comparison
function to map-elt.
---
 ennum-html.el | 2 +-
 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
diff --git a/ennum.el b/ennum.el
index 35b38ab..2dfb888 100644
--- a/ennum.el
+++ b/ennum.el
@@ -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)
-- 
cgit v1.2.3