X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fmusic-functions-init.ly;h=10af2cfefb8f720f02b034d67d9894b0e08a02b4;hb=a92bec97a0e5aac57e48ec98a1cb438fdce224de;hp=f978e36daa358fe295495d17c4a56ad9e6e6ebeb;hpb=fa1544eafa87d039bd5cf4712cd5e8b2ecb826dd;p=lilypond.git

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index f978e36daa..10af2cfefb 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -446,14 +446,19 @@ markups), or inside a score.")
 %% doing
 %% define-music-function in a .scm causes crash.
 
-octave =
+octaveCheck =
 #(define-music-function (parser location pitch-note) (ly:music?)
    (_i "octave check")
 
    (make-music 'RelativeOctaveCheck
 	       'origin location
 	       'pitch (pitch-of-note pitch-note) 
-	       ))
+           ))
+
+ottava = #(define-music-function (parser location octave) (number?)
+  (_i "set the octavation ")
+  (make-ottava-set octave))
+
 partcombine =
 #(define-music-function (parser location part1 part2) (ly:music? ly:music?)
                 (make-part-combine-music parser