Commit 22441b69 authored by Ivan Shmakov's avatar Ivan Shmakov

Ignore print-length and print-level while formatting url-cookie data.

* lisp/url/url-cookie.el (url-cookie-write-file): Let-bind print-length
and print-level to nil to avoid writing a garbled list.

Fixes: debbugs:16805
parent ca80ebc7
2015-01-17 Ivan Shmakov <ivan@siamics.net>
* url/url-cookie.el (url-cookie-write-file): Let-bind print-length
and print-level to nil to avoid writing a garbled list. (Bug#16805)
2015-01-17 Stefan Monnier <monnier@iro.umontreal.ca> 2015-01-17 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from * emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from
......
...@@ -104,9 +104,10 @@ telling Microsoft that." ...@@ -104,9 +104,10 @@ telling Microsoft that."
(insert ";; Emacs-W3 HTTP cookies file\n" (insert ";; Emacs-W3 HTTP cookies file\n"
";; Automatically generated file!!! DO NOT EDIT!!!\n\n" ";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
"(setq url-cookie-storage\n '") "(setq url-cookie-storage\n '")
(pp url-cookie-storage (current-buffer)) (let ((print-length nil) (print-level nil))
(insert ")\n(setq url-cookie-secure-storage\n '") (pp url-cookie-storage (current-buffer))
(pp url-cookie-secure-storage (current-buffer)) (insert ")\n(setq url-cookie-secure-storage\n '")
(pp url-cookie-secure-storage (current-buffer)))
(insert ")\n") (insert ")\n")
(insert " \n;; Local Variables:\n" (insert " \n;; Local Variables:\n"
";; version-control: never\n" ";; version-control: never\n"
......
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