diff options
| author | Juanma Barranquero | 2019-10-16 15:42:41 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2019-10-16 15:42:41 +0200 |
| commit | d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df (patch) | |
| tree | 517b91ddfa0613122bfc4429d87f83495defeedf | |
| parent | 4d65821bf016dff6a8b10578913970f854763346 (diff) | |
| download | emacs-d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df.tar.gz emacs-d502f0c4b5bf0d6dbf0a125b01db21fa3b6292df.zip | |
* lisp/wid-edit.el (widget-default-active): Normalize boolean result.
| -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." | |||
| 1663 | (and (not (widget-get widget :inactive)) | 1663 | (and (not (widget-get widget :inactive)) |
| 1664 | (let ((parent (widget-get widget :parent))) | 1664 | (let ((parent (widget-get widget :parent))) |
| 1665 | (or (null parent) | 1665 | (or (null parent) |
| 1666 | (widget-apply parent :active)))))) | 1666 | (widget-apply parent :active))) |
| 1667 | t))) | ||
| 1667 | 1668 | ||
| 1668 | (defun widget-default-deactivate (widget) | 1669 | (defun widget-default-deactivate (widget) |
| 1669 | "Make WIDGET inactive for user modifications." | 1670 | "Make WIDGET inactive for user modifications." |