From 4681ca3a6ccce6a97b3c0097036cd4cf5a8a03a5 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 8 Feb 2001 23:25:15 +0000 Subject: [PATCH] (widget-plist-convert-widget): Replace binding of widget-plist-value-type. (widget-alist-convert-widget): Replace binding of widget-alist-value-type. --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 6 ++++-- 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 + * 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 -- 2.11.4.GIT