diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-09-27 10:03:27 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-09-27 10:03:27 +0200 |
| commit | dd9bb177429d55f550e767ab11926ee602c8fc9f (patch) | |
| tree | d8bbd4212e3ab16be5a158c9b62e19523038edcf /lisp/mastodon-toot.el | |
| parent | 008a71d3366d3f85ca66c630b3538c2eabb6d41e (diff) | |
cursor-face prop for fave etc markers.
used to not break highlight-current-toot when inserting markers
Diffstat (limited to 'lisp/mastodon-toot.el')
| -rw-r--r-- | lisp/mastodon-toot.el | 8 |
1 files 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 |