diff options
| author | Holger Dürer <me@hdurer.net> | 2017-05-02 20:39:09 +0100 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-05-05 15:01:50 -0400 |
| commit | 4d0bd43c0ede0159c0f0130a5565ea5a6511997a (patch) | |
| tree | 271f9ccfc077eb45885a05bf6a40ebb8e60c9565 /lisp/mastodon-toot.el | |
| parent | 9c8df73c253640f54e89c0c170336a9993290e6c (diff) | |
Clean up use of progn.
- Lambda, defun, let, etc. all have an implicit progn.
- A progn with a single form is identical to that single form.
Diffstat (limited to 'lisp/mastodon-toot.el')
| -rw-r--r-- | lisp/mastodon-toot.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 371d8ed..230277c 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -121,11 +121,10 @@ Set `mastodon-toot--content-warning' to nil." ("sensitive" . ,(when mastodon-toot--content-warning (symbol-name t))) ("spoiler_text" . ,spoiler)))) - (progn - (mastodon-toot--kill) - (let ((response (mastodon-http--post endpoint args nil))) - (mastodon-http--triage response - (lambda () (message "Toot toot!"))))))) + (mastodon-toot--kill) + (let ((response (mastodon-http--post endpoint args nil))) + (mastodon-http--triage response + (lambda () (message "Toot toot!")))))) (defun mastodon-toot--reply () "Reply to toot at `point'." @@ -151,9 +150,8 @@ Set `mastodon-toot--content-warning' to nil." (bindings (remove nil (mapcar (lambda (i) (if (listp i) i)) (cadr binds))))) (mapcar (lambda (b) - (progn - (setf (car b) (vector prefix (car b))) - b)) + (setf (car b) (vector prefix (car b))) + b) bindings))) (defun mastodon-toot--format-kbind-command (cmd) |