Prechádzať zdrojové kódy

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 rokov pred
rodič
commit
cde5c5d78f
1 zmenil súbory, kde vykonal 1 pridanie a 1 odobranie
  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)))