From 611fb883c74227e27cc94c76663f24f0962c78fd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 13 Oct 2008 20:34:45 +0000
Subject: [PATCH] fix missing page numbers in index of latex output

svn: r12024

original commit: d3e26ef74d6147cc9fae0b1f7fd3c8b086a84510
---
 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
index b0daf780..78caea2d 100644
--- 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))