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:
parent
65b323e14e
commit
8b38720220
1 changed files with 4 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue