summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/lout.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 664e046..6a8486f 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -2200,6 +2200,14 @@
;; Mark each row with vertical spanning information
(lout-table-mark-vspan! n)
+ (if (find1-up (lambda (n)
+ (is-markup? n 'figure))
+ n)
+ ;; Work around a bug preventing `@VSpan' from working
+ ;; properly within floating figures:
+ ;; http://article.gmane.org/gmane.comp.type-setting.lout/1090 .
+ (display "\n@OneRow"))
+
(display "\n@Tbl # table\n")
(if (number? border)