diff options
author | Bastien <bzg@gnu.org> | 2018-03-20 14:58:20 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2018-03-20 14:58:20 +0100 |
commit | b7f350f7ef9a1aa9437730ca7b330a0a07c4fe39 (patch) | |
tree | 22322706d4dcbd122af513b74bd26444c45d0dbc | |
parent | b2d3dbabf7b4544927c1dc58790d31e2d196f2cb (diff) | |
download | org-mode-b7f350f7ef9a1aa9437730ca7b330a0a07c4fe39.tar.gz |
org.el: Fix bug when building tags groups
* lisp/org.el (org-tag-alist-to-groups): Fix bug.
-rw-r--r-- | lisp/org.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index e08cda8..f791df8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5249,7 +5249,7 @@ a string, summarizing TAGS, as a list of strings." (`(,(or :endgroup :endgrouptag)) (when (eq group-status 'append) (push (nreverse current-group) groups)) - (setq group-status nil)) + (setq group-status nil current-group nil)) (`(:grouptags) (setq group-status 'append)) ((and `(,tag . ,_) (guard group-status)) (if (eq group-status 'append) (push tag current-group) |