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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80f5c801f7b111b92cf6860c39fb616b02208e61..1f2936282bf9f0241e70cb47122cc46625542298 100644 (file)
--- 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 bea4a1933c664497a3877a35d2d26a60a580bd1b..c4661ed233166d601527873a22a130c3518f047f 100644 (file)
--- 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