diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-02-17 23:22:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-02-17 23:22:51 +0000 |
| commit | 6ed35f956025c8d64e896c90194a733352768d4a (patch) | |
| tree | 843861e74708a3600df7e366aba0342468217d9b /lisp/desktop.el | |
| parent | 7fa44ae12f7d8c984441ca4b105e98f0ebe64ad5 (diff) | |
| download | emacs-6ed35f956025c8d64e896c90194a733352768d4a.tar.gz | |
(desktop-internal-v2s): Don't use format to eliminate text properties.
Diffstat (limited to 'lisp/desktop.el')
| -rw-r--r-- | lisp/desktop.el | 6 |
1 files 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) |