diff options
author | Philip Kaludercic <philipk@posteo.net> | 2022-12-17 17:29:24 +0100 |
---|---|---|
committer | Philip Kaludercic <philipk@posteo.net> | 2022-12-18 12:45:22 +0100 |
commit | 138d9dc4cb07ce53486231eec5db0ca56bd66429 (patch) | |
tree | 3fd8be7c10b69c161470a45058194d853b5053d4 | |
parent | d1e0542f33610b965a10b988717bf5fd8ac64165 (diff) | |
download | emacs-138d9dc4cb07ce53486231eec5db0ca56bd66429.tar.gz |
* lisp/cus-edit.el (setopt--set): Warn instead of rasing an error
(Bug#60162)
-rw-r--r-- | lisp/cus-edit.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 0e09e99da95..ab2f74dbb88 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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)) |