From: Mauro Aranda <maurooaranda@gmail.com>
Date: Sun, 16 Jul 2023 12:22:11 +0000 (-0300)
Subject: Don't always toggle a choice when prompting
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d09464e50482a792cc11c20916167d3f62637c2d;p=emacs.git

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)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index b9291af2bd5..88f8a362521 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -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)