Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8e554df0
Commit
8e554df0
authored
Apr 27, 2014
by
Juri Linkov
Browse files
* lisp/desktop.el (desktop-value-to-string): Let-bind `print-length' and `print-level' to nil.
Fixes: debbugs:17351
parent
5d469725
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
3 deletions
+9
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/desktop.el
lisp/desktop.el
+4
-3
No files found.
lisp/ChangeLog
View file @
8e554df0
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
...
...
lisp/desktop.el
View file @
8e554df0
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment