branch: elpa/mastodon
commit 6f5b455e47c4f8781d251e72b3aedfdc36a72cd8
Author: Ian Eure <i...@retrospec.tv>
Commit: Ian Eure <i...@retrospec.tv>
Work around buggy Emacs native-compile
For reasons beyond sense or comprehension, the inclusion of the form:
(capitalize mute-str)
...in `mastodon-tl--mute-or-unmute-thread` causes native compilation of
mastodon.el to fail with:
Error: invalid-function ("mastodon-tl.el" #<subr or>)
This makes no sense, and should be reported upstream. In the mean time,
trading a capitalized prompt string for a working native-compile seems like an
easy win.
fixes #715, fixes #536.
---
lisp/mastodon-tl.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 32815d4e97..dc7fe79907 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2660,7 +2660,7 @@ Note that you can only (un)mute threads you have posted
in."
(mastodon-tl--goto-first-item)
(mastodon-tl--property 'base-item-id :no-move)))
-(defun mastodon-tl--mute-or-unmute-thread (&optional unmute)
+(defun mastodon-tl--mute-or-unmute-thread (&optional unmute)
"Mute a thread.
If UNMUTE, unmute it."
(let ((mute-str (if unmute "unmute" "mute")))
@@ -2676,7 +2676,7 @@ If UNMUTE, unmute it."
(url (mastodon-http--api (format "statuses/%s/%s" id mute-str))))
(if (not we-posted-p)
(user-error "You can only (un)mute a thread you have posted in")
- (when (y-or-n-p (format "%s this thread? " (capitalize mute-str)))
+ (when (y-or-n-p (format "%s this thread? " mute-str))
(let ((response (mastodon-http--post url)))
(mastodon-http--triage
response
