(web_kluts): Have make web build in out-www. Not.

[lilypond.git] / scripts / lilypond-book.py

diff --git a/scripts/lilypond-book.py b/scripts/lilypond-book.py
index 42991681ad02a611121aa3fe0d7e8cadeeb6b6a1..75fe418591e457ca349a2248123269d3fbdb6621 100644 (file)
--- a/scripts/lilypond-book.py
+++ b/scripts/lilypond-book.py
@@ -351,7 +351,9 @@ def compose_ly (code, options):
        if QUOTE in options and LINEWIDTH in options:
                options.remove (LINEWIDTH)
 
-       if FRAGMENT in options:
+       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:
                        options.append (RAGGEDRIGHT)
                body = FRAGMENT_LY