diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-31 00:56:56 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-31 00:56:56 +0100 |
| commit | ce88920edb410ed90733763843014470f1d40e28 (patch) | |
| tree | 0c50b57825efa1cfa8a19c35d53e02b5a0f0a2cd /lisp/emacs-lisp | |
| parent | a7270fb20feaedc5dc6c4e0936714bdb167062f7 (diff) | |
| parent | ef37e79aae7a64f3c30f7ff4350c8f3a3c6c7b20 (diff) | |
| download | emacs-ce88920edb410ed90733763843014470f1d40e28.tar.gz emacs-ce88920edb410ed90733763843014470f1d40e28.tar.bz2 emacs-ce88920edb410ed90733763843014470f1d40e28.zip | |
Merge branch 'master' of git+ssh://git.sv.gnu.org/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index 5b3d9029c53..c2eab202881 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el @@ -498,6 +498,15 @@ All slots are unbound, except those initialized with PARAMS." (concat nm "-1"))))) nobj)) +(cl-defmethod make-instance ((class (subclass eieio-named)) &rest args) + (if (not (stringp (car args))) + (cl-call-next-method) + (funcall (if eieio-backward-compatibility #'ignore #'message) + "Obsolete: name passed without :object-name to %S constructor" + class) + (apply #'cl-call-next-method class :object-name args))) + + (provide 'eieio-base) ;;; eieio-base.el ends here |