mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-28 07:44:49 +00:00
Code

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

Browse Source
This commit is contained in:
Ihor Radchenko 2024-05-06 12:57:45 +03:00
parent c8bd2092b1
commit 48169da265
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -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.