mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

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

Browse Source 
* 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
This commit is contained in:
Ivan Shmakov 2015-01-17 18:42:31 +00:00
parent ca80ebc736
commit 22441b69cb
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

7
lisp/url/url-cookie.el
View File

@ -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"