* Documentation/topdocs/NEWS.tely (Top): doc new feature.

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 8ff3e6285131fd8359796d63398ad1b7e2be344a..1fb36ffaadce209a9f37dae6c1b540ee76622d61 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -115,7 +115,7 @@ barNumberCheck =
               (lambda (c)
                 (let*
                     ((cbn (ly:context-property c 'currentBarNumber)))
-                  (if (not (= cbn n))
+                  (if (and  (number? cbn) (not (= cbn n)))
                       (ly:input-message location "Barcheck failed got ~a expect ~a"
                                         cbn n))))))
 
@@ -125,7 +125,7 @@ breathe =
 #(define-music-function (parser location) ()
             (make-music 'EventChord 
               'origin location
-              'elements (list (make-music 'BreathingSignEvent))))
+              'elements (list (make-music 'BreathingEvent))))
 
 bendAfter =
 #(define-music-function (parser location delta) (integer?)
@@ -362,11 +362,6 @@ pitchedTrill =
           (display sec-note-events)))
 
      main-note))
-
-
-
-
-
    
 parenthesize =
 #(define-music-function (parser loc arg) (ly:music?)
@@ -571,3 +566,17 @@ tag = #(define-music-function (parser location tag arg)
 unfoldRepeats =
 #(define-music-function (parser location music) (ly:music?)
                  (unfold-repeats music))
+
+untied =
+#(define-music-function (parser location note) (ly:music?)
+   "Specify that @var{note} should not have ties. " 
+   (set! (ly:music-property note 'untied) #t)
+   note)
+
+withMusicProperty =
+#(define-music-function (parser location sym val music) (symbol? scheme? ly:music?)
+   "Set @var{sym} to @var{val} in @var{music}."
+
+   (set! (ly:music-property music sym) val)
+   music)
+