mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 08:10:21 -08:00
Code Issues Projects Releases Wiki Activity

(eieio-object-value-create): Adjust to new slots representation

Browse source 
Fixes: debbugs:20467

* eieio-custom.el (eieio-object-value-create):
Fix missed adjustment to new representation of slots metadata.
This commit is contained in:
(tiny change) Pierre Lorenzon 2015-05-05 14:43:48 -04:00 • committed by Stefan Monnier
parent 755045e1eb
commit a53545fc4b
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/eieio-custom.el
View file

@ -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