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>
