From 37a76491311fe1f6852be9ef6c683d3cbd1655a7 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Thu, 24 Oct 2024 10:40:29 +0200 Subject: poll: set tp-transient-settings on editing a toot --- lisp/mastodon-transient.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lisp/mastodon-transient.el') diff --git a/lisp/mastodon-transient.el b/lisp/mastodon-transient.el index 4776c4b..f418fcc 100644 --- a/lisp/mastodon-transient.el +++ b/lisp/mastodon-transient.el @@ -337,9 +337,10 @@ Pull value from `mastodon-tool-poll' if possible.'" (if (not value) "" (let ((readable - (car - (rassoc value - (mastodon-toot--poll-expiry-options-alist))))) + (or (car + (rassoc value + (mastodon-toot--poll-expiry-options-alist))) + (concat value " secs")))) ;; editing a poll wont match expiry list (propertize readable 'face (if (tp-arg-changed-p obj cons) 'transient-value -- cgit v1.2.3