From c91226354a6b64ef6e4b5d8c93e7af6ec3bc9dbf Mon Sep 17 00:00:00 2001 From: TEC Date: Sun, 11 Dec 2022 01:05:32 +0800 Subject: [PATCH] org-persist: Fix attempted mapc-ing of macro * 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'. --- lisp/org-persist.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org-persist.el b/lisp/org-persist.el index fcff07bc9..01ed8c3f8 100644 --- a/lisp/org-persist.el +++ b/lisp/org-persist.el @@ -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.