diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-18 13:13:34 +0100 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-18 13:13:34 +0100 |
commit | a1e6888d1948a472e100b272dbc4dcb998c574e1 (patch) | |
tree | 3ead29680209d99cebab86edc09e7a223752357b /lisp | |
parent | 92d040b9e32ba31fd1184fd72e06ee833159905a (diff) |
tl--update: message when no updates to avoid hang appearance
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-tl.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index db61ce1..5398b57 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2059,10 +2059,11 @@ from the start if it is nil." (update-function (mastodon-tl--get-update-function)) (id (mastodon-tl--newest-id)) (json (mastodon-tl--updated-json endpoint id))) - (when json - (let ((inhibit-read-only t)) - (goto-char (or mastodon-tl--update-point (point-min))) - (funcall update-function json))))) + (if json + (let ((inhibit-read-only t)) + (goto-char (or mastodon-tl--update-point (point-min))) + (funcall update-function json)) + (message "nothing to update")))) (defun mastodon-tl--get-link-header-from-response (headers) "Get http Link header from list of http HEADERS." |