mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of git+ssh://git.sv.gnu.org/srv/git/emacs

Browse source
This commit is contained in:
Artur Malabarba 2015-03-31 00:56:56 +01:00
commit ce88920edb
2 changed files with 30 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/eieio-base.el
View file

@ -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