aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-02-22 12:36:20 +0100
committermarty hiatt <martianhiatus@riseup.net>2024-02-22 15:58:08 +0100
commit96866e176e469811642b66b971f3125f040de5de (patch)
treeb668d26aa806bc339117faa99d802ddd98e2bf20
parent45e59eab514c11c69e5d0e619de967442ce1fddc (diff)
remove stray or clauses in tl--goto-item-pos
-rw-r--r--lisp/mastodon-tl.el21
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 29dce60..856325e 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -368,21 +368,22 @@ text, i.e. hidden spoiler text."
"Search for item with function FIND-POS.
If search returns nil, execute REFRESH function.
Optionally start from POS."
- (let* ((npos (or ; toot/user items have byline:
- (funcall find-pos
- (or pos (point))
- ;; 'item-type ; breaks nav to last item in a view?
- 'byline
- (current-buffer)))))
+ (let* ((npos ; toot/user items have byline:
+ (funcall find-pos
+ (or pos (point))
+ ;; FIXME: we need to fix item-type?
+ ;; 'item-type ; breaks nav to last item in a view?
+ 'byline
+ (current-buffer))))
(if npos
- (if (not (or
- ;; (get-text-property npos 'item-id) ; toots, users, not tags
- (get-text-property npos 'item-type))) ; generic
+ (if (not
+ ;; (get-text-property npos 'item-id) ; toots, users, not tags
+ (get-text-property npos 'item-type)) ; generic
(mastodon-tl--goto-item-pos find-pos refresh npos)
(goto-char npos)
;; force display of help-echo on moving to a toot byline:
(mastodon-tl--message-help-echo))
- ;; FIXME: this doesn't really work, as the funcall doesn't return if we
+ ;; FIXME: this doesn't work, as the funcall doesn't return if we
;; run into an endless refresh loop
(condition-case nil
(funcall refresh)