From ecdb44204439917f68ee0a192d82ac0789bdcf1d Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Fri, 20 Jan 2023 11:44:57 +0300 Subject: [PATCH] org-persist: Work around Emacs bug#58687 * lisp/org-persist.el (org-persist--write-elisp-file): Bind `pp-use-max-width' to nil when using `pp'. Otherwise, printing quickly becomes slow. Reported-by: Michael Eliachevitch Link: https://orgmode.org/list/87wn8tb3zp.fsf@posteo.de Link: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58687 --- lisp/org-persist.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-persist.el b/lisp/org-persist.el index 336496efb..a96f0fdc9 100644 --- a/lisp/org-persist.el +++ b/lisp/org-persist.el @@ -335,7 +335,8 @@ FORMAT and ARGS are passed to `message'." (make-directory (file-name-directory file) t)) (with-temp-file file (if pp - (pp data (current-buffer)) + (let ((pp-use-max-width nil)) ; Emacs bug#58687 + (pp data (current-buffer))) (prin1 data (current-buffer)))) (org-persist--display-time (- (float-time) start-time)