# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767303745 0
# Node ID cb7cc8672ea99d958a510dc93357f4e56d1e2654
# Parent  cf0b24d47cdd603f8a64b8cd5a51c989b4f32b55
(desktop-internal-v2s): Make structure match docstring.

diff -r cf0b24d47cdd -r cb7cc8672ea9 lisp/desktop.el
--- a/lisp/desktop.el	Mon Apr 25 18:26:20 1994 +0000
+++ b/lisp/desktop.el	Mon Apr 25 19:55:45 1994 +0000
@@ -191,7 +191,7 @@
 ;; ----------------------------------------------------------------------------
 (defun desktop-internal-v2s (val)
   "Convert VALUE to a pair (quote . txt) where txt is a string that when read
-and evaluated yields value.  quote may be 'may (value may be quoted), 
+and evaluated yields value.  quote may be 'may (value may be quoted),
 'must (values must be quoted), or nil (value may not be quoted)."
   (cond
    ((or (numberp val) (stringp val) (null val) (eq t val))
@@ -222,13 +222,13 @@
 	  (cdr-q.txt (desktop-internal-v2s (cdr val))))
       (cond
        ((or (null (car car-q.txt)) (null (car cdr-q.txt)))
-	(cons nil (concat "(cons " 
-			  (if (eq (car car-q.txt) 'must) "'")			      
+	(cons nil (concat "(cons "
+			  (if (eq (car car-q.txt) 'must) "'")
 			  (cdr car-q.txt) " "
-			  (if (eq (car cdr-q.txt) 'must) "'")			      
+			  (if (eq (car cdr-q.txt) 'must) "'")
 			  (cdr cdr-q.txt) ")")))
        ((consp (cdr val))
-	(cons 'must (concat "(" (cdr car-q.txt) 
+	(cons 'must (concat "(" (cdr car-q.txt)
 			    " " (substring (cdr cdr-q.txt) 1 -1) ")")))
        ((null (cdr val))
 	(cons 'must (concat "(" (cdr car-q.txt) ")")))
@@ -246,7 +246,7 @@
 			" (list 'lambda '() (list 'set-marker mk "
 			pos " (get-buffer " buf ")))) mk)"))))
    (t					; save as text
-    (prin1-to-string (prin1-to-string val)))))
+    (cons nil (prin1-to-string (prin1-to-string val))))))
 
 (defun desktop-value-to-string (val)
   "Convert VALUE to a string that when read evaluates to the same value.  Not