(widget-default-get): Doc fix.

(widget-editable-list-entry-create): Apply :value-to-external to
the value returned from wiget-default-get.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index b31733318bec5ec824f687a116c7d3204f22c26f..1e02648d5bbf1890c52dd489a087944fe183154e 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -490,7 +490,7 @@ Otherwise, just return the value."
                                         :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 @@ when he invoked the menu."
                    (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