|
@@ -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")
|