From 3481e6c57157ae5c280d57e431f658279ca43744 Mon Sep 17 00:00:00 2001 From: Johnson Denen Date: Tue, 25 Apr 2017 23:49:37 -0400 Subject: [PATCH] Fix #57 by moving messages into callbacks --- lisp/mastodon-toot.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 6345e14b..ce365a1c 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -70,8 +70,10 @@ Remove MARKER if RM is non-nil." (action (if boosted "unreblog" "reblog")) (msg (if boosted "unboosted" "boosted")) (remove (when boosted t))) - (mastodon-toot--action action (lambda () (mastodon-toot--action-success "B" remove))) - (message (format "%s #%s" msg id)))) + (mastodon-toot--action action + (lambda () + (mastodon-toot--action-success "B" remove) + (message (format "%s #%s" msg id)))))) (defun mastodon-toot--toggle-favourite () "Favourite/unfavourite toot at `point'." @@ -80,8 +82,10 @@ Remove MARKER if RM is non-nil." (faved (get-text-property (point) 'favourited-p)) (action (if faved "unfavourite" "favourite")) (remove (when faved t))) - (mastodon-toot--action action (lambda () (mastodon-toot--action-success "F" remove))) - (message (format "%sd #%s" action id)))) + (mastodon-toot--action action + (lambda () + (mastodon-toot--action-success "F" remove) + (message (format "%sd #%s" action id)))))) (defun mastodon-toot--kill () "Kill `mastodon-toot-mode' buffer and window.