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.
This commit is contained in:
Leo Vivier 2022-06-04 10:28:07 +02:00 committed by Ihor Radchenko
parent e156e54251
commit cde5c5d78f
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 1 additions and 1 deletions

View File

@ -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)))