Commit 81f64da2 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/desktop.el (desktop--v2s): Add case for defstructs (bug#35131)

parent 18c02f7e
Pipeline #1157 failed with stage
in 52 minutes
......@@ -856,6 +856,19 @@ QUOTE may be `may' (value may be quoted),
`',(cdr el) (cdr el)))
pass1)))
(cons 'may `[,@(mapcar #'cdr pass1)]))))
((and (recordp value) (symbolp (aref value 0)))
(let* ((pass1 (let ((res ()))
(dotimes (i (length value))
(push (desktop--v2s (aref value i)) res))
(nreverse res)))
(special (assq nil pass1)))
(if special
(cons nil `(record
,@(mapcar (lambda (el)
(if (eq (car el) 'must)
`',(cdr el) (cdr el)))
pass1)))
(cons 'may (apply #'record (mapcar #'cdr pass1))))))
((consp value)
(let ((p value)
newlist
......
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