From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 17 Sep 2009 21:53:24 +0000 (+0100)
Subject: Exclude headers/top-level markup when processing systems for clipping.
X-Git-Tag: release/2.12.3-1~2
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=60915f37d2522ba146687c7c00b9059fcccede5e;p=lilypond.git

Exclude headers/top-level markup when processing systems for clipping.
(cherry picked from commit 7b513ca03c3e1c2e5ac0274f50b635cf2a9e1c56)
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c183fb0de5..84f3a3bec8 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -575,11 +575,13 @@ fonts inline."
      #f
      systems)
     (for-each (lambda (system-list)
+		;; filter out headers and top-level markup
+		(if (pair? system-list)
 		(clip-score-systems
 		 (if (> count 0)
 		     (format "~a-~a" basename count)
 		     basename)
-		 system-list))
+		 system-list)))
 	      score-system-list)))
 
 (define-public (output-preview-framework basename book scopes fields)