Mercurial > emacs

changeset 35992:56d876c3560d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-plist-convert-widget): Replace binding of widget-plist-value-type. (widget-alist-convert-widget): Replace binding of widget-alist-value-type.
author Dave Love <fx@gnu.org>
date Thu, 08 Feb 2001 23:24:02 +0000
parents 0f2992f8e370
children b50c20a85760
files lisp/wid-edit.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/wid-edit.el	Thu Feb 08 22:14:49 2001 +0000
+++ b/lisp/wid-edit.el	Thu Feb 08 23:24:02 2001 +0000
@@ -3208,10 +3208,11 @@
 (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 @@
 (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