summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-28 22:28:15 +0100
committerBastien Guerry <bzg@altern.org>2013-03-28 22:28:15 +0100
commit575c9f16c3a1dc6660dd1aebdd560ec7caa1365e (patch)
tree3ebfe7619224502fd26d7d73428705bb76ea3a08
parent2746c764c64daf7898eaf0925a6e2685e568bc86 (diff)
downloadorg-mode-575c9f16c3a1dc6660dd1aebdd560ec7caa1365e.tar.gz
org.el (org-agenda-prepare-buffers): Fix bugs
* org.el (org-agenda-prepare-buffers): Fix bugs: don't let-bind `org-tag-alist' to nil and don't append duplicate tags to `org-tag-alist-for-agenda'. Thanks to Toby Cubitt for reporting this.
-rw-r--r--lisp/org.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el
index f11fbd8..7911cdc 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -17893,7 +17893,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved
(inhibit-read-only t)
(org-inhibit-startup org-agenda-inhibit-startup)
(rea (concat ":" org-archive-tag ":"))
- file re org-tag-alist)
+ file re)
(setq org-tag-alist-for-agenda nil
org-tag-groups-alist-for-agenda nil)
(save-excursion
@@ -17917,8 +17917,9 @@ When a buffer is unmodified, it is just killed. When modified, it is saved
(append org-todo-keyword-alist-for-agenda org-todo-key-alist))
(setq org-drawers-for-agenda
(append org-drawers-for-agenda org-drawers))
- (setq org-tag-alist-for-agenda
- (append org-tag-alist-for-agenda org-tag-alist))
+ (unless (equal org-tag-alist-for-agenda org-tag-alist)
+ (setq org-tag-alist-for-agenda
+ (append org-tag-alist-for-agenda org-tag-alist)))
(if org-group-tags
(setq org-tag-groups-alist-for-agenda
(org-uniquify-alist