[nongnu] elpa/mastodon 373d19b6cc 15/45: display poll deets in help-echo for display fields flag.

[ELPA Syncer]

branch: elpa/mastodon
commit 373d19b6cc6cc604cc34227103d95e8652016bdd
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    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"