Mercurial > emacs
comparison lisp/wid-edit.el @ 35992:56d876c3560d
(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 | 783c81a841f6 |
children | b42e0ad4cd7b |
comparison
equal
deleted
inserted
replaced
35991:0f2992f8e370 | 35992:56d876c3560d |
---|---|
3206 (defvar widget-plist-value-type) ;Dynamic variable | 3206 (defvar widget-plist-value-type) ;Dynamic variable |
3207 | 3207 |
3208 (defun widget-plist-convert-widget (widget) | 3208 (defun widget-plist-convert-widget (widget) |
3209 ;; Handle `:options'. | 3209 ;; Handle `:options'. |
3210 (let* ((options (widget-get widget :options)) | 3210 (let* ((options (widget-get widget :options)) |
3211 (widget-plist-value-type (widget-get widget :value-type)) | |
3211 (other `(editable-list :inline t | 3212 (other `(editable-list :inline t |
3212 (group :inline t | 3213 (group :inline t |
3213 ,(widget-get widget :key-type) | 3214 ,(widget-get widget :key-type) |
3214 ,(widget-get widget :value-type)))) | 3215 ,widget-plist-value-type))) |
3215 (args (if options | 3216 (args (if options |
3216 (list `(checklist :inline t | 3217 (list `(checklist :inline t |
3217 :greedy t | 3218 :greedy t |
3218 ,@(mapcar 'widget-plist-convert-option | 3219 ,@(mapcar 'widget-plist-convert-option |
3219 options)) | 3220 options)) |
3250 (defvar widget-alist-value-type) ;Dynamic variable | 3251 (defvar widget-alist-value-type) ;Dynamic variable |
3251 | 3252 |
3252 (defun widget-alist-convert-widget (widget) | 3253 (defun widget-alist-convert-widget (widget) |
3253 ;; Handle `:options'. | 3254 ;; Handle `:options'. |
3254 (let* ((options (widget-get widget :options)) | 3255 (let* ((options (widget-get widget :options)) |
3256 (widget-alist-value-type (widget-get widget :value-type)) | |
3255 (other `(editable-list :inline t | 3257 (other `(editable-list :inline t |
3256 (cons :format "%v" | 3258 (cons :format "%v" |
3257 ,(widget-get widget :key-type) | 3259 ,(widget-get widget :key-type) |
3258 ,(widget-get widget :value-type)))) | 3260 ,widget-alist-value-type))) |
3259 (args (if options | 3261 (args (if options |
3260 (list `(checklist :inline t | 3262 (list `(checklist :inline t |
3261 :greedy t | 3263 :greedy t |
3262 ,@(mapcar 'widget-alist-convert-option | 3264 ,@(mapcar 'widget-alist-convert-option |
3263 options)) | 3265 options)) |