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

org-persist.el/org-persist--get-index: Do not show warning 

* lisp/org-persist.el (org-persist--read-index): Disable warning when
`org-persist-index-file' does not exist.  The warning would spam the
users with disabled cache persistance unnecessarily.

Link: https://list.orgmode.org/87o87kb64s.fsf@yandex.com/T/#u
This commit is contained in:
Ihor Radchenko 2021-10-20 14:14:46 +08:00
parent ccb0271e1a
commit 350fa065b4
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-persist.el
View File

@ -104,12 +104,10 @@ When BUFFER is nil, return plist for global VAR."
(defun org-persist--read-index ()
"Read `org-persist--index'"
(unless org-persist--index
(if (file-exists-p (org-file-name-concat org-persist-directory org-persist-index-file))
(with-temp-buffer
(insert-file-contents (org-file-name-concat org-persist-directory org-persist-index-file))
(setq org-persist--index (read (current-buffer))))
(warn "Cannot read org-persist index from %s."
(org-file-name-concat org-persist-directory org-persist-index-file)))))
(when (file-exists-p (org-file-name-concat org-persist-directory org-persist-index-file))
(with-temp-buffer
(insert-file-contents (org-file-name-concat org-persist-directory org-persist-index-file))
(setq org-persist--index (read (current-buffer)))))))
(cl-defun org-persist-register (var &optional buffer &key inherit)
"Register VAR in BUFFER to be persistent.