From 762d1774fb70313e20951343a7511051a3626cad Mon Sep 17 00:00:00 2001 From: Leo Vivier Date: Sat, 4 Jun 2022 10:28:07 +0200 Subject: [PATCH] lisp/org-persist.el (org-persist-gc): Fix pcase pattern * lisp/org-persist.el (org-persist-gc): Fix pcase pattern Otherwise, `(pred #'numberp)' expands to `(function numberp foo)' where foo is the first arg of pcase. --- lisp/org-persist.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-persist.el b/lisp/org-persist.el index ca6ee4f4d..068f58cec 100644 --- a/lisp/org-persist.el +++ b/lisp/org-persist.el @@ -929,7 +929,7 @@ Also, remove containers associated with non-existing files." ('t t) ('check-existence (file-exists-p file)) - ((pred #'numberp) + ((pred numberp) (<= org-persist-remote-files remote-files-num)) (_ nil))) (setq expired? t))) -- 2.35.1