Commit 95bf6435 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent fb11ccf6
......@@ -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)
(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 (format "%s" val))))
(cons 'may (prin1-to-string copy))))
((symbolp val)
(cons 'must (prin1-to-string val)))
((vectorp val)
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