aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-18 13:13:34 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-18 13:13:34 +0100
commita1e6888d1948a472e100b272dbc4dcb998c574e1 (patch)
tree3ead29680209d99cebab86edc09e7a223752357b
parent92d040b9e32ba31fd1184fd72e06ee833159905a (diff)
tl--update: message when no updates to avoid hang appearance
-rw-r--r--lisp/mastodon-tl.el9
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."