* lisp/simple.el (set-variable): Use user-error for type mismatch.

diff --git a/lisp/simple.el b/lisp/simple.el
index 5ee32d5a787d5761155979c2f58daed2e2e1c7be..24ce6c3402ef71a4936f7d787f17edb99356ebf0 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7362,8 +7362,8 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
       (require 'cus-edit)
       (setq type (widget-convert type))
       (unless (widget-apply type :match value)
-       (error "Value `%S' does not match type %S of %S"
-              value (car type) variable))))
+       (user-error "Value `%S' does not match type %S of %S"
+                   value (car type) variable))))
 
   (if make-local
       (make-local-variable variable))