branch: elpa/mastodon
commit cd5d4e7e7bc85692e147b3425ca0301653ae0609
Author: Ian Eure <i...@retrospec.tv>
Commit: Ian Eure <i...@retrospec.tv>
Fix broken `sort` call.
This code was calling `sort`, but should have called `cl-sort`. This
causes a warning when byte-compiling:
mastodon-tl.el:3095:19: Warning: ‘sort’ called with 3 arguments, but
accepts only 2
...and pages of baffling errors when native-compiling:
Error: native-compiler-error ("mastodon-tl.el" "Compiling
/home/ieure/projects/emacs/mastodon.el/lisp/mastodon-tl.eln...
libgccjit.so: error: gcc_jit_context_new_call_through_ptr: too many
arguments to fn_ptr: freloc->R736f7274_sort_0 (got 3 args, expected 2)
Internal native compiler error: \"gcc_jit_context_new_call_through_ptr:
too many arguments to fn_ptr: freloc->R736f7274_sort_0 (got 3 args, expected
2)\"
Calling the correct function resolves both.
---
lisp/mastodon-tl.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 5c7b30c2ac..32815d4e97 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3095,7 +3095,7 @@ 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 (sort json :key (lambda (x)
+ (sorted (cl-sort json :key (lambda (x)
(downcase (alist-get 'name x)))))
(buf "*mastodon-followed-tags*"))
(if (null sorted)
