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

2019-04-04 13:46:30 -04:00 · 2019-04-04 13:46:30 -04:00 · 81f64da220
commit 81f64da220
parent 18c02f7e07
1 changed files with 13 additions and 0 deletions
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@ -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