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:
parent
e156e54251
commit
cde5c5d78f
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue