diff options
author | martianh <martianh@noreply.codeberg.org> | 2023-12-20 18:02:09 +0000 |
---|---|---|
committer | martianh <martianh@noreply.codeberg.org> | 2023-12-20 18:02:09 +0000 |
commit | f5a19ad534df988e8924ecb97c2360506c947632 (patch) | |
tree | 1289c2b86f283703e12657770286ec1c2bfda9a1 /lisp | |
parent | 703655f109d38e6a8c0c15af01ea8b9f4314155d (diff) | |
parent | 792e18037d2de677d969cabd19bdf1086e760218 (diff) |
Merge pull request 'Use `equal' to access alist entries by `mastodon-instance-url'' (#516) from dme/mastodon.el:devel/dme into develop
Reviewed-on: https://codeberg.org/martianh/mastodon.el/pulls/516
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-auth.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 1a3e539..279377b 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -172,13 +172,13 @@ When ASK is absent return nil." Generate/save token if none known yet." (cond (mastodon-auth--token-alist ;; user variables are known and initialised. - (alist-get mastodon-instance-url mastodon-auth--token-alist)) + (alist-get mastodon-instance-url mastodon-auth--token-alist nil nil #'equal)) ((plist-get (mastodon-client--active-user) :access_token) ;; user variables need to be read from plstore. (push (cons mastodon-instance-url (plist-get (mastodon-client--active-user) :access_token)) mastodon-auth--token-alist) - (alist-get mastodon-instance-url mastodon-auth--token-alist)) + (alist-get mastodon-instance-url mastodon-auth--token-alist nil nil #'equal)) ((null mastodon-active-user) ;; user not aware of 2FA-related changes and has not set ;; `mastodon-active-user'. Make user aware and error out. |