From 416cd771be9f138ddd77ff21f2c059a68855b680 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 Jun 1998 22:07:42 +0000 Subject: [PATCH] (widget-default-get): Doc fix. (widget-editable-list-entry-create): Apply :value-to-external to the value returned from wiget-default-get. --- lisp/wid-edit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index b31733318be..1e02648d5bb 100644 --- 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 -- 2.39.5