diff options
| author | Przemysław Wojnowski | 2015-04-28 18:13:18 +0200 |
|---|---|---|
| committer | Stefan Monnier | 2015-05-01 13:10:26 -0400 |
| commit | 7e7fd3010b73b45369328924fe5d9734f20161de (patch) | |
| tree | 0aafe8f6574683f1d9ff8101f26178291d0d55e3 | |
| parent | b0481de73be9fb7c4839340de2b494f19041130a (diff) | |
| download | emacs-7e7fd3010b73b45369328924fe5d9734f20161de.tar.gz emacs-7e7fd3010b73b45369328924fe5d9734f20161de.zip | |
; Add class name to error message
* lisp/emacs-lisp/eieio-core.el (eieio-oref): Add class name to error
message to ease finding offending code.
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index 92d7234bc73..bf3f44206c4 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el | |||
| @@ -730,7 +730,7 @@ Argument FN is the function calling this verifier." | |||
| 730 | (cl-check-type slot symbol) | 730 | (cl-check-type slot symbol) |
| 731 | (cl-check-type obj (or eieio-object class)) | 731 | (cl-check-type obj (or eieio-object class)) |
| 732 | (let* ((class (cond ((symbolp obj) | 732 | (let* ((class (cond ((symbolp obj) |
| 733 | (error "eieio-oref called on a class!") | 733 | (error "eieio-oref called on a class: %s" obj) |
| 734 | (let ((c (eieio--class-v obj))) | 734 | (let ((c (eieio--class-v obj))) |
| 735 | (if (eieio--class-p c) (eieio-class-un-autoload obj)) | 735 | (if (eieio--class-p c) (eieio-class-un-autoload obj)) |
| 736 | c)) | 736 | c)) |