Commit 416cd771 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(widget-default-get): Doc fix.

(widget-editable-list-entry-create): Apply :value-to-external to
the value returned from wiget-default-get.
parent e548a4f7
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment