diff lisp/desktop.el @ 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 eecf5ae5a194
children b25efd6c4f30
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)