]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/cus-edit.el (setopt--set): Warn instead of rasing an error
authorPhilip Kaludercic <philipk@posteo.net>
Sat, 17 Dec 2022 16:29:24 +0000 (17:29 +0100)
committerPhilip Kaludercic <philipk@posteo.net>
Sun, 18 Dec 2022 11:45:22 +0000 (12:45 +0100)
(Bug#60162)

lisp/cus-edit.el

index 0e09e99da95c9caf81f5bbead13d8a275f3a5b6f..ab2f74dbb88086c559026e28b9c82ad520a23bfc 100644 (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))