Merge branch 'bugfix'

This commit is contained in:
Ihor Radchenko 2023-01-20 11:46:55 +03:00
commit e553e19ca9
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B

View file

@ -434,7 +434,8 @@ FORMAT and ARGS are passed to `message'."
(with-temp-file file (with-temp-file file
(insert ";; -*- mode: lisp-data; -*-\n") (insert ";; -*- mode: lisp-data; -*-\n")
(if pp (if pp
(pp data (current-buffer)) (let ((pp-use-max-width nil)) ; Emacs bug#58687
(pp data (current-buffer)))
(prin1 data (current-buffer)))) (prin1 data (current-buffer))))
(org-persist--display-time (org-persist--display-time
(- (float-time) start-time) (- (float-time) start-time)