From: Zhengyi Fu <i@fuzy.me>
Date: Thu, 23 Jan 2025 05:35:16 +0000 (+0800)
Subject: Restore the old behavior of `bookmark-write-file'
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~92
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=67903f5909db5c6140eeffebfaf818b4f93625d5;p=emacs.git

Restore the old behavior of `bookmark-write-file'

* lisp/bookmark.el (bookmark-write-file): Use 'pp-28' to avoid
filling the bookmarks.  (Bug#75775)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index b931a4ed2f5..cd59293e0a4 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1678,7 +1678,8 @@ for a file, defaulting to the file defined by variable
 	;; Rather than a single call to `pp' we make one per bookmark.
 	;; Apparently `pp' has a poor algorithmic complexity, so this
 	;; scales a lot better.  bug#4485.
-	(dolist (i bookmark-alist) (pp i (current-buffer)))
+	(let ((pp-default-function #'pp-28))
+	  (dolist (i bookmark-alist) (pp i (current-buffer))))
 	(insert ")\n")
 	;; Make sure the specified encoding can safely encode the
 	;; bookmarks.  If it cannot, suggest utf-8-emacs as default.