|
@@ -6182,6 +6182,7 @@ When this is the global TODO list, a prefix argument will be interpreted."
|
|
|
(recenter window-line)))
|
|
|
|
|
|
(defvar org-global-tags-completion-table nil)
|
|
|
+(defvar org-agenda-filtered-by-category nil)
|
|
|
(defvar org-agenda-filter-form nil)
|
|
|
|
|
|
(defun org-agenda-filter-by-category (strip)
|
|
@@ -6361,7 +6362,6 @@ If the line does not have an effort defined, return nil."
|
|
|
(funcall op (or eff (if org-sort-agenda-noeffort-is-high 32767 0))
|
|
|
value))))
|
|
|
|
|
|
-(defvar org-agenda-filtered-by-category nil)
|
|
|
(defun org-agenda-filter-apply (filter type)
|
|
|
"Set FILTER as the new agenda filter and apply it."
|
|
|
(let (tags cat)
|