[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/mastodon dd9bb17742 3/4: cursor-face prop for fave etc mar
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/mastodon dd9bb17742 3/4: cursor-face prop for fave etc markers. |
Date: |
Wed, 27 Sep 2023 10:01:25 -0400 (EDT) |
branch: elpa/mastodon
commit dd9bb177429d55f550e767ab11926ee602c8fc9f
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>
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 b546804f6d..a8c85d8033 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