* lisp/cus-edit.el (setopt--set): Warn instead of rasing an error

(Bug#60162)
This commit is contained in:
Philip Kaludercic 2022-12-17 17:29:24 +01:00
parent d1e0542f33
commit 138d9dc4cb

View file

@ -1073,7 +1073,7 @@ plain variables. This means that `setopt' will execute any
;; Check that the type is correct.
(when-let ((type (get variable 'custom-type)))
(unless (widget-apply (widget-convert type) :match value)
(user-error "Value `%S' does not match type %s" value type)))
(warn "Value `%S' does not match type %s" value type)))
(put variable 'custom-check-value (list value))
(funcall (or (get variable 'custom-set) #'set-default) variable value))