diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-10-16 15:42:41 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-10-16 15:42:41 +0200 |
| commit | d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df (patch) | |
| tree | 517b91ddfa0613122bfc4429d87f83495defeedf /lisp/wid-edit.el | |
| parent | 4d65821bf016dff6a8b10578913970f854763346 (diff) | |
| download | emacs-d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df.tar.gz emacs-d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df.tar.bz2 emacs-d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df.zip | |
* lisp/wid-edit.el (widget-default-active): Normalize boolean result.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 4d1a609809d..32e0b3e125b 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1663,7 +1663,8 @@ The value of the :type attribute should be an unconverted widget type." (and (not (widget-get widget :inactive)) (let ((parent (widget-get widget :parent))) (or (null parent) - (widget-apply parent :active)))))) + (widget-apply parent :active))) + t))) (defun widget-default-deactivate (widget) "Make WIDGET inactive for user modifications." |