Mercurial > emacs

changeset 22496:cad4818f198f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-default-get): Doc fix. (widget-editable-list-entry-create): Apply :value-to-external to the value returned from wiget-default-get.
author Richard M. Stallman <rms@gnu.org>
date Mon, 15 Jun 1998 22:07:42 +0000
parents eb628ee6aa2b
children 5f8133b3c592
files lisp/wid-edit.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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