diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-16 10:09:54 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-16 10:09:54 +0200 |
| commit | c53f8c544283d7e82ce99d830defdbde16ea79f4 (patch) | |
| tree | 4179cc011d8bbd82179cb6b1fe88b64926630be9 | |
| parent | e40a7844b48e7262b51df573605e542cd621687e (diff) | |
no kw arg for completing-read require-match
| -rw-r--r-- | lisp/mastodon-tl.el | 2 | ||||
| -rw-r--r-- | lisp/mastodon-views.el | 6 |
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") |