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:
parent
cda4c74e60
commit
2fddfb7ce7
1 changed files with 5 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue