diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82cb1fa00b7d57e0507f1d4cdfcdeac390fcf369..9e3cedd50a1f2d8bfa1f3a4b5119a0a023897929 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-01-17 Ivan Shmakov + + * 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 * 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 ccb2606c52899b9fc257468584c3b90cb7ea9489..a7b3d16d46df7c5e9cda0b34d019afa54676df61 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"