diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 15:39:12 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 15:39:12 +0200 |
| commit | 45fd842fe2f2cb1210d44c869140d4ca542e088e (patch) | |
| tree | 8e1c8dbb5fda065007bc7df3d355225c2a17ee48 /lisp | |
| parent | 8404082b696b730b3ee625474ece49f4011e02f2 (diff) | |
goto-too-pos: add masto-tab-stop second prop
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 17 |
1 files 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: |