tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-persist: Use `list-data-mode' for stored data 

* lisp/org-persist.el (org-persist-version): Bump version.
(org-persist-index-file): Use .eld extension by default.
(org-persist--index): Set mode in buffer-local variable line.
This commit is contained in:
Ihor Radchenko 2022-12-28 15:56:07 +03:00
parent a97b378ee5
commit 14bfe2841c
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-persist.el
View File

@ -161,7 +161,7 @@
(declare-function org-at-heading-p "org" (&optional invisible-not-ok))
(defconst org-persist--storage-version "2.7"
(defconst org-persist--storage-version "3.0"
"Persistent storage layout version.")
(defgroup org-persist nil
@ -219,7 +219,7 @@ function will be called with a single argument - collection."
(number :tag "Keep N days")
(function :tag "Function")))
(defconst org-persist-index-file "index"
(defconst org-persist-index-file "index.eld"
"File name used to store the data index.")
(defvar org-persist--disable-when-emacs-Q t
@ -337,6 +337,7 @@ FORMAT and ARGS are passed to `message'."
(unless (file-exists-p (file-name-directory file))
(make-directory (file-name-directory file) t))
(with-temp-file file
(insert ";; -*- mode: lisp-data; -*-\n")
(if pp
(pp data (current-buffer))
(prin1 data (current-buffer))))