commit 5592d2bd93c2c42986f3025a3b72f4ec9f563d95 parent 4f981652179d624dbaabcc86b90ddf3d6f2f9966 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Tue, 25 Mar 2008 15:27:22 +0000 extra word wrapping in inherited-method table svn: r9084 original commit: 0fc5a646aa91a18c1c6c90bdf7cf9f195d4fa50e Diffstat:
| M | 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 @@ -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)