From 373d19b6cc6cc604cc34227103d95e8652016bdd Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sun, 2 Jun 2024 19:15:59 +0200 Subject: display poll deets in help-echo for display fields flag. --- lisp/mastodon-toot.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index d38b66f..f964214 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" -- cgit v1.2.3