浏览代码

org-agenda: Fix typo

* lisp/org-agenda.el (org-search-view): Add missing :test keyword.
Nicolas Goaziou 7 年之前
父节点
当前提交
e0259f9374
共有 1 个文件被更改,包括 4 次插入4 次删除
  1. 4 4
      lisp/org-agenda.el

+ 4 - 4
lisp/org-agenda.el

@@ -4490,10 +4490,10 @@ is active."
       ;; non-existent ones.
       (setq files (cl-remove-duplicates
 		   (append files org-agenda-text-search-extra-files)
-		   (lambda (a b)
-		     (and (file-exists-p a)
-			  (file-exists-p b)
-			  (file-equal-p a b))))
+		   :test (lambda (a b)
+			   (and (file-exists-p a)
+				(file-exists-p b)
+				(file-equal-p a b))))
 	    rtnall nil)
       (while (setq file (pop files))
 	(setq ee nil)