# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897948462 0
# Node ID cad4818f198f47e89cac9bb84304fd5e4a982776
# Parent  eb628ee6aa2bdda85c3398d36c41be250fcaba67
(widget-default-get): Doc fix.
(widget-editable-list-entry-create): Apply :value-to-external to
the value returned from wiget-default-get.

diff -r eb628ee6aa2b -r cad4818f198f lisp/wid-edit.el
--- a/lisp/wid-edit.el	Mon Jun 15 15:45:22 1998 +0000
+++ b/lisp/wid-edit.el	Mon Jun 15 22:07:42 1998 +0000
@@ -490,7 +490,7 @@
 					 :value-to-internal value)))
 
 (defun widget-default-get (widget)
-  "Extract the defaylt value of WIDGET."
+  "Extract the default value of WIDGET."
   (or (widget-get widget :value)
       (widget-apply widget :default-get)))
 
@@ -2657,7 +2657,9 @@
 		    (setq child (widget-create-child-value 
 				 widget type value))
 		  (setq child (widget-create-child-value 
-			       widget type (widget-default-get type)))))
+			       widget type
+			       (widget-apply type :value-to-external
+					     (widget-default-get type))))))
 	       (t 
 		(error "Unknown escape `%c'" escape)))))
      (widget-put widget