Don't always toggle a choice when prompting

* lisp/wid-edit.el (widget-choice-prompt-value): Respect the value
of widget-choice-toggle.  (Bug#60712)
This commit is contained in:
Mauro Aranda 2023-07-16 09:22:11 -03:00 committed by Eli Zaretskii
parent b4824faa62
commit d09464e504

View file

@ -3988,7 +3988,8 @@ current choice is inline."
nil)
((= (length args) 1)
(nth 0 args))
((and (= (length args) 2)
((and widget-choice-toggle
(= (length args) 2)
(memq old args))
(if (eq old (nth 0 args))
(nth 1 args)