branch: elpa/mastodon
commit 435107328ed102549a3a74caa52883601dac96f9
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>
tl: list-followed-tags: fix cl-sort with string-lessp.
---
lisp/mastodon-tl.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 612b5e8fec..553e98dab1 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3106,8 +3106,9 @@ PREFIX is sent to `mastodon-tl-get-tag-timeline', which
see."
PREFIX is sent to `mastodon-tl-get-tag-timeline', which see."
(interactive)
(let* ((json (mastodon-tl--followed-tags))
- (sorted (cl-sort json :key (lambda (x)
- (downcase (alist-get 'name x)))))
+ (sorted (cl-sort json #'string-lessp
+ :key (lambda (x)
+ (downcase (alist-get 'name x)))))
(buf "*mastodon-followed-tags*"))
(if (null sorted)
(user-error "You have to follow some tags first")
