bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 611fb883c74227e27cc94c76663f24f0962c78fd
parent 21f5773171b8ac40ad11d0ce93226d32523fd35c
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 13 Oct 2008 20:34:45 +0000

fix missing page numbers in index of latex output

svn: r12024

original commit: d3e26ef74d6147cc9fae0b1f7fd3c8b086a84510

Diffstat:
M
collects/scribble/latex-render.ss
 | 
7
+++++--

1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -11,6 +11,7 @@
 (define current-table-mode (make-parameter #f))
 (define rendering-tt (make-parameter #f))
 (define show-link-page-numbers (make-parameter #f))
+(define done-link-page-numbers (make-parameter #f))
 (define disable-images (make-parameter #f))
 
 (define-struct (toc-paragraph paragraph) ())
@@ -123,7 +124,8 @@
                               (pair? (link-element-tag e))
                               (eq? 'part (car (link-element-tag e)))
                               (null? (element-content e)))])
-        (parameterize ([show-link-page-numbers #f])
+        (parameterize ([done-link-page-numbers (or (done-link-page-numbers)
+                                                   (link-element? e))])
           (when (target-element? e)
             (printf "\\label{t:~a}"
                     (t-encode (tag-key (target-element-tag e) ri))))
@@ -199,7 +201,8 @@
         (when part-label?
           (printf "''"))
         (when (and (link-element? e)
-                   (show-link-page-numbers))
+                   (show-link-page-numbers)
+                   (not (done-link-page-numbers)))
           (printf ", \\pageref{t:~a}"
                   (t-encode (tag-key (link-element-tag e) ri))))
         null))