diff options
author | Bastien Guerry <bzg@altern.org> | 2014-06-16 11:44:25 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-06-16 11:44:25 +0200 |
commit | d100d590e1c42676e71d1e2b1e448d8bf3dccc6f (patch) | |
tree | 56de12f3d302d3514c5e729b752644b9deb54463 | |
parent | 1c9aa1e78e97078202480f328e0b370f31902123 (diff) | |
download | org-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.el | 18 |
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." |