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

org-persist-read: Do not try to read non-existing containers

This commit is contained in:
Ihor Radchenko 2022-01-12 20:34:57 +08:00
parent 1084566322
commit 8821ff5811
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-persist.el
View File

@ -649,8 +649,12 @@ A buffer is treated as (:buffer ASSOCIATED).
A string is treated as (:file ASSOCIATED)."
(setq associated (org-persist--normalize-associated associated))
(setq container (org-persist--normalize-container container))
(let* ((collection (org-persist--get-collection container associated))
(persist-file (org-file-name-concat org-persist-directory (plist-get collection :persist-file)))
(let* ((collection (org-persist--find-index `(:container ,container :associated ,associated)))
(persist-file
(when collection
(org-file-name-concat
org-persist-directory
(plist-get collection :persist-file))))
(data nil))
(when (and collection
(file-exists-p persist-file)