mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 17:03:09 +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)
|
(defun org-agenda-remove-filter (type)
|
||||||
(interactive)
|
(interactive)
|
||||||
"Remove filter of type TYPE from the agenda buffer."
|
"Remove filter of type TYPE from the agenda buffer."
|
||||||
(goto-char (point-min))
|
(save-excursion
|
||||||
(let ((inhibit-read-only t) pos)
|
(goto-char (point-min))
|
||||||
(while (setq pos (text-property-any (point) (point-max) 'org-filter-type type))
|
(let ((inhibit-read-only t) pos)
|
||||||
(goto-char pos)
|
(while (setq pos (text-property-any (point) (point-max) 'org-filter-type type))
|
||||||
(remove-text-properties
|
(goto-char pos)
|
||||||
(point) (next-single-property-change (point) 'org-filter-type)
|
(remove-text-properties
|
||||||
`(invisible t org-filter-type ,type))))
|
(point) (next-single-property-change (point) 'org-filter-type)
|
||||||
(set (intern (format "org-agenda-%s-filter" (intern-soft type))) nil)
|
`(invisible t org-filter-type ,type))))
|
||||||
(setq org-agenda-filter-form nil)
|
(set (intern (format "org-agenda-%s-filter" (intern-soft type))) nil)
|
||||||
(org-agenda-set-mode-name)
|
(setq org-agenda-filter-form nil)
|
||||||
(org-agenda-finalize))
|
(org-agenda-set-mode-name)
|
||||||
|
(org-agenda-finalize)))
|
||||||
|
|
||||||
(defun org-agenda-filter-show-all-tag nil
|
(defun org-agenda-filter-show-all-tag nil
|
||||||
(org-agenda-remove-filter 'tag))
|
(org-agenda-remove-filter 'tag))
|
||||||
|
|
Loading…
Reference in a new issue