From 0640c6478b74090281d952a5c96b11ce7d8f9eb2 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 2 May 2000 13:42:46 +0000 Subject: [PATCH] (widget-default-active): Obey `:always-active'. (widget-documentation-string-value-create): Set `:always-active'. --- lisp/wid-edit.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 67efcfa88ae..9e515b88507 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1539,10 +1539,11 @@ If that does not exists, call the value of `widget-complete-field'." (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 @@ link for that string." widget 'visibility :help-echo "Show or hide rest of the documentation." :off "More" + :always-active t :action 'widget-parent-action shown) buttons) -- 2.39.5