diff options
author | Ivan Shmakov <ivan@siamics.net> | 2015-01-17 18:42:31 +0000 |
---|---|---|
committer | Ivan Shmakov <ivan@siamics.net> | 2015-01-17 19:32:26 +0000 |
commit | 22441b69cb6b81b7bf8914556563087ec6d5def3 (patch) | |
tree | 871823e91226587ecf30175628cd880a767e06c0 /lisp/url/url-cookie.el | |
parent | ca80ebc736346e196badd95ac524150b5c318683 (diff) | |
download | emacs-22441b69cb6b81b7bf8914556563087ec6d5def3.tar.gz |
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
Diffstat (limited to 'lisp/url/url-cookie.el')
-rw-r--r-- | lisp/url/url-cookie.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index ccb2606c528..a7b3d16d46d 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" |