Commit a215be99 authored by Eric Abrahamsen's avatar Eric Abrahamsen

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.
parent 255ba011
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment