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

Further fix to eieio-persistent

Browse source 
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-validate/fix-slot-value):
  Make handling of hash tables and vectors recursive. This is
  necessary because the write process, in `eieio-override-prin1' is
  also recursive. With any luck, this will be the last fix of its
  kind. If that's true, cherry-pick to Emacs 26.2 later on.
This commit is contained in:
Eric Abrahamsen 2018-04-08 16:49:20 -07:00
parent 86d2169ac3
commit 2cae1cf6f8
1 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/emacs-lisp/eieio-base.el
View file

@ -360,32 +360,30 @@ Second, any text properties will be stripped from strings."
proposed-value))))
;; For hash-tables and vectors, the top-level `read' will not
;; "look inside" member values, so we need to do that
;; explicitly.
;; explicitly. Because `eieio-override-prin1' is recursive in
;; the case of hash-tables and vectors, we recurse
;; `eieio-persistent-validate/fix-slot-value' here as well.
((hash-table-p proposed-value)
(maphash
(lambda (key value)
(cond ((class-p (car-safe value))
(setf (gethash key proposed-value)
(eieio-persistent-convert-list-to-object
value)))
((and (consp value)
(eq (car value) 'quote))
(setf (gethash key proposed-value)
(cadr value)))))
(setf (gethash key proposed-value)
(if (class-p (car-safe value))
(eieio-persistent-convert-list-to-object
value)
(eieio-persistent-validate/fix-slot-value
class slot value))))
proposed-value)
proposed-value)
((vectorp proposed-value)
(dotimes (i (length proposed-value))
(let ((val (aref proposed-value i)))
(cond ((class-p (car-safe val))
(aset proposed-value i
(eieio-persistent-convert-list-to-object
(aref proposed-value i))))
((and (consp val)
(eq (car val) 'quote))
(aset proposed-value i
(cadr val))))))
(aset proposed-value i
(if (class-p (car-safe val))
(eieio-persistent-convert-list-to-object
val)
(eieio-persistent-validate/fix-slot-value
class slot val)))))
proposed-value)
((stringp proposed-value)