branch: elpa/mastodon
commit 64e11b22ac4ce4e26c4c43a00393244297de72f8
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>
handle no mastodon-tl--tags-groups
---
lisp/mastodon-tl.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 2f4804dc4d..e0dc6c9645 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2890,13 +2890,16 @@ You can load a tag timeline list with one of these by
calling
"Load a timeline of a tag group from `mastodon-tl--tags-groups'.
PREFIX is for `mastodon-tl--show-tag-timeline', which see."
(interactive "P")
- (let* ((list-strs (mapcar (lambda (x)
- ;; cons of list-as-string and list:
- (cons (prin1-to-string x) x))
- mastodon-tl--tags-groups))
- (choice (completing-read "Tag group: " list-strs))
- (choice-list (cdr (assoc choice list-strs #'equal))))
- (mastodon-tl--show-tag-timeline prefix choice-list)))
+ (if (not mastodon-tl--tags-groups)
+ (user-error
+ "Set `mastodon-tl--tags-groups' to view tag group timelines.")
+ (let* ((list-strs (mapcar (lambda (x)
+ ;; cons of list-as-string and list:
+ (cons (prin1-to-string x) x))
+ mastodon-tl--tags-groups))
+ (choice (completing-read "Tag group: " list-strs))
+ (choice-list (cdr (assoc choice list-strs #'equal))))
+ (mastodon-tl--show-tag-timeline prefix choice-list))))
;;; REPORT TO MODERATORS
