branch: elpa/mastodon
commit 752eadca4f4c12ebd8d31783625f4184be26e758
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>
tl goto-pos/nav: move point past unicode isolates. FIX #728.
---
lisp/mastodon-tl.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 73d7c5462f2..b7a24d74ce9 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -432,7 +432,13 @@ If search returns nil, execute REFRESH function.
Optionally start from POS."
(let* ((npos ; toot/user items have byline:
(funcall find-pos
- (or pos (point))
+ (or pos
+ (if (save-excursion
+ (when (not (= 1 (point)))
+ (backward-char 1))
+ (looking-at "\u2068"))
+ (1- (point))
+ (point)))
;; FIXME: we need to fix item-type?
;; 'item-type ; breaks nav to last item in a view?
'byline
@@ -445,7 +451,9 @@ Optionally start from POS."
(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))
+ (mastodon-tl--message-help-echo)
+ (when (looking-at "\u2068")
+ (forward-char 1)))
(condition-case nil
(funcall refresh)
(error "No more items")))))
