소스 검색

Merge branch 'maint'

Nicolas Goaziou 7 년 전
부모
커밋
b3ab012d69
1개의 변경된 파일4개의 추가작업 그리고 4개의 파일을 삭제
  1. 4 4
      lisp/org-agenda.el

+ 4 - 4
lisp/org-agenda.el

@@ -4503,10 +4503,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)