diff options
| author | Mauro Aranda | 2025-01-01 08:22:45 -0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-01-11 13:54:15 +0200 |
| commit | d66b8d4becb6804d3bd912a000dc64ccfdbe6810 (patch) | |
| tree | 4fd016509252d4c84f515d2a8e7a9af26970d2b7 | |
| parent | 26c5fadf474a56d56064899bc3447bba6d3c3037 (diff) | |
| download | emacs-d66b8d4becb6804d3bd912a000dc64ccfdbe6810.tar.gz emacs-d66b8d4becb6804d3bd912a000dc64ccfdbe6810.zip | |
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)
| -rw-r--r-- | lisp/wid-edit.el | 9 |
1 files changed, 3 insertions, 6 deletions
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." | |||
| 2550 | (widget-create-child-value | 2550 | (widget-create-child-value |
| 2551 | widget type (cdr chosen))) | 2551 | widget type (cdr chosen))) |
| 2552 | (t | 2552 | (t |
| 2553 | (widget-create-child-value | 2553 | (widget-specify-selected child) |
| 2554 | widget type (car (cdr chosen))) | 2554 | (widget-create-child-value |
| 2555 | ;; This somehow breaks :options and other | 2555 | widget type (car (cdr chosen))))))) |
| 2556 | ;; Custom features. | ||
| 2557 | ;; (widget-specify-selected child) | ||
| 2558 | )))) | ||
| 2559 | (t | 2556 | (t |
| 2560 | (error "Unknown escape `%c'" escape))))) | 2557 | (error "Unknown escape `%c'" escape))))) |
| 2561 | ;; Update properties. | 2558 | ;; Update properties. |