Mercurial > emacs

comparison lisp/wid-edit.el @ 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 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))