commit fd3855f965f489cebd92b90da554945c6592e0c3 parent 6892b05531c85bf3f983c6ad5e91b4b7ec5777e4 Author: Eli Barzilay <eli@racket-lang.org> Date: Tue, 8 Jul 2008 15:32:47 +0000 toc links fix svn: r10678 original commit: 5f30464c0ee6a26e4fec2fdb32793a20836ef3db Diffstat:
| M | collects/scribble/html-render.ss | | | 7 | +++++-- |
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss @@ -404,8 +404,11 @@ (let-values ([(t n) (toc-item->title+num c #t)]) `(tr () (td ([align "right"]) ,@n) (td () ,@t))))))))) (define (toc-content) - (for/list ([t toc-chain] [i (in-naturals)]) - (toc-item->block t i))) + ;; no links -- the code constructs links where needed + (parameterize ([current-no-links #t] + [extra-breaking? #t]) + (for/list ([t toc-chain] [i (in-naturals)]) + (toc-item->block t i)))) `((div ([class "tocset"]) ,@(if (part-style? d 'no-toc) null