mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(desktop-internal-v2s): Remove all text properties from strings.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-10-13 21:47:50 +00:00
parent f8a0e364da
commit e2247420b1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/desktop.el
View File

@ -216,8 +216,11 @@ the like shorter.")
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 @@ autoloaded files."
(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)