summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2014-06-16 11:44:25 +0200
committerBastien Guerry <bzg@altern.org>2014-06-16 11:44:25 +0200
commitd100d590e1c42676e71d1e2b1e448d8bf3dccc6f (patch)
tree56de12f3d302d3514c5e729b752644b9deb54463
parent1c9aa1e78e97078202480f328e0b370f31902123 (diff)
downloadorg-mode-d100d590e1c42676e71d1e2b1e448d8bf3dccc6f.tar.gz
org-agenda.el (org-agenda-filter-by-tag): Don't refresh the agenda
* org-agenda.el (org-agenda-filter-by-tag): Don't refresh the agenda.
-rw-r--r--lisp/org-agenda.el18
1 files changed, 6 insertions, 12 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index f11cd08..f24e1f6 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7454,7 +7454,7 @@ to switch to narrowing."
alist ""))
(inhibit-read-only t)
(current org-agenda-tag-filter)
- maybe-refresh a n tag)
+ a n tag)
(unless char
(message
"%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow"
@@ -7485,19 +7485,16 @@ to switch to narrowing."
(if modifier
(push modifier org-agenda-tag-filter))))
(if (not (null org-agenda-tag-filter))
- (org-agenda-filter-apply org-agenda-tag-filter 'tag)))
- (setq maybe-refresh t))
+ (org-agenda-filter-apply org-agenda-tag-filter 'tag))))
((equal char ?/)
(org-agenda-filter-show-all-tag)
(when (get 'org-agenda-tag-filter :preset-filter)
- (org-agenda-filter-apply org-agenda-tag-filter 'tag))
- (setq maybe-refresh t))
+ (org-agenda-filter-apply org-agenda-tag-filter 'tag)))
((equal char ?. )
(setq org-agenda-tag-filter
(mapcar (lambda(tag) (concat "+" tag))
(org-get-at-bol 'tags)))
- (org-agenda-filter-apply org-agenda-tag-filter 'tag)
- (setq maybe-refresh t))
+ (org-agenda-filter-apply org-agenda-tag-filter 'tag))
((or (equal char ?\ )
(setq a (rassoc char alist))
(and tag (setq a (cons tag nil))))
@@ -7506,11 +7503,8 @@ to switch to narrowing."
(setq org-agenda-tag-filter
(cons (concat (if strip "-" "+") tag)
(if narrow current nil)))
- (org-agenda-filter-apply org-agenda-tag-filter 'tag)
- (setq maybe-refresh t))
- (t (error "Invalid tag selection character %c" char)))
- (when maybe-refresh
- (org-agenda-redo))))
+ (org-agenda-filter-apply org-agenda-tag-filter 'tag))
+ (t (error "Invalid tag selection character %c" char)))))
(defun org-agenda-get-represented-tags ()
"Get a list of all tags currently represented in the agenda."