lisp/org.el (org-make-tags-matcher): Suppress compiler warning

2024-05-06 12:57:45 +03:00 · 2024-05-06 12:57:45 +03:00 · 48169da265
parent c8bd2092b1
commit 48169da265
1 changed files with 6 additions and 1 deletions
--- a/lisp/org.el
+++ b/lisp/org.el
@ -11618,7 +11618,12 @@ See also `org-scan-tags'."
 		     (or tagsmatcher todomatcher t))))
      (when org--matcher-tags-todo-only
 	(setq matcher `(and (member todo org-not-done-keywords) ,matcher)))
-      (cons match0 (byte-compile `(lambda (todo tags-list level) ,matcher))))))
+      (cons match0
+            (byte-compile
+             `(lambda (todo tags-list level)
+                ;; Pacify byte-compiler.
+                (ignore todo) (ignore tags-list) (ignore level)
+                ,matcher))))))

 (defun org--tags-expand-group (group tag-groups expanded)
  "Recursively expand all tags in GROUP, according to TAG-GROUPS.