\applyMusic to music functions update, thanks Michael!

diff --git a/ChangeLog b/ChangeLog
index 531ce4f8cd5f7a11c0022b875ff1b04e7c326f05..8f951cc8de5967c40af153d668294b7cc37a1bce 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-08  Graham Percival  <gpermus@gmail.com>
+
+       * input/test/ smart-transpose.ly, reverse-music.ly:
+       \applyMusic to music functions update, thanks Michael!
+
 2006-06-07  Graham Percival  <gpermus@gmail.com>
 
        * input/test/ add-staccato.ly, add-text-script.ly,

diff --git a/Documentation/user/basic-notation.itely b/Documentation/user/basic-notation.itely
index e19e01ef24f2e6ecbf3942440e2b79e70a65a561..f4590459a83eaa342aa62fa7644f6a0aefc25269 100644 (file)
--- a/Documentation/user/basic-notation.itely
+++ b/Documentation/user/basic-notation.itely
@@ -935,6 +935,8 @@ second
 voice in the first @code{<< \\ >>} construct is effective in the second
 @code{<< \\ >>}, and the voice is tied across the two constructs.
 
+@cindex note heads, styles
+
 @lilypond[quote,verbatim,fragment]
 \new Staff \relative c' {
   \override NoteHead #'style = #'cross

diff --git a/input/test/smart-transpose.ly b/input/test/smart-transpose.ly
index b1296b394849412215ab3a0875bff7320bfd2c82..d97359157cac75d25b1f0f2aecd4fa331d072fb4 100644 (file)
--- a/input/test/smart-transpose.ly
+++ b/input/test/smart-transpose.ly
@@ -1,5 +1,5 @@
-
-\version "2.7.39"
+\version "2.9.7"
+\sourcefilename "smart-transpose.ly"
 
 \header {
 texidoc="@cindex Smart Transpose
@@ -9,7 +9,6 @@ to have the minimum number of accidentals. In that case, ``Double
 accidentals should be removed, as well as E-sharp (-> F), bC (-> B),
 bF (-> E), B-sharp (-> C).'', as proposed by a request for a new feature.
 In this manner, the most natural enharmonic notes are chosen in this example.
-
 "
 }
 %
@@ -66,14 +65,18 @@ In this manner, the most natural enharmonic notes are chosen in this example.
 
 music =  \relative c' { c4 d  e f g a b  c }
 
+naturaliseMusic =
+#(define-music-function (parser location m)
+                                       (ly:music?)
+                       (naturalise m))
+
 \score {
    \context Staff {
     \transpose c ais \music
-    \applyMusic #naturalise \transpose c ais \music
+    \naturaliseMusic \transpose c ais \music
     \transpose c deses \music
-    \applyMusic #naturalise \transpose c deses \music
+    \naturaliseMusic \transpose c deses \music
   }
   \layout { ragged-right = ##t}
 }
 
-