From: David Kastrup <dak@gnu.org>
Date: Wed, 3 Apr 2013 10:53:17 +0000 (+0200)
Subject: Issue 3283: Stop table of contents bleedover
X-Git-Tag: release/2.17.16-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=461615ca6df9fe56d043812470be4d7f299240c5;p=lilypond.git

Issue 3283: Stop table of contents bleedover
---

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index 5511ed4689..3a3f6e08ab 100644
--- a/ly/toc-init.ly
+++ b/ly/toc-init.ly
@@ -7,6 +7,7 @@
   #f)
 
 #(let ((toc-item-list (list)))
+   (call-after-session (lambda () (set! toc-item-list '())))
    (set! add-toc-item!
 	 (lambda (markup-symbol text)
 	   (let ((label (gensym "toc")))