From acccb84045b8bc57cbf5a863cc7ab9dc0ca5af4d Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Fri, 15 Sep 2023 11:46:15 +0200
Subject: alist-get testfun equal in set-toot-language

---
 lisp/mastodon-toot.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/mastodon-toot.el')

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index d974e04..53ddeee 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1130,7 +1130,7 @@ Return its two letter ISO 639 1 code."
   (let* ((choice (completing-read "Language for this toot: "
                                   mastodon-iso-639-1)))
     (setq mastodon-toot--language
-          (alist-get choice mastodon-iso-639-1))
+          (alist-get choice mastodon-iso-639-1 nil nil 'equal))
     (message "Language set to %s" choice)
     (mastodon-toot--update-status-fields)))
 
-- 
cgit v1.2.3