From eb11b57fd2f86c48eb9c59106a7c357b89b7a21f Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Wed, 2 Apr 2025 08:10:18 -0300 Subject: [PATCH] Fix widget relationship in customize-themes * 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 | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index acf92866bdb..3769d0975ab 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -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) -- 2.39.5