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

org-persist-gc: Fix edge case

Browse source 
* lisp/org-persist.el (org-persist-gc): Do not err when
`org-persist-directory' is absent.
This commit is contained in:
Ihor Radchenko 2022-12-17 12:45:46 +03:00
parent d52a775369
commit afe5f3f692
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-persist.el
View file

@ -999,7 +999,8 @@ Also, remove containers associated with non-existing files."
(remote-files-num 0) (remote-files-num 0)
(orphan-files (orphan-files
(delete (org-file-name-concat org-persist-directory org-persist-index-file) (delete (org-file-name-concat org-persist-directory org-persist-index-file)
(directory-files-recursively org-persist-directory ".+")))) (when (file-exists-p org-persist-directory)
(directory-files-recursively org-persist-directory ".+")))))
(dolist (collection org-persist--index) (dolist (collection org-persist--index)
(let* ((file (plist-get (plist-get collection :associated) :file)) (let* ((file (plist-get (plist-get collection :associated) :file))
(web-file (and file (string-match-p "\\`https?://" file))) (web-file (and file (string-match-p "\\`https?://" file)))