aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el2
-rw-r--r--lisp/mastodon-views.el6
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index f682c50..8114705 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2174,7 +2174,7 @@ report the account for spam."
(crm-separator (replace-regexp-in-string "," "|" crm-separator))
(choices (completing-read-multiple
"rules [TAB for options, | to separate]: "
- alist nil :match)))
+ alist nil t)))
(mapcar (lambda (x)
(alist-get x alist nil nil 'equal))
choices)))
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 790c548..7d5ac1e 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -291,7 +291,7 @@ If ID is provided, use that list."
(name-choice (read-string "List name: " name-old))
(replies-policy (completing-read "Replies policy: " ; give this a proper name
'("followed" "list" "none")
- nil :match nil nil "list"))
+ nil t nil nil "list"))
(url (mastodon-http--api (format "lists/%s" id)))
(response (mastodon-http--put url
`(("title" . ,name-choice)
@@ -333,7 +333,7 @@ Prompt for name and replies policy."
(let* ((title (read-string "New list name: "))
(replies-policy (completing-read "Replies policy: " ; give this a proper name
'("followed" "list" "none")
- nil :match nil nil "list")) ; default
+ nil t nil nil "list")) ; default
(response (mastodon-http--post (mastodon-http--api "lists")
`(("title" . ,title)
("replies_policy" . ,replies-policy))
@@ -621,7 +621,7 @@ Prompt for a context, must be a list containting at least one of \"home\",
(completing-read-multiple
"Contexts to filter [TAB for options]: "
'("home" "notifications" "public" "thread")
- nil :match)))
+ nil t)))
(contexts-processed
(if (equal nil contexts)
(error "You must select at least one context for a filter")