*** empty log message ***

diff --git a/input/regression/slur-script.ly b/input/regression/slur-script.ly
index 17bdd371211763aaeed0e32a120605ef5c5bab9a..7eadad134fb03d028c3ff5e693bac3f9ab0d2c10 100644 (file)
--- a/input/regression/slur-script.ly
+++ b/input/regression/slur-script.ly
@@ -9,25 +9,20 @@
     }
 
 \version "2.3.7"
-\paper { raggedright = ##t }
+\paper {
+    raggedright = ##t
+}
 \relative
 {
     b4-.( b-. b-.)
-    
     b(-.  d-.)
-    d(-.  b-.)
-    
-    b--( b-- b--)
-    b->( b-> b->)
-    b-.--( b-.-- b-.--)
-    b---.( b---. b---.)
 
     b_1( b b_1_2_3)
     c-1_\markup { \italic {"cresc."}}( f c)
-    c-1( f\f c)
     c-1( c\f c)
     \once \override Script #'padding = #1.2
     b-.( b-.
     \once \override Script #'padding = #1.2
     b-.)
+    e=''16[-.( f-.)]
 }

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 6392d0933a1bef02530643f7c7ebb7d5288e8a44..2a3ece31bbdd5710ae4dcf1c5c35001cb61f92a1 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -4,7 +4,8 @@
 applymusic = #(def-music-function (location func music) (procedure? ly:music?)
                (func music))
 
-addlyrics = #(def-music-function (location music lyrics) (ly:music? ly:music?)
+oldaddlyrics = #(def-music-function (location music lyrics) (ly:music? ly:music?)
+
               (make-music 'LyricCombineMusic 
                           'origin location
                           'elements (list music lyrics)))