diff options
author | Bastien Guerry <bzg@altern.org> | 2013-03-28 22:28:15 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-28 22:28:15 +0100 |
commit | 575c9f16c3a1dc6660dd1aebdd560ec7caa1365e (patch) | |
tree | 3ebfe7619224502fd26d7d73428705bb76ea3a08 | |
parent | 2746c764c64daf7898eaf0925a6e2685e568bc86 (diff) | |
download | org-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.el | 7 |
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 |