diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-02-18 22:35:27 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-02-18 22:41:15 +0100 |
| commit | a75f120f0c2f61a6f0e1b9318f9a18134b831de2 (patch) | |
| tree | eb2ccacfc3348548d773545822f751b8f1c7da82 | |
| parent | 45e00b20b120784ad1c857a4fb71f994d17ef6c7 (diff) | |
refactor tl--get-link-header
| -rw-r--r-- | lisp/mastodon-tl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 170cec1..2225757 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) |