diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 16:48:34 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-16 16:48:34 +0200 |
| commit | 98ba1c6b52898c5f72f2d6e5c845c8d9386f98f5 (patch) | |
| tree | 8b86191fd62cd310645bbddcab5e9a49eeee3b9d /lisp/emacs-lisp | |
| parent | 6697cbf8f85b197828ec8a63bcd1698e9a08bcac (diff) | |
| download | emacs-98ba1c6b52898c5f72f2d6e5c845c8d9386f98f5.tar.gz emacs-98ba1c6b52898c5f72f2d6e5c845c8d9386f98f5.tar.bz2 emacs-98ba1c6b52898c5f72f2d6e5c845c8d9386f98f5.zip | |
Fix compilation warning i eieio-base
* lisp/emacs-lisp/eieio-base.el (clone): Use eieio-object-class
instead of obsolete function class-of.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index 203541fdfc4..0b2909c1e8d 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el @@ -71,7 +71,7 @@ All slots are unbound, except those initialized with PARAMS." (let ((nobj (if (stringp (car params)) (cl-call-next-method obj (pop params)) (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))) (slot-makeunbound nobj slot))) (when params |