]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/music-map.ly
* scripts/lilypond-book.py (do_file): do not overwrite input file.
[lilypond.git] / input / regression / music-map.ly
index 20bc3cae330eb62fc0fc71704a3d4e8431a06447..c7fa3e946dedd1e9c85a279644c79a33661646c7 100644 (file)
@@ -10,16 +10,16 @@ dynamics are left over. These are put onto the 2nd measure."
 
 }
 
-\version "2.1.25"
+\version "2.1.26"
 
 #(define (notes-to-skip m)
 "Convert all stuff with duration (notes, lyrics, bass figures, etc.) to skips.
 Scripts and dynamics are maintained.
 "
-  (if (memq 'rhythmic-event (ly:get-mus-property m 'types))
+  (if (memq 'rhythmic-event (ly:music-property m 'types))
        (let* ((newmus    (make-music-by-name 'SkipEvent)))
                (map
-                 (lambda (x) (ly:set-mus-property! newmus (car x) (cdr x)))
+                 (lambda (x) (ly:music-set-property! newmus (car x) (cdr x)))
                  (ly:get-mutable-properties m))
                newmus
        )