diff options
| -rw-r--r-- | lisp/cus-edit.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ca6b8a38d99..6dbb45ec6b9 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -2518,7 +2518,10 @@ try matching its doc string against `custom-guess-doc-alist'." | |||
| 2518 | (copy-sequence type) | 2518 | (copy-sequence type) |
| 2519 | (list type)))) | 2519 | (list type)))) |
| 2520 | (when options | 2520 | (when options |
| 2521 | (widget-put tmp :options options)) | 2521 | ;; This used to use widget-put, but with strict plists that |
| 2522 | ;; fails when type is an even-length list, eg (repeat character). | ||
| 2523 | ;; Passing our result through widget-convert makes it a valid widget. | ||
| 2524 | (setcdr tmp (append (list :options options) (cdr tmp)))) | ||
| 2522 | tmp)) | 2525 | tmp)) |
| 2523 | 2526 | ||
| 2524 | (defun custom-variable-value-create (widget) | 2527 | (defun custom-variable-value-create (widget) |