From: Mauro Aranda <maurooaranda@gmail.com>
Date: Wed, 1 Jan 2025 11:22:45 +0000 (-0300)
Subject: Fix checkbox's child creation
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~119
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d66b8d4becb6804d3bd912a000dc64ccfdbe6810;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)
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 3a7413f943c..8e6d0ed3664 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2550,12 +2550,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)))
-                             ;; This somehow breaks :options and other
-                             ;; Custom features.
-                             ;; (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.