Handle object string name in eieio-persistent-convert-list-object

* lisp/emacs-lisp/eieio-base.el (eieio-persistent-convert-list-to-object):
  Starting to phase out the printing of object names in
  `object-write', handle either case.
This commit is contained in:
Eric Abrahamsen 2017-10-22 07:59:29 -07:00
parent cda4c74e60
commit 2fddfb7ce7

View file

@ -256,8 +256,11 @@ malicious code.
Note: This function recurses when a slot of :type of some object is
identified, and needing more object creation."
(let* ((objclass (nth 0 inputlist))
;; (objname (nth 1 inputlist))
(slots (nthcdr 2 inputlist))
;; Earlier versions of `object-write' added a string name for
;; the object, now obsolete.
(slots (nthcdr
(if (stringp (nth 1 inputlist) 2 1)
inputlist)))
(createslots nil)
(class
(progn