From 5592d2bd93c2c42986f3025a3b72f4ec9f563d95 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 25 Mar 2008 15:27:22 +0000 Subject: [PATCH] extra word wrapping in inherited-method table svn: r9084 original commit: 0fc5a646aa91a18c1c6c90bdf7cf9f195d4fa50e --- collects/scribble/html-render.ss | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss index 2cd3552d..0df04334 100644 --- a/collects/scribble/html-render.ss +++ b/collects/scribble/html-render.ss @@ -327,19 +327,20 @@ `(table ((class "tocviewlist") (cellspacing "0")) ,@toc-content))))))) ,@(render-onthispage-contents d ri top) - ,@(apply append - (map (lambda (t) - (let loop ([t t]) - (if (table? t) - (render-table t d ri #f) - (loop (delayed-flow-element-flow-elements t ri))))) - (filter (lambda (e) - (let loop ([e e]) - (or (and (auxiliary-table? e) - (pair? (table-flowss e))) - (and (delayed-flow-element? e) - (loop (delayed-flow-element-flow-elements e ri)))))) - (flow-paragraphs (part-flow d))))))))) + ,@(parameterize ([extra-breaking? #t]) + (apply append + (map (lambda (t) + (let loop ([t t]) + (if (table? t) + (render-table t d ri #f) + (loop (delayed-flow-element-flow-elements t ri))))) + (filter (lambda (e) + (let loop ([e e]) + (or (and (auxiliary-table? e) + (pair? (table-flowss e))) + (and (delayed-flow-element? e) + (loop (delayed-flow-element-flow-elements e ri)))))) + (flow-paragraphs (part-flow d)))))))))) (define/public (get-onthispage-label) null)