]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix widget relationship in customize-themes
authorMauro Aranda <maurooaranda@gmail.com>
Wed, 2 Apr 2025 11:10:18 +0000 (08:10 -0300)
committerEshel Yaron <me@eshelyaron.com>
Thu, 3 Apr 2025 16:51:02 +0000 (18:51 +0200)
* lisp/cus-theme.el (customize-themes): The theme button should
be a sibling of the checkbox widget, not a child.  (Bug#77096)

(cherry picked from commit 9cfc01056e1be0fada18b8cfbde6a6a511428edd)

lisp/cus-theme.el

index acf92866bdbf46c348c82f023662364eee175e0c..3769d0975abc3b2908e3d20f3d5577b0ca1ce6ca 100644 (file)
@@ -659,12 +659,13 @@ Theme files are named *-theme.el in `"))
                                    :help-echo help-echo
                                     :action #'custom-theme-checkbox-toggle))
         (push (cons theme widget) custom--listed-themes)
-        (widget-create-child-and-convert widget 'push-button
-                                        :button-face-get 'ignore
-                                        :mouse-face-get 'ignore
-                                        :value (format " %s" theme)
-                                         :action #'widget-parent-action
-                                        :help-echo help-echo)
+        (widget-create 'push-button
+                       :button-face-get 'ignore
+                       :mouse-face-get 'ignore
+                       :value (format " %s" theme)
+                       :action (lambda (_w &optional event)
+                                 (custom-theme-checkbox-toggle widget event))
+                       :help-echo help-echo)
         (widget-insert " -- "
                       (propertize (custom-theme-summary theme)
                                   'face 'shadow)