From 45fd842fe2f2cb1210d44c869140d4ca542e088e Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sat, 14 Oct 2023 15:39:12 +0200 Subject: goto-too-pos: add masto-tab-stop second prop --- lisp/mastodon-tl.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 62d3d67..4d07a4a 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -356,12 +356,19 @@ text, i.e. hidden spoiler text." "Search for toot with FIND-POS. If search returns nil, execute REFRESH function. Optionally start from POS." - (let* ((npos (funcall find-pos - (or pos (point)) - 'byline - (current-buffer)))) + (let* ((npos (or ; toot/user items have byline: + (funcall find-pos + (or pos (point)) + 'byline + (current-buffer)) + ;; some other things don't, so just tab-stop: + (funcall find-pos + (or pos (point)) + 'mastodon-tab-stop + (current-buffer))))) (if npos - (if (not (get-text-property npos 'toot-id)) + (if (not (or (get-text-property npos 'toot-id) ; toots, etc. + (get-text-property npos 'mastodon-tab-stop))) ; generic (mastodon-tl--goto-toot-pos find-pos refresh npos) (goto-char npos) ;; force display of help-echo on moving to a toot byline: -- cgit v1.2.3