From dd9bb177429d55f550e767ab11926ee602c8fc9f Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 27 Sep 2023 10:03:27 +0200 Subject: cursor-face prop for fave etc markers. used to not break highlight-current-toot when inserting markers --- lisp/mastodon-toot.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index b546804..a8c85d8 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -315,8 +315,12 @@ Remove MARKER if REMOVE is non-nil, otherwise add it." (message "Oops: could not find marker '(%s)'" marker))) (unless remove (goto-char bol) - (insert (format "(%s) " - (propertize marker 'face 'success))))) + (insert + (propertize + (format "(%s) " + (propertize marker + 'face 'success)) + 'cursor-face 'mastodon-cursor-highlight-face)))) (when at-byline-p ;; leave point after the marker: (unless remove -- cgit v1.2.3