aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-11 19:57:31 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-11 19:57:31 +0200
commit5c6a6815b116c07439051228840333b47dc763cf (patch)
tree8bbf096742d9237cb58d6e27ee745692fae23588 /lisp/mastodon-tl.el
parent6a6f7645c454c080046dc6409cc2583baef3bbab (diff)
fix poll count display.
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 9920aeb..1ddc708 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1076,7 +1076,7 @@ HELP-ECHO, DISPLAY, and FACE are the text properties to add."
"Format poll OPTION. OPTION-COUNTER is just a counter.
LONGEST-OPTION is the option whose length determines the formatting."
(format "%s: %s%s%s\n"
- (setq option-counter (1+ option-counter))
+ option-counter
(propertize (alist-get 'title option)
'face 'success)
(make-string (1+ (- (length longest-option)
@@ -1097,6 +1097,7 @@ LONGEST-OPTION is the option whose length determines the formatting."
(option-counter 0))
(concat "\nPoll: \n\n"
(mapconcat (lambda (option)
+ (setq option-counter (1+ option-counter))
(mastodon-tl--format-poll-option
option option-counter longest-option))
.options