procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
widget-plist-value-type.
(widget-alist-convert-widget): Replace binding of
widget-alist-value-type.
This commit is contained in:
Dave Love 2001-02-08 23:25:15 +00:00
parent 532f519779
commit 4681ca3a6c
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

6
lisp/wid-edit.el
View file

@ -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