Avoid a custom-variable-type error (bug#27363)

* lisp/cus-edit.el (custom-variable-type):
Avoid an error due to plist-put becoming stricter of late.
This commit is contained in:
Glenn Morris 2017-06-19 14:53:47 -04:00
parent 65b323e14e
commit 8b38720220

View file

@ -2518,7 +2518,10 @@ try matching its doc string against `custom-guess-doc-alist'."
(copy-sequence type)
(list type))))
(when options
(widget-put tmp :options options))
;; This used to use widget-put, but with strict plists that
;; fails when type is an even-length list, eg (repeat character).
;; Passing our result through widget-convert makes it a valid widget.
(setcdr tmp (append (list :options options) (cdr tmp))))
tmp))
(defun custom-variable-value-create (widget)