diff --git a/lisp/org.el b/lisp/org.el index 09feee111..29ae051d1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14614,13 +14614,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")