From f7d89009a42559e65fcabc93e68d083d0527962d Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Wed, 16 Feb 2011 09:26:17 -0700 Subject: [PATCH] [Scribble] Fix width of multicolumn table cells --- collects/scribble/latex-render.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt index f88f3042e6..81a7cc324d 100644 --- a/collects/scribble/latex-render.rkt +++ b/collects/scribble/latex-render.rkt @@ -468,7 +468,7 @@ (loop (cdr flows) (add1 n))] [else n]))]) (unless (= cnt 1) (printf "\\multicolumn{~a}{l}{" cnt)) - (render-table-cell (car flows) part ri twidth (car cell-styles)) + (render-table-cell (car flows) part ri (/ twidth cnt) (car cell-styles)) (unless (= cnt 1) (printf "}")) (unless (null? (list-tail flows cnt)) (printf " &\n")))) (unless (null? (cdr flows)) (loop (cdr flows)