Sorry for not getting back to you sooner. This change has seemed to work, but I haven't been playing with my Org Babel config much lately. I'll let you know if I see it again.
Thanks for your help. -- mich...@mauger.com // FSF and SFConservancy member // GNU Emacs sql.el maintainer On Monday, July 8th, 2024 at 1:39 PM, Ihor Radchenko <yanta...@posteo.net> wrote: > Michael Mauger michael.mau...@protonmail.com writes: > > > > > (Note: the "..." in the last entry; sometimes it showed up as "\...".) > > > > > > This is curious. May it be that you have non-default value of > > > `pp-default-function'? > > > > I don't touch `pp-default-function' and I've confirmed that it is set to` > > pp-fill' in my instance. > > > Then, what if you re-define `org-persist-write:index' to > > (defun org-persist-write:index (container _) > "Write index CONTAINER." > (org-persist--get-collection container) > (unless (file-exists-p org-persist-directory) > (condition-case nil > (make-directory org-persist-directory 'parent) > (t > (warn "Failed to create org-persist storage in %s." > org-persist-directory) > (org-persist--check-write-access org-persist-directory)))) > (when (file-exists-p org-persist-directory) > (let ((index-file > (org-file-name-concat org-persist-directory org-persist-index-file))) > (org-persist--merge-index-with-disk) > ;; CHANGED: disable pretty-printing > (org-persist--write-elisp-file index-file org-persist--index t nil) > (setq org-persist--index-age > (file-attribute-modification-time (file-attributes index-file))) > index-file))) > > -- > Ihor Radchenko // yantar92, > Org mode contributor, > Learn more about Org mode at https://orgmode.org/. > > Support Org development at https://liberapay.com/org-mode, > > or support my work at https://liberapay.com/yantar92
