# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 957274966 0
# Node ID 6bc5854eef8b014a33363f6a8e50a822686d6ae4
# Parent  ac31ccbeef6de955c009fca45629ed91a49be37a
(widget-default-active): Obey `:always-active'.
(widget-documentation-string-value-create): Set `:always-active'.

diff -r ac31ccbeef6d -r 6bc5854eef8b lisp/wid-edit.el
--- 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)