branch: externals/org
commit 8821ff5811e3d8f95c3b7f01920d254bce611eb9
Author: Ihor Radchenko <yanta...@gmail.com>
Commit: Ihor Radchenko <yanta...@gmail.com>
org-persist-read: Do not try to read non-existing containers
---
lisp/org-persist.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 6fbf67fe67..c4c185dc1c 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -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)
