Lines Matching +defs:plist +defs:member
502 (defun widget-member (widget property)
504 (cond ((plist-member (cdr widget) property)
507 (widget-member (get (car widget) 'widget-type) property))
777 (let ((convert-widget (plist-get (cdr type) :convert-widget)))
790 (if (widget-member widget :value)
1346 "Get the value of the first member of :children in WIDGET."
1350 "Get the inline value of the first member of :children in WIDGET."
1354 "The result of validating the first member of :children in WIDGET."
3506 ;;; The `plist' Widget.
3510 (define-widget 'plist 'list
3514 :convert-widget 'widget-plist-convert-widget
3517 (defvar widget-plist-value-type) ;Dynamic variable
3519 (defun widget-plist-convert-widget (widget)
3522 (widget-plist-value-type (widget-get widget :value-type))
3526 ,widget-plist-value-type)))
3530 ,@(mapcar 'widget-plist-convert-option
3537 (defun widget-plist-convert-option (option)
3538 ;; Convert a single plist option.
3547 value-type widget-plist-value-type))