(widget-plist-convert-widget): Replace binding of

widget-plist-value-type.
(widget-alist-convert-widget): Replace binding of
widget-alist-value-type.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80f5c801f7..1f2936282b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,11 @@
 
 2001-02-08  Dave Love  <[email protected]>
 
+	* wid-edit.el (widget-plist-convert-widget): Replace binding of
+	widget-plist-value-type.
+	(widget-alist-convert-widget): Replace binding of
+	widget-alist-value-type.
+
 	* textmodes/paragraphs.el (sentence-end): Doc fix.
 
 	* eshell/em-rebind.el (eshell-cannot-leave-input-list): Remove
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index bea4a1933c..c4661ed233 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3208,10 +3208,11 @@ To use this type, you must define :match or :match-alternatives."
 (defun widget-plist-convert-widget (widget)
   ;; Handle `:options'.
   (let* ((options (widget-get widget :options))
+	 (widget-plist-value-type (widget-get widget :value-type))
 	 (other `(editable-list :inline t
 				(group :inline t
 				       ,(widget-get widget :key-type)
-				       ,(widget-get widget :value-type))))
+				       ,widget-plist-value-type)))
 	 (args (if options
 		   (list `(checklist :inline t
 				     :greedy t
@@ -3252,10 +3253,11 @@ To use this type, you must define :match or :match-alternatives."
 (defun widget-alist-convert-widget (widget)
   ;; Handle `:options'.
   (let* ((options (widget-get widget :options))
+	 (widget-alist-value-type (widget-get widget :value-type))
 	 (other `(editable-list :inline t
 				(cons :format "%v"
 				      ,(widget-get widget :key-type)
-				      ,(widget-get widget :value-type))))
+				      ,widget-alist-value-type)))
 	 (args (if options
 		   (list `(checklist :inline t
 				     :greedy t