[nongnu] elpa/mastodon 5d46e17c0b 20/22: indent -toot.el

[ELPA Syncer]

branch: elpa/mastodon
commit 5d46e17c0b41874f54b628e090feba7a5a9ac206
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>

    indent -toot.el
---
 lisp/mastodon-toot.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 62a53cf8e5..f46fc6deec 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -947,7 +947,7 @@ Buffer-local variable 
`mastodon-toot-previous-window-config' holds the config."
   "Apply `mastodon-toot--process-local' function to each mention in MENTIONS.
 Remove empty string (self) from result and joins the sequence with whitespace."
   (mapconcat (lambda (mention) mention)
-                (remove "" (mapcar #'mastodon-toot--process-local mentions))
+            (remove "" (mapcar #'mastodon-toot--process-local mentions))
              " "))
 
 (defun mastodon-toot--process-local (acct)
@@ -1498,16 +1498,16 @@ REPLY-TEXT is the text of the toot being replied to."
 The default is given by `mastodon-toot--default-reply-visibility'."
   (unless (null reply-visibility)
     (let ((less-restrictive (member (intern 
mastodon-toot--default-reply-visibility)
-                                                   
mastodon-toot-visibility-list)))
+                                   mastodon-toot-visibility-list)))
       (if (member (intern reply-visibility) less-restrictive)
-             mastodon-toot--default-reply-visibility reply-visibility))))
+         mastodon-toot--default-reply-visibility reply-visibility))))
 
 (defun mastodon-toot--setup-as-reply (reply-to-user reply-to-id reply-json)
   "If REPLY-TO-USER is provided, inject their handle into the message.
 If REPLY-TO-ID is provided, set `mastodon-toot--reply-to-id'.
 REPLY-JSON is the full JSON of the toot being replied to."
   (let ((reply-visibility (mastodon-toot--most-restrictive-visibility
-                              (alist-get 'visibility reply-json)))
+                          (alist-get 'visibility reply-json)))
         (reply-cw (alist-get 'spoiler_text reply-json)))
     (when reply-to-user
       (when (> (length reply-to-user) 0) ; self is "" unforch