(desktop-internal-v2s): Don't use format to eliminate text properties.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 0ea2704e5f57f62d1a2d45e0ef89241630db2cde..a214a36ead892b37afbb30ff42564ac4e1d72e8c 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -221,8 +221,10 @@ QUOTE may be `may' (value may be quoted),
    ((or (numberp val) (null val) (eq t val))
     (cons 'may (prin1-to-string val)))
    ((stringp val)
-    ;; Get rid of text properties because we cannot read them
-    (cons 'may (prin1-to-string (format "%s" val))))
+    (let ((copy (copy-sequence val)))
+      (set-text-properties 0 (length copy) nil copy)
+      ;; Get rid of text properties because we cannot read them
+      (cons 'may (prin1-to-string copy))))
    ((symbolp val)
     (cons 'must (prin1-to-string val)))
    ((vectorp val)