From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 8 May 2004 21:02:58 +0000 (+0000)
Subject: (compose_ly): remove FRAGMENT_LY.
X-Git-Tag: release/2.3.1~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7e1049aa9dda2fd98a3dc3b93bb10d5463c70f3d;p=lilypond.git

(compose_ly): remove FRAGMENT_LY.
---

diff --git a/ChangeLog b/ChangeLog
index 75e179a366..6c36f33e28 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-08  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+	* scripts/lilypond-book.py (compose_ly): remove FRAGMENT_LY.
+
 2004-05-08  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* input/regression/newaddlyrics.ly: Fix.
@@ -11,6 +15,8 @@
 
 2004-05-08  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* input/mutopia/R.Schumann/romanze-op28-2.ly (d): use #(define .. )
+
 	* lily/paper-line.cc (Paper_line): don't store list of stencils,
 	but convert to single Stencil immediately.
 
diff --git a/Documentation/user/tutorial.itely b/Documentation/user/tutorial.itely
index 3c4548ca7d..aafa9faf60 100644
--- a/Documentation/user/tutorial.itely
+++ b/Documentation/user/tutorial.itely
@@ -1387,7 +1387,7 @@ later by preceding the name with a backslash, i.e., @code{\namedMusic}.
 In the next example, a two-note motive is repeated two times by using
 variable substitution
 
-@lilypond[quote,raggedright,verbatim]
+@lilypond[quote,raggedright,verbatim,nofragment]
 seufzer = \notes {
   e'4( dis'4)
 }
diff --git a/input/mutopia/R.Schumann/romanze-op28-2.ly b/input/mutopia/R.Schumann/romanze-op28-2.ly
index c211aa5c16..2c0bac808a 100644
--- a/input/mutopia/R.Schumann/romanze-op28-2.ly
+++ b/input/mutopia/R.Schumann/romanze-op28-2.ly
@@ -21,7 +21,11 @@
 
 u = { \change Staff = up  \stemDown }
 m = { \change Staff = mid  \stemUp  }
-d = { \change Staff = down  \stemUp }
+
+%
+% d = .. complains about note names.
+% 
+#(define d  #{ \change Staff = down  \stemUp #})
 
 forcedBreak = \break
 
diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly
index 5a14ef8b30..1105926b2c 100644
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly
@@ -1,4 +1,3 @@
-#(ly:set-option 'old-relative)
 \version "2.2.0"
 \include  "mozart-hrn3-defs.ly"
 
diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly
index 2508497ce9..2e673d299b 100644
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly
@@ -1,5 +1,3 @@
-#(ly:set-option 'old-relative)
-
 \version "2.2.0"
 \include  "mozart-hrn3-defs.ly"
 
diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly
index 5605285031..55c896f42b 100644
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly
@@ -1,4 +1,3 @@
-#(ly:set-option 'old-relative)
 \version "2.2.0"
 
 % \include "mozart-hrn3-defs.ly"
diff --git a/input/test/blank-paper.ly b/input/test/blank-paper.ly
index b81ebbb885..fb614d6c30 100644
--- a/input/test/blank-paper.ly
+++ b/input/test/blank-paper.ly
@@ -8,14 +8,12 @@ A blank music paper can be produced also by using invisible notes, and removing
 " }
 
 
-\score \with {
+\new Score \with {
     \override TimeSignature #'transparent = ##t
     \override NoteHead #'transparent = ##t
     defaultBarType = #""
     \remove Bar_number_engraver
-}
-
-{
+} {
     %% \clef treble
     \clef bass 
     \repeat unfold 3 { c1 \break }
diff --git a/lily/relative-octave-music.cc b/lily/relative-octave-music.cc
index f6f20454d6..fde9c2f835 100644
--- a/lily/relative-octave-music.cc
+++ b/lily/relative-octave-music.cc
@@ -17,16 +17,14 @@ Relative_octave_music::to_relative_octave (Pitch p)
   if (lily_1_8_relative)
     {
       lily_1_8_compatibility_used = true;
-      /* ugh: last-pitch should  be junked.
-
-         Change this for lilypond 2.0.
-
-	 FIXME: change WHAT?  We're at 2.3 already -- jcn
+      /*  last-pitch should be junked some time, when
+	  we ditch 1.8 compat too.
 
 	 When you do, B should start where A left off.
 
 	\relative { A \relative { ...} B }  */
-      return *unsmob_pitch (get_property ("last-pitch"));
+      Pitch *ptr = unsmob_pitch (get_property ("last-pitch"));
+      return (ptr) ?  *ptr : p;
     }
   else
     return p;
diff --git a/scripts/lilypond-book.py b/scripts/lilypond-book.py
index d9ecc14ac7..fb055fa67f 100644
--- a/scripts/lilypond-book.py
+++ b/scripts/lilypond-book.py
@@ -304,10 +304,10 @@ PREAMBLE_LY = r'''%%%% Generated by %(program_name)s
 }
 ''' 
 
-FRAGMENT_LY = r'''\score{
-    \notes%(notes_string)s{
+FRAGMENT_LY = r'''
+    %(notes_string)s{
         %(code)s    }
-}'''
+'''
 FULL_LY = '%(code)s'
 
 texinfo_linewidths = {