[Emacs-diffs] master a53545f: (eieio-object-value-create): Adjust to new slots representation

[Stefan Monnier]

branch: master
commit a53545fc4bac86baabb0316f2a3bd7cc992f5b52
Author: (tiny change) Pierre Lorenzon <address@hidden>
Commit: Stefan Monnier <address@hidden>

    (eieio-object-value-create): Adjust to new slots representation
    
    Fixes: debbugs:20467
    
    * eieio-custom.el (eieio-object-value-create):
    Fix missed adjustment to new representation of slots metadata.
---
 lisp/emacs-lisp/eieio-custom.el |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index 26fc452..f3ec1b6 100644
--- a/lisp/emacs-lisp/eieio-custom.el
+++ b/lisp/emacs-lisp/eieio-custom.el
@@ -223,6 +223,7 @@ Optional argument IGNORE is an extraneous parameter."
     ;; Loop over all the slots, creating child widgets.
     (dotimes (i (length slots))
       (let* ((slot (aref slots i))
+             (sname (eieio-slot-descriptor-name slot))
              (props (cl--slot-descriptor-props slot)))
         ;; Output this slot if it has a customize flag associated with it.
         (when (and (alist-get :custom props)
@@ -261,13 +262,13 @@ Optional argument IGNORE is an extraneous parameter."
                                              (or
                                               (eieio--class-slot-initarg
                                                (eieio--object-class obj)
-                                               (car slots))
-                                              (car slots)))))
+                                              sname)
+                                             sname))))
                                      (capitalize
                                       (if (string-match "^:" s)
                                           (substring s (match-end 0))
                                         s)))))
-                              :value (slot-value obj (car slots))
+                              :value (slot-value obj sname)
                               :doc  (or (alist-get :documentation props)
                                         "Slot not Documented.")
                               :eieio-custom-visibility 'visible