* lisp/cus-edit.el (setopt--set): Warn instead of rasing an error
(Bug#60162)
This commit is contained in:
@@ -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))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user