浏览代码

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.
Leo Vivier 2 年之前
父节点
当前提交
cde5c5d78f
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-persist.el

+ 1 - 1
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)))