Commit 8e554df0 authored by Juri Linkov's avatar Juri Linkov

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

Fixes: debbugs:17351
parent 5d469725
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> 2014-04-25 Nicolas Richard <theonewiththeevillook@yahoo.fr>
* battery.el (battery-update): Handle the case where battery * battery.el (battery-update): Handle the case where battery
......
...@@ -844,12 +844,13 @@ QUOTE may be `may' (value may be quoted), ...@@ -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. "Convert VALUE to a string that when read evaluates to the same value.
Not all types of values are supported." Not all types of values are supported."
(let* ((print-escape-newlines t) (let* ((print-escape-newlines t)
(print-length nil)
(print-level nil)
(float-output-format nil) (float-output-format nil)
(quote.sexp (desktop--v2s value)) (quote.sexp (desktop--v2s value))
(quote (car quote.sexp)) (quote (car quote.sexp))
(txt (print-quoted t)
(let ((print-quoted t)) (txt (prin1-to-string (cdr quote.sexp))))
(prin1-to-string (cdr quote.sexp)))))
(if (eq quote 'must) (if (eq quote 'must)
(concat "'" txt) (concat "'" txt)
txt))) txt)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment