Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/desktop.el (desktop-value-to-string): Let-bind print-length' and print-level' to nil.

Browse source 
Fixes: debbugs:17351
This commit is contained in:
Juri Linkov 2014-04-27 11:22:11 +03:00
parent 5d46972532
commit 8e554df009
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-04-27 Juri Linkov <juri@jurta.org>
* desktop.el (desktop-value-to-string): Let-bind `print-length'
and `print-level' to nil. (Bug#17351)
2014-04-25 Nicolas Richard <theonewiththeevillook@yahoo.fr>
* battery.el (battery-update): Handle the case where battery

7
lisp/desktop.el
View file

@ -844,12 +844,13 @@ QUOTE may be `may' (value may be quoted),
"Convert VALUE to a string that when read evaluates to the same value.
Not all types of values are supported."
(let* ((print-escape-newlines t)
(print-length nil)
(print-level nil)
(float-output-format nil)
(quote.sexp (desktop--v2s value))
(quote (car quote.sexp))
(txt
(let ((print-quoted t))
(prin1-to-string (cdr quote.sexp)))))
(print-quoted t)
(txt (prin1-to-string (cdr quote.sexp))))
(if (eq quote 'must)
(concat "'" txt)
txt)))