DL
Size: a a a
PG
DL
А
foo(bar nil)
apply(foo bar nil)
foo(bar)
apply(foo bar nil)
А
А
А
А
А
(defun my/org-todo-list-exclude-tags-advice (orig-fn &rest args)
"Exclude selected tags from `org-todo-list'.
Intended as :around advice for `org-todo-list'."
(let ((org-agenda-tag-filter-preset '("-@routine")))
(funcall orig-fn args)))
(advice-add #'org-todo-list :around #'my/org-todo-list-exclude-tags-advice)
А
PG
PG
'(())
или (list ())
вторым аргументомА
PG
PG
А
А
А
'(())
или (list ())
вторым аргументомPG