summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2014-05-23 13:43:11 +0200
committerBastien Guerry <bzg@altern.org>2014-05-23 13:43:11 +0200
commit1d57e1ac9ae5e7ddefe0b63a23728a241d3d99cb (patch)
treea22f4f6e764e48a9911b5ca002b85aa9a86788d3
parentfe0057556b991f29288b211a3f7fa40292d2cf60 (diff)
downloadorg-mode-1d57e1ac9ae5e7ddefe0b63a23728a241d3d99cb.tar.gz
org-agenda.el (org-agenda-remove-filter): Use `save-excursion'
* org-agenda.el (org-agenda-remove-filter): Use `save-excursion'.
-rw-r--r--lisp/org-agenda.el23
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 7ae9841..270b95e 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))