Mercurial > emacs
comparison lisp/wid-edit.el @ 67631:5b2b1ad90419
(widget-checkbox-action): Clear undo info.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 17 Dec 2005 08:52:54 +0000 |
| parents | a57102d7cc7e |
| children | c0dbbeb95cd3 |
comparison
equal
deleted
inserted
replaced
| 67630:9b6d7e846996 | 67631:5b2b1ad90419 |
|---|---|
| 2159 (widget-toggle-action widget event) | 2159 (widget-toggle-action widget event) |
| 2160 (let ((sibling (widget-get-sibling widget))) | 2160 (let ((sibling (widget-get-sibling widget))) |
| 2161 (when sibling | 2161 (when sibling |
| 2162 (if (widget-value widget) | 2162 (if (widget-value widget) |
| 2163 (widget-apply sibling :activate) | 2163 (widget-apply sibling :activate) |
| 2164 (widget-apply sibling :deactivate))))) | 2164 (widget-apply sibling :deactivate)) |
| 2165 (widget-clear-undo)))) | |
| 2165 | 2166 |
| 2166 ;;; The `checklist' Widget. | 2167 ;;; The `checklist' Widget. |
| 2167 | 2168 |
| 2168 (define-widget 'checklist 'default | 2169 (define-widget 'checklist 'default |
| 2169 "A multiple choice widget." | 2170 "A multiple choice widget." |