diff options
| author | Juri Linkov <juri@jurta.org> | 2014-04-27 11:22:11 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2014-04-27 11:22:11 +0300 |
| commit | 8e554df009bc64b4e5e75028f36c397ba78596b4 (patch) | |
| tree | 530ee9f2833d62d279319a2a1ce17f77c1a98e8a /lisp/desktop.el | |
| parent | 5d46972532b89f90bfde68953cc95889851ee005 (diff) | |
| download | emacs-8e554df009bc64b4e5e75028f36c397ba78596b4.tar.gz | |
* lisp/desktop.el (desktop-value-to-string): Let-bind `print-length' and `print-level' to nil.
Fixes: debbugs:17351
Diffstat (limited to 'lisp/desktop.el')
| -rw-r--r-- | lisp/desktop.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index 5e43c03ade7..ded73c065f0 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -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))) |