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

org-persist: Fix attempted mapc-ing of macro

Browse source 
* lisp/org-persist.el (org-persist--gc-persist-file): Redefine
`org-persist--gc-persist-file' as a function so it can be mapc'd in
`org-persist-gc'.
This commit is contained in:
TEC 2022-12-11 01:05:32 +08:00
parent 47654f844d
commit c91226354a
Signed by: tec
SSH key fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/org-persist.el
View file

@ -922,12 +922,12 @@ Do nothing in an indirect buffer."
(when (file-exists-p file)
(delete-file file))))
(defmacro org-persist--gc-persist-file (persist-file)
(defun org-persist--gc-persist-file (persist-file)
"Garbage collect PERSIST-FILE."
`(when (file-exists-p ,persist-file)
(delete-file ,persist-file)
(when (org-directory-empty-p (file-name-directory ,persist-file))
(delete-directory (file-name-directory ,persist-file)))))
(when (file-exists-p persist-file)
(delete-file persist-file)
(when (org-directory-empty-p (file-name-directory persist-file))
(delete-directory (file-name-directory persist-file)))))
(defun org-persist-gc ()
"Remove expired or unregistered containers and orphaned files.