From 47865bd21551616d5d149afa6c574b2bfd0f118f Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sun, 22 Oct 2023 11:08:00 +0200 Subject: tl--prev-toot-id: don't assume our funs return anything. fixes a bug that would break thread loading, perhaps because an ancestor toot wasn't there when it was supposed to be, so we were check for prev id when there was no prev toot. maybe caused by viewing threads that include toots by ppl on blocked servers, which don't display. --- lisp/mastodon-tl.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 3e4e31e..e279ee3 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1303,10 +1303,13 @@ Runs `mastodon-tl--render-text' and fetches poll or media." (defun mastodon-tl--prev-item-id () "Return the id of the last toot inserted into the buffer." - (let ((prev-pos - (1- (save-excursion - (previous-single-property-change (point) 'base-item-id))))) - (get-text-property prev-pos 'base-item-id))) + (let* ((prev-change + (save-excursion + (previous-single-property-change (point) 'base-toot-id))) + (prev-pos + (when prev-change (1- prev-change)))) + (when prev-pos + (get-text-property prev-pos 'base-toot-id)))) (defun mastodon-tl--after-reply-status (reply-to-id) "T if REPLY-TO-ID is equal to that of the last toot inserted in the bufer." -- cgit v1.2.3