diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-03-19 10:35:52 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-03-19 10:35:52 -0400 |
| commit | 29f7f98b7c3755f8f9e9dcef60bd460794cf2104 (patch) | |
| tree | 865b12e6362218e3f4f35e926231ae02f9f1b8e5 /lisp/emacs-lisp | |
| parent | 50c117fe86d94719807cbe08353c032779b3b910 (diff) | |
| download | emacs-29f7f98b7c3755f8f9e9dcef60bd460794cf2104.tar.gz emacs-29f7f98b7c3755f8f9e9dcef60bd460794cf2104.tar.bz2 emacs-29f7f98b7c3755f8f9e9dcef60bd460794cf2104.zip | |
Fixes: debbugs:20141
* lisp/emacs-lisp/eieio.el (object-slots): Return slot names as before.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 4ba67693175..8d76df874e5 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -453,10 +453,11 @@ The CLOS function `class-direct-subclasses' is aliased to this function." (mapcar #'identity (eieio--class-slots class))) (defun object-slots (obj) - "Return list of slots available in OBJ." + "Return list of slot names available in OBJ." (declare (obsolete eieio-class-slots "25.1")) (cl-check-type obj eieio-object) - (eieio-class-slots (eieio--object-class obj))) + (mapcar #'cl--slot-descriptor-name + (eieio-class-slots (eieio--object-class obj)))) (defun eieio--class-slot-initarg (class slot) "Fetch from CLASS, SLOT's :initarg." |