mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix compilation warning i eieio-base

Browse source 
* lisp/emacs-lisp/eieio-base.el (clone): Use eieio-object-class
instead of obsolete function class-of.
This commit is contained in:
Lars Ingebrigtsen 2019-06-16 16:48:34 +02:00
parent 6697cbf8f8
commit 98ba1c6b52
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -71,7 +71,7 @@ All slots are unbound, except those initialized with PARAMS."
(let ((nobj (if (stringp (car params)) (let ((nobj (if (stringp (car params))
(cl-call-next-method obj (pop params)) (cl-call-next-method obj (pop params))
(cl-call-next-method obj)))) (cl-call-next-method obj))))
(dolist (descriptor (eieio-class-slots (class-of nobj))) (dolist (descriptor (eieio-class-slots (eieio-object-class nobj)))
(let ((slot (eieio-slot-descriptor-name descriptor))) (let ((slot (eieio-slot-descriptor-name descriptor)))
(slot-makeunbound nobj slot))) (slot-makeunbound nobj slot)))
(when params (when params