diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-02-13 13:05:54 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-02-13 13:05:54 +0100 |
commit | 613b480db4f68c13e2a7efa863d17d47265c003f (patch) | |
tree | c41fb2cf40c19c597d20d0fa3f6b68c827f6c525 | |
parent | 670e8cd6bf6ae91166fff64b4dc5bcd2d5e493db (diff) | |
parent | 0b148ba7061730d3f0fb45d1080dded26a87bc3d (diff) | |
download | org-mode-613b480db4f68c13e2a7efa863d17d47265c003f.tar.gz |
Merge branch 'maint'
-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 f812c0c..f13d528 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14502,13 +14502,14 @@ Returns the new tags string, or nil to not change the current settings." ((member tg inherited) i-face)))) (when (equal (caar tbl) :grouptags) (org-add-props tg nil 'face 'org-tag-group)) - (when (and (zerop cnt) (not ingroup) (not intaggroup)) (insert " ")) + (when (and (zerop cnt) (not ingroup) (not intaggroup)) (insert " ")) (insert "[" c "] " tg (make-string (- fwidth 4 (length tg)) ?\ )) (push (cons tg c) ntable) (when (= (cl-incf cnt) ncol) - (insert "\n") - (when (or ingroup intaggroup) (insert " ")) + (unless (memq (caar tbl) '(:endgroup :endgrouptag)) + (insert "\n") + (when (or ingroup intaggroup) (insert " "))) (setq cnt 0))))) (setq ntable (nreverse ntable)) (insert "\n") |