From a53545fc4bac86baabb0316f2a3bd7cc992f5b52 Mon Sep 17 00:00:00 2001 From: "(tiny change) Pierre Lorenzon" Date: Tue, 5 May 2015 14:43:48 -0400 Subject: [PATCH] (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 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el index 26fc452f7b1..f3ec1b6c981 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 -- 2.11.4.GIT