suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

extra word wrapping in inherited-method table

Browse Source 
svn: r9084
This commit is contained in:
Matthew Flatt 2008-03-25 15:27:22 +00:00
parent 105d75b5d1
commit 0fc5a646aa
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/html-render.ss
View File

@ -327,7 +327,8 @@
`(table ((class "tocviewlist") (cellspacing "0")) `(table ((class "tocviewlist") (cellspacing "0"))
,@toc-content))))))) ,@toc-content)))))))
,@(render-onthispage-contents d ri top) ,@(render-onthispage-contents d ri top)
,@(apply append ,@(parameterize ([extra-breaking? #t])
(apply append
(map (lambda (t) (map (lambda (t)
(let loop ([t t]) (let loop ([t t])
(if (table? t) (if (table? t)
@ -339,7 +340,7 @@
(pair? (table-flowss e))) (pair? (table-flowss e)))
(and (delayed-flow-element? e) (and (delayed-flow-element? e)
(loop (delayed-flow-element-flow-elements e ri)))))) (loop (delayed-flow-element-flow-elements e ri))))))
(flow-paragraphs (part-flow d))))))))) (flow-paragraphs (part-flow d))))))))))
(define/public (get-onthispage-label) (define/public (get-onthispage-label)
null) null)