mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-02-17 23:22:51 +00:00
parent fb11ccf66d
commit 95bf6435fc
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/desktop.el
View file

@ -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)