Mercurial > emacs
changeset 9521:d53ed4fd05ca
(desktop-internal-v2s): Remove all text properties from strings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Oct 1994 21:47:50 +0000 |
| parents | 5187a4159d16 |
| children | f26cd3c14187 |
| files | lisp/desktop.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/desktop.el Thu Oct 13 18:21:25 1994 +0000 +++ b/lisp/desktop.el Thu Oct 13 21:47:50 1994 +0000 @@ -216,8 +216,11 @@ and evaluated yields value. quote may be 'may (value may be quoted), 'must (values must be quoted), or nil (value may not be quoted)." (cond - ((or (numberp val) (stringp val) (null val) (eq t val)) + ((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)))) ((symbolp val) (cons 'must (prin1-to-string val))) ((vectorp val) @@ -448,10 +451,10 @@ (defun desktop-buffer-rmail () "Load an RMAIL file." (if (eq 'rmail-mode mam) (condition-case error - (progn (rmail-input fn) t) - (file-locked - (kill-buffer (current-buffer)) - 'ignored)))) + (progn (rmail-input fn) t) + (file-locked + (kill-buffer (current-buffer)) + 'ignored)))) ;; ---------------------------------------------------------------------------- (defun desktop-buffer-mh () "Load a folder in the mh system." (if (eq 'mh-folder-mode mam)