aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-profile.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-03-19 12:44:59 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-03-19 13:21:37 +0100
commit521c7c2ae40635532ae22b742a7a521761b2ee85 (patch)
treee7d014c4bdd5ade1d5faec2272925c9a8a3132b2 /lisp/mastodon-profile.el
parente930daea74004496dfb9aa61f2f424a53b1ec4b4 (diff)
rename mastodon-tl-map-alist-to-alist to mastodon-tl--map-alist-vals-to-alist
Diffstat (limited to 'lisp/mastodon-profile.el')
-rw-r--r--lisp/mastodon-profile.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index b77bdac..380c82f 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -540,7 +540,7 @@ FIELDS means provide a fields vector fetched by other means."
(let ((fields (or fields
(mastodon-profile--account-field account 'fields))))
(when fields
- (mastodon-tl-map-alist-to-alist 'name 'value fields))))
+ (mastodon-tl--map-alist-vals-to-alist 'name 'value fields))))
(defun mastodon-profile--fields-insert (fields)
"Format and insert field pairs (a.k.a profile metadata) in FIELDS."
@@ -888,7 +888,7 @@ Currently limited to 100 handles. If not found, try
(url (mastodon-http--api endpoint))
(response (mastodon-http--get-json url
`(("limit" . "100"))))
- (handles (mastodon-tl-map-alist-to-alist 'acct 'id response))
+ (handles (mastodon-tl--map-alist-vals-to-alist 'acct 'id response))
(choice (completing-read "Remove from followers: "
handles))
(id (alist-get choice handles nil nil 'equal)))