procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eieio-copy-parents-into-subclass): Fix inheritance of initargs

Browse source 
Fixes: debbugs:20270

* lisp/emacs-lisp/eieio-core.el (eieio-copy-parents-into-subclass):
Fix inheritance of initargs.
This commit is contained in:
Stefan Monnier 2015-04-08 17:23:50 -04:00
parent a480a51f24
commit 215e5bf0cf
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -673,10 +673,9 @@ the new child class."
(let ((pslots (eieio--class-slots pcv))
(pinit (eieio--class-initarg-tuples pcv)))
(dotimes (i (length pslots))
(eieio--add-new-slot newc (cl--copy-slot-descriptor (aref pslots i))
(car-safe (car pinit)) nil nil sn)
;; Increment each value.
(setq pinit (cdr pinit))
(let* ((sd (cl--copy-slot-descriptor (aref pslots i)))
(init (car (rassq (cl--slot-descriptor-name sd) pinit))))
(eieio--add-new-slot newc sd init nil nil sn))
)) ;; while/let
;; Now duplicate all the class alloc slots.
(let ((pcslots (eieio--class-class-slots pcv)))