(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 80f5c801f7b..1f2936282bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,11 @@
 
 2001-02-08  Dave Love  <fx@gnu.org>
 
+        * 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 bea4a1933c6..c4661ed2331 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