aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@disroot.org>2024-11-01 15:48:32 +0100
committermarty hiatt <martianhiatus@disroot.org>2024-11-01 15:48:32 +0100
commitb05de5f9075813d9e56317fd011dcd809da905bc (patch)
treeee802e98768a43fc416daa6d77bc93ebe56ed7fb
parent1ba949586efbbcd50be9f341cfc3f8b9c591fb3b (diff)
some ifs become whens
-rw-r--r--lisp/mastodon-tl.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 595f0cf..2db7f34 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3037,7 +3037,7 @@ MAX-ID is the pagination parameter, a string."
(alist-get 'hashtags response))
((string= "accounts" type)
(alist-get 'accounts response))))))
- (headers (if headers (cdr response) nil))
+ (headers (when headers (cdr response)))
(link-header
(mastodon-tl--get-link-header-from-response headers)))
(goto-char (point-max))
@@ -3309,7 +3309,7 @@ JSON and http headers, without it just the JSON."
((eq (caar json) 'error)
(user-error "Looks like the server bugged out: \"%s\"" (cdar json)))
(t
- (let* ((headers (if headers (cdr response) nil))
+ (let* ((headers (when headers (cdr response)))
(link-header
(mastodon-tl--get-link-header-from-response headers)))
(with-mastodon-buffer buffer #'mastodon-mode nil