Mercurial > emacs
changeset 28780:6bc5854eef8b
(widget-default-active): Obey `:always-active'.
(widget-documentation-string-value-create): Set `:always-active'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 02 May 2000 13:42:46 +0000 |
| parents | ac31ccbeef6d |
| children | dc2a0cf401ab |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Tue May 02 13:41:03 2000 +0000 +++ b/lisp/wid-edit.el Tue May 02 13:42:46 2000 +0000 @@ -1539,10 +1539,11 @@ (defun widget-default-active (widget) "Return t iff this widget active (user modifiable)." - (and (not (widget-get widget :inactive)) - (let ((parent (widget-get widget :parent))) - (or (null parent) - (widget-apply parent :active))))) + (or (widget-get widget :always-active) + (and (not (widget-get widget :inactive)) + (let ((parent (widget-get widget :parent))) + (or (null parent) + (widget-apply parent :active)))))) (defun widget-default-deactivate (widget) "Make WIDGET inactive for user modifications." @@ -2860,6 +2861,7 @@ widget 'visibility :help-echo "Show or hide rest of the documentation." :off "More" + :always-active t :action 'widget-parent-action shown) buttons)