From 57238fb9e4f4262c2ee7c560f591d7990468d717 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 21 Oct 2002 12:04:47 +0000
Subject: [PATCH] release commit

---
 VERSION                                      |  2 +-
 input/mutopia/F.Schubert/standchen.ly        | 10 +++++-----
 input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly |  8 +++++---
 ly/script-init.ly                            |  4 ----
 scm/music-types.scm                          |  2 +-
 scripts/convert-ly.py                        |  4 ++--
 6 files changed, 14 insertions(+), 16 deletions(-)

diff --git a/VERSION b/VERSION
index 6a809df4f5..2e00d51e1e 100644
--- a/VERSION
+++ b/VERSION
@@ -1,7 +1,7 @@
 PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=7
-PATCH_LEVEL=3
+PATCH_LEVEL=4
 MY_PATCH_LEVEL=
 
 # Use the above to send patches: MY_PATCH_LEVEL is always empty for a
diff --git a/input/mutopia/F.Schubert/standchen.ly b/input/mutopia/F.Schubert/standchen.ly
index 16125602b9..38d990c90a 100644
--- a/input/mutopia/F.Schubert/standchen.ly
+++ b/input/mutopia/F.Schubert/standchen.ly
@@ -186,7 +186,7 @@ trebleVerseOne =  \notes\relative c{
 	< {a4.- > )f8}  { a'4. f8 }  > |
 }
 
-trebleEentje =  \notes \relative c'{
+trebleEentje =  \notes \relative c' \context Voice {
 	\stemBoth
 	<e2 e'> r4 |
 	<f2\mf as!\(> <as8.->( c> <f16 \))as> |
@@ -316,11 +316,11 @@ bassEentje =  \notes\relative c{
 bassThrough =  \notes\relative c{
 	\dynamicUp
 	%61
-	<g,8^"cresc." g'> [<g' b d> <b d f> <g b d> <as!-> b-> d->> <b d f>] |
-	<g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
+	<g,8^"cresc." g'> [<g' b d> <b d f> <g b d> <as!-> b-> d-> > <b d f>] |
+	<g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d-> > <b d f>] |
 	% copied
-	<g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
-	<g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
+	<g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d-> > <b d f>] |
+	<g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d-> > <b d f>] |
 	%65
 	<gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
 	<a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
index bd09d8331c..0359cf93cc 100644
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
@@ -10,6 +10,8 @@ ritenuto = \textscript #'(italic  "rit.")
 
 #(define italic-bf '((font-shape . italic) (font-series . bold)))
 
+%{
+ 
 %% burp
 %% the very idea of a style sheet, is that it's easy to override
 %#(define (set-style! sheet name style)
@@ -29,7 +31,7 @@ ritenuto = \textscript #'(italic  "rit.")
                                         (font-shape . upright)
                                         (font-relative-size . 3)))
   
-  
+%}  
   
 cresc = \notes {
     #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START)))) 
@@ -55,7 +57,7 @@ stopGraceMusic= \sequential {
 }
 
 \paper{
-    #(define fonts my-sheet)
+%    #(define fonts my-sheet)
     \translator {
         \ScoreContext
         skipBars = ##t
@@ -63,7 +65,7 @@ stopGraceMusic= \sequential {
         %% try to mimic Breitkopf
         RehearsalMark \override #'padding = #1
         MultiMeasureRest \override #'padding = #0.5
-        MultiMeasureRest \override #'number-threshold = #1
+        restNumberThreshold = #1
         
         Beam \override #'thickness = #0.6
         Beam \override #'space-function = #(lambda (beam mult) 0.8)
diff --git a/ly/script-init.ly b/ly/script-init.ly
index 4f5a205dc1..a1ac985181 100644
--- a/ly/script-init.ly
+++ b/ly/script-init.ly
@@ -9,10 +9,6 @@ dashLarger= "accent"
 dashDot= "staccato"
 dashUnderscore = "portato"
 
-
-#(display set-mus-properties!)
-#(display make-articulation)
-
 thumb = #(make-articulation "thumb")
 accent = #(make-articulation "accent")
 marcato = #(make-articulation "marcato")
diff --git a/scm/music-types.scm b/scm/music-types.scm
index a2795ad7b9..9effc7b937 100644
--- a/scm/music-types.scm
+++ b/scm/music-types.scm
@@ -242,7 +242,7 @@ is an articulation (such as @code{-.}, @code{->}, @code{\\tenuto},
      . (
 	(description . "Start or end phrasing slur. Syntax NOTE \\(  and \\) NOTE")
 	(internal-class-name . "Event")
-	(types . (general-music span-event phrasing-slur-event slur-event))
+	(types . (general-music span-event phrasing-slur-event))
 	))
     (PropertySet
      . (
diff --git a/scripts/convert-ly.py b/scripts/convert-ly.py
index 0209abeaba..910d57d5a7 100644
--- a/scripts/convert-ly.py
+++ b/scripts/convert-ly.py
@@ -1074,8 +1074,8 @@ if 1:
 
 if 1:
 	def conv(str):
-		str = re.sub (r'<<' '< <', str)
-		str = re.sub (r'>>' '> >', str)
+		str = re.sub (r'<<', '< <', str)
+		str = re.sub (r'>>', '> >', str)
 
 		return str
 	
-- 
2.39.5