ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-persist.el
View File

@ -929,7 +929,7 @@ Also, remove containers associated with non-existing files."
('t t) ('t t)
('check-existence ('check-existence
(file-exists-p file)) (file-exists-p file))
((pred #'numberp) ((pred numberp)
(<= org-persist-remote-files remote-files-num)) (<= org-persist-remote-files remote-files-num))
(_ nil))) (_ nil)))
(setq expired? t))) (setq expired? t)))