From: Mauro Aranda <maurooaranda@gmail.com>
Date: Wed, 1 Jan 2025 11:22:45 +0000 (-0300)
Subject: Fix checkbox's child creation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ca20f4791b85dce64251e045c66256e802f4a71;p=emacs.git

Fix checkbox's child creation

* lisp/wid-edit.el (widget-checklist-add-item): Swap function
calls so that child is actually a widget.  (Bug#72156)

(cherry picked from commit d66b8d4becb6804d3bd912a000dc64ccfdbe6810)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 75ec6b22bbf..5f5d0151163 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2549,9 +2549,9 @@ If the item is checked, CHOSEN is a cons whose cdr is the value."
 			     (widget-create-child-value
 			      widget type (cdr chosen)))
 			    (t
-			     (widget-create-child-value
-			      widget type (car (cdr chosen)))
-                             (widget-specify-selected child)))))
+                             (widget-specify-selected child)
+                             (widget-create-child-value
+                              widget type (car (cdr chosen)))))))
 	       (t
 		(error "Unknown escape `%c'" escape)))))
      ;; Update properties.