From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Feb 1995 23:22:51 +0000 (+0000)
Subject: (desktop-internal-v2s): Don't use format to eliminate text properties.
X-Git-Tag: emacs-19.34~5081
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95bf6435fc9b151b931173011a5a0f2a90bd4d0e;p=emacs.git

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

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 0ea2704e5f5..a214a36ead8 100644
--- 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)