procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

Copyright-paperwork-exempt: yes
This commit is contained in:
Zhengyi Fu 2025-01-23 13:35:16 +08:00 • committed by Eli Zaretskii
parent 062da7003f
commit 67903f5909
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/bookmark.el
View file

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