aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-02-18 22:35:27 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-02-18 22:35:27 +0100
commit09d6011da215fced6b8f49f8cf12ee9226b58d8d (patch)
tree31ef23adf3db1a163f5139f6bc53f82b21714d04 /lisp
parent03eb2c807c7a07718b2c811038477eff014032b7 (diff)
refactor tl--get-link-header
Diffstat (limited to 'lisp')
-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 4323c66..257a6f2 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3000,8 +3000,8 @@ This location is defined by a non-nil value of
(defun mastodon-tl--get-link-header-from-response (headers)
"Get http Link header from list of http HEADERS."
;; pleroma uses "link", so case-insensitive match required:
- (when (alist-get "Link" headers nil nil 'cl-equalp)
- (split-string (alist-get "Link" headers nil nil 'cl-equalp) ", ")))
+ (when-let ((link-headers (alist-get "Link" headers nil nil 'cl-equalp)))
+ (split-string link-headers ", ")))
(defun mastodon-tl--init (buffer-name endpoint update-function
&optional headers params hide-replies)