diff options
author | (tiny change) Pierre Lorenzon <devel@pollock-nageoire.net> | 2015-05-05 14:43:48 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-05-05 14:43:48 -0400 |
commit | a53545fc4bac86baabb0316f2a3bd7cc992f5b52 (patch) | |
tree | e255d65dc0272bee9af6ebeb25019219c573e873 /lisp/emacs-lisp/eieio-custom.el | |
parent | 755045e1eb27703a117e74bd5047928795f4a4e9 (diff) | |
download | emacs-a53545fc4bac86baabb0316f2a3bd7cc992f5b52.tar.gz |
(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.
Diffstat (limited to 'lisp/emacs-lisp/eieio-custom.el')
-rw-r--r-- | 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 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 |