FWIW, looks good!
This bit looks like the indenting is funny:
+ (let ((answer (widget-apply widget
+:prompt-value
+ (format "%s[%s]"
+ (widget-prompt widget prompt)
+ (widget-type widget))
+ value unbound)))
Also, I'd appreciate if the docstring for `custom-prompt-variable' said
that it appends the ":".
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches