masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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