# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782084870 0
# Node ID d53ed4fd05ca6d50d652d78547db7039337f6bc6
# Parent  5187a4159d1617c1a8147c343065ffb38719279e
(desktop-internal-v2s): Remove all text properties from strings.

diff -r 5187a4159d16 -r d53ed4fd05ca lisp/desktop.el
--- 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)