From 95bf6435fc9b151b931173011a5a0f2a90bd4d0e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 17 Feb 1995 23:22:51 +0000 Subject: [PATCH] (desktop-internal-v2s): Don't use format to eliminate text properties. --- lisp/desktop.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.39.5