From 1d57e1ac9ae5e7ddefe0b63a23728a241d3d99cb Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 23 May 2014 13:43:11 +0200 Subject: [PATCH] org-agenda.el (org-agenda-remove-filter): Use `save-excursion' * org-agenda.el (org-agenda-remove-filter): Use `save-excursion'. --- lisp/org-agenda.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7ae9841a0..270b95e2a 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7655,17 +7655,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)) -- 2.11.4.GIT