diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-07-09 10:24:13 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-07-09 10:24:27 +0200 |
| commit | 4697c073e871afa2d69b64d03a7b03354e4e4dba (patch) | |
| tree | 958fc4f364e35a1994be8bca74a0dd9919616967 | |
| parent | a7fec255574decfe24302f260b451203d13a8b22 (diff) | |
message -> user-error
| -rw-r--r-- | lisp/mastodon-tl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 128298d..c4585b8 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1361,7 +1361,7 @@ displayed when the duration is smaller than a minute)." cell)) options-alist))) (if (null poll) - (message "No poll here.") + (user-error "No poll here.") (list ;; var "option" = just the cdr, a cons of option number and desc (cdr (assoc (completing-read "Poll option to vote for: " @@ -1373,7 +1373,7 @@ displayed when the duration is smaller than a minute)." "If there is a poll at point, prompt user for OPTION to vote on it." (interactive (mastodon-tl--read-poll-option)) (if (null (mastodon-tl--field 'poll (mastodon-tl--property 'item-json))) - (message "No poll here.") + (user-error "No poll here.") (let* ((toot (mastodon-tl--property 'item-json)) (poll (mastodon-tl--field 'poll toot)) (poll-id (alist-get 'id poll)) |