Commit fbe58183 authored by Karl Heuer's avatar Karl Heuer

(desktop-internal-v2s): Make structure match docstring.

parent 6a608e8e
......@@ -246,7 +246,7 @@ and evaluated yields value. quote may be 'may (value may be quoted),
" (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
......
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