diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-06-02 19:15:59 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-06-02 19:15:59 +0200 |
| commit | 373d19b6cc6cc604cc34227103d95e8652016bdd (patch) | |
| tree | 12f4c5bb3dbdf29613848f0c9423533690e7763a /lisp | |
| parent | f4b9c70d18aabd8f53bd09645cc8f29de599edec (diff) | |
display poll deets in help-echo for display fields flag.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-toot.el | 4 |
1 files changed, 3 insertions, 1 deletions
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" |