[Emacs-diffs] master 22441b6 1/6: Ignore print-length and print-level while formatting url-cookie data.

[Ivan Shmakov]

branch: master
commit 22441b69cb6b81b7bf8914556563087ec6d5def3
Author: Ivan Shmakov <address@hidden>
Commit: Ivan Shmakov <address@hidden>

    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
---
 lisp/ChangeLog         |    5 +++++
 lisp/url/url-cookie.el |    7 ++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82cb1fa..9e3cedd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-17  Ivan Shmakov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from
diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index ccb2606..a7b3d16 100644
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -104,9 +104,10 @@ telling Microsoft that."
       (insert ";; Emacs-W3 HTTP cookies file\n"
              ";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
              "(setq url-cookie-storage\n '")
-      (pp url-cookie-storage (current-buffer))
-      (insert ")\n(setq url-cookie-secure-storage\n '")
-      (pp url-cookie-secure-storage (current-buffer))
+      (let ((print-length nil) (print-level nil))
+       (pp url-cookie-storage (current-buffer))
+       (insert ")\n(setq url-cookie-secure-storage\n '")
+       (pp url-cookie-secure-storage (current-buffer)))
       (insert ")\n")
       (insert "\n;; Local Variables:\n"
               ";; version-control: never\n"