From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Tue, 29 Mar 2022 12:34:38 +0000 (+0200)
Subject: Fix eww bookmark writing
X-Git-Tag: emacs-29.0.90~1931^2~872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=271c03d89f3b1f67b44a46ee43447e25f5eef1a8;p=emacs.git

Fix eww bookmark writing

* lisp/net/eww.el (eww-write-bookmarks): Ensure that the complete
bookmarks are written (bug#54612).
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 700a6c3e82f..75dc679a3dd 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -2053,7 +2053,9 @@ If CHARSET is nil then use UTF-8."
 (defun eww-write-bookmarks ()
   (with-temp-file (expand-file-name "eww-bookmarks" eww-bookmarks-directory)
     (insert ";; Auto-generated file; don't edit -*- mode: lisp-data -*-\n")
-    (pp eww-bookmarks (current-buffer))))
+    (let ((print-length nil)
+          (print-level nil))
+      (pp eww-bookmarks (current-buffer)))))
 
 (defun eww-read-bookmarks (&optional error-out)
   "Read bookmarks from `eww-bookmarks'.