diff options
| author | Dave Love <fx@gnu.org> | 2001-02-08 23:25:15 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-02-08 23:25:15 +0000 |
| commit | 4681ca3a6ccce6a97b3c0097036cd4cf5a8a03a5 (patch) | |
| tree | 337864bc0b87eeabf919676fed63e0a83a9e8aed /lisp/wid-edit.el | |
| parent | 532f519779adb24828c0235cc8541a2671ede9c4 (diff) | |
| download | emacs-4681ca3a6ccce6a97b3c0097036cd4cf5a8a03a5.tar.gz | |
(widget-plist-convert-widget): Replace binding of
widget-plist-value-type.
(widget-alist-convert-widget): Replace binding of
widget-alist-value-type.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |