branch: elpa/mastodon
commit 373d19b6cc6cc604cc34227103d95e8652016bdd
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
display poll deets in help-echo for display fields flag.
---
lisp/mastodon-toot.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index d38b66faef..f9642149f5 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1437,6 +1437,7 @@ Sets `mastodon-toot-poll' to nil."
(user-error "No poll?")
(setq mastodon-toot-poll nil)
(mastodon-toot--update-status-fields)))
+
;;; SCHEDULE
@@ -1751,7 +1752,8 @@ REPLY-REGION is a string to be injected into the buffer."
'face 'mastodon-cw-face))
(add-text-properties (car poll-region) (cdr poll-region)
(list 'display (if mastodon-toot-poll "POLL" "")
- 'face 'mastodon-cw-face))
+ 'face 'mastodon-cw-face
+ 'help-echo (prin1-to-string
mastodon-toot-poll)))
(add-text-properties (car cw-region) (cdr cw-region)
(list 'display (if mastodon-toot--content-warning
"CW"
