[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/mastodon acccb84045 1/2: alist-get testfun equal in set-to
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/mastodon acccb84045 1/2: alist-get testfun equal in set-toot-language |
|
Date: |
Mon, 18 Sep 2023 16:00:26 -0400 (EDT) |
branch: elpa/mastodon
commit acccb84045b8bc57cbf5a863cc7ab9dc0ca5af4d
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>
alist-get testfun equal in set-toot-language
---
lisp/mastodon-toot.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index d974e043a2..53ddeee82f 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)))