From 32d599a0388b5e45bddcc93fae8bf630619654af Mon Sep 17 00:00:00 2001
From: janneke <janneke>
Date: Wed, 21 Apr 2004 11:57:38 +0000
Subject: [PATCH] * input/regression/newaddlyrics.ly: Remove lilypond-book
 kludge.

* scripts/lilypond-book.py: LY code that includes \header is
not assumed to be a fragment.
---
 ChangeLog                        | 7 +++++++
 input/regression/newaddlyrics.ly | 8 --------
 scripts/lilypond-book.py         | 2 +-
 3 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9b622b7349..6efc1d0054 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-04-21  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* input/regression/newaddlyrics.ly: Remove lilypond-book kludge.
+
+	* scripts/lilypond-book.py: LY code that includes \header is
+	not assumed to be a fragment.
+
 2004-04-20  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* lily/stem-tremolo.cc (print): If stem direction == CENTER, move
diff --git a/input/regression/newaddlyrics.ly b/input/regression/newaddlyrics.ly
index 10af9e5119..daef387aef 100644
--- a/input/regression/newaddlyrics.ly
+++ b/input/regression/newaddlyrics.ly
@@ -2,14 +2,6 @@
     texidoc = "newlyrics -- multiple stanzas broken as yet."
 }
 
-%{
-
-UGHr, fool lilypond-book:
-
-\score
-
-%}
-
 %% Testing newlyrics 
 %%\new PianoStaff <<
 <<
diff --git a/scripts/lilypond-book.py b/scripts/lilypond-book.py
index 2689e9bce3..d9ecc14ac7 100644
--- a/scripts/lilypond-book.py
+++ b/scripts/lilypond-book.py
@@ -347,7 +347,7 @@ def compose_ly (code, options):
 	if QUOTE in options and LINEWIDTH in options:
 		options.remove (LINEWIDTH)
 
-	m = re.search (r'''\\score''', code)
+	m = re.search (r'''\\(header|score)''', code)
 	if not m and (not options \
 		      or not NOFRAGMENT in options or FRAGMENT in options):
 		if RAGGEDRIGHT not in options:
-- 
2.39.5