diff options
author | marty hiatt <martianhiatus@riseup.net> | 2023-10-22 11:08:00 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus@riseup.net> | 2023-10-22 11:11:25 +0200 |
commit | 47865bd21551616d5d149afa6c574b2bfd0f118f (patch) | |
tree | c493527bf60fd7f1e81467a4972970041ff62749 | |
parent | a169646f8cb37d3c249b61ddea93906097d1847a (diff) |
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.
-rw-r--r-- | lisp/mastodon-tl.el | 11 |
1 files changed, 7 insertions, 4 deletions
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." |