mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 15:07:48 +00:00
Merge branch 'maint'
This commit is contained in:
commit
0f0fa81dd0
|
@ -7661,17 +7661,18 @@ When NO-OPERATOR is non-nil, do not add the + operator to returned tags."
|
|||
(defun org-agenda-remove-filter (type)
|
||||
(interactive)
|
||||
"Remove filter of type TYPE from the agenda buffer."
|
||||
(goto-char (point-min))
|
||||
(let ((inhibit-read-only t) pos)
|
||||
(while (setq pos (text-property-any (point) (point-max) 'org-filter-type type))
|
||||
(goto-char pos)
|
||||
(remove-text-properties
|
||||
(point) (next-single-property-change (point) 'org-filter-type)
|
||||
`(invisible t org-filter-type ,type))))
|
||||
(set (intern (format "org-agenda-%s-filter" (intern-soft type))) nil)
|
||||
(setq org-agenda-filter-form nil)
|
||||
(org-agenda-set-mode-name)
|
||||
(org-agenda-finalize))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((inhibit-read-only t) pos)
|
||||
(while (setq pos (text-property-any (point) (point-max) 'org-filter-type type))
|
||||
(goto-char pos)
|
||||
(remove-text-properties
|
||||
(point) (next-single-property-change (point) 'org-filter-type)
|
||||
`(invisible t org-filter-type ,type))))
|
||||
(set (intern (format "org-agenda-%s-filter" (intern-soft type))) nil)
|
||||
(setq org-agenda-filter-form nil)
|
||||
(org-agenda-set-mode-name)
|
||||
(org-agenda-finalize)))
|
||||
|
||||
(defun org-agenda-filter-show-all-tag nil
|
||||
(org-agenda-remove-filter 'tag))
|
||||
|
|
Loading…
Reference in a new issue