Add feature to link to a particular page or a page containing a given label

[lilypond.git] / ly / toc-init.ly

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index 488e22ba2a6eb823a43f048dac5bdcfef344abec..32c1dd2b3ae302c16103f8e66ec634be918fc7ba 100644 (file)
--- a/ly/toc-init.ly
+++ b/ly/toc-init.ly
@@ -48,9 +48,10 @@ Usage: @code{\\markuplines \\table-of-contents}" )
                                 (text (caddr toc-item)))
                             (interpret-markup
                               layout
-                              (cons (list (cons 'toc:page 
-                                           (markup #:page-ref label "XXX" "?"))
-                                          (cons 'toc:text text))
+                              (cons (list (cons 'toc:page
+                                           (markup #:with-link label #:page-ref label "XXX" "?"))
+                                          (cons 'toc:text (markup #:with-link label text))
+                                          (cons 'toc:label label))
                                     props)
                               (ly:output-def-lookup layout toc-markup))))
                         (toc-items)))))