From 67903f5909db5c6140eeffebfaf818b4f93625d5 Mon Sep 17 00:00:00 2001 From: Zhengyi Fu Date: Thu, 23 Jan 2025 13:35:16 +0800 Subject: [PATCH] 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 --- lisp/bookmark.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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.