Commit 4681ca3a authored by Dave Love's avatar Dave Love
Browse files

(widget-plist-convert-widget): Replace binding of

widget-plist-value-type.
(widget-alist-convert-widget): Replace binding of
widget-alist-value-type.
parent 532f5197
......@@ -5,6 +5,11 @@
 
2001-02-08 Dave Love <fx@gnu.org>
 
* wid-edit.el (widget-plist-convert-widget): Replace binding of
widget-plist-value-type.
(widget-alist-convert-widget): Replace binding of
widget-alist-value-type.
* textmodes/paragraphs.el (sentence-end): Doc fix.
 
* eshell/em-rebind.el (eshell-cannot-leave-input-list): Remove
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment