diff options
| author | Arun Isaac | 2022-08-17 00:03:59 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-08-17 00:51:55 +0530 |
| commit | 6ab2e06bb396e9fdbd4f507ecf9283ef507bf748 (patch) | |
| tree | 09c8ea6338031d496403b6f94f51db9817e1ab89 | |
| parent | f495acfece2d5a972f613c33f4b2e9349d30e21d (diff) | |
| download | ennum-6ab2e06bb396e9fdbd4f507ecf9283ef507bf748.tar.gz ennum-6ab2e06bb396e9fdbd4f507ecf9283ef507bf748.tar.lz ennum-6ab2e06bb396e9fdbd4f507ecf9283ef507bf748.zip | |
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.
| -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 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) |