Mercurial > emacs
diff lisp/wid-edit.el @ 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 | bc335df29000 |
children | 3bb8d5adf524 |
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)