diff options
| author | Glenn Morris | 2015-07-06 15:30:51 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-07-06 15:30:51 -0400 |
| commit | 6d1df4ee879411f7ec1b10cbfd5a35267c3a1d78 (patch) | |
| tree | e8208f35a4e6d0eff43737f497732686d6e79b26 | |
| parent | b81507813a404a9984fd3e8db4dcc1d814d1667b (diff) | |
| download | emacs-6d1df4ee879411f7ec1b10cbfd5a35267c3a1d78.tar.gz emacs-6d1df4ee879411f7ec1b10cbfd5a35267c3a1d78.zip | |
* lisp/simple.el (set-variable): Use user-error for type mismatch.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 5ee32d5a787..24ce6c3402e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -7362,8 +7362,8 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally." | |||
| 7362 | (require 'cus-edit) | 7362 | (require 'cus-edit) |
| 7363 | (setq type (widget-convert type)) | 7363 | (setq type (widget-convert type)) |
| 7364 | (unless (widget-apply type :match value) | 7364 | (unless (widget-apply type :match value) |
| 7365 | (error "Value `%S' does not match type %S of %S" | 7365 | (user-error "Value `%S' does not match type %S of %S" |
| 7366 | value (car type) variable)))) | 7366 | value (car type) variable)))) |
| 7367 | 7367 | ||
| 7368 | (if make-local | 7368 | (if make-local |
| 7369 | (make-local-variable variable)) | 7369 | (make-local-variable variable)) |