Web: remove non-Free software from Easier Editing

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

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index f8274cfbc4129af8d058eda2fd6d337da088d2bf..9f7fcf8f9623a9c09fab707a0d5027be28c8bbc1 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -372,16 +372,19 @@ to the preceding note or rest as a post-event with @code{-}.")
               'text (or mark (make-null-markup))
               'footnote-text footnote
               'symbol (or grob-name '()))))
-     (if music
-        (begin
-          (set! (ly:music-property music 'tweaks)
-                (acons (if grob-name
-                           (cons grob-name 'footnote-music)
-                           'footnote-music)
-                       mus
-                       (ly:music-property music 'tweaks)))
-          music)
-        mus)))
+     (cond (music
+           (set! (ly:music-property music 'tweaks)
+                 (acons (if grob-name
+                            (cons grob-name 'footnote-music)
+                            'footnote-music)
+                        mus
+                        (ly:music-property music 'tweaks)))
+           music)
+          (grob-name mus)
+          (else
+           (ly:input-warning location
+                             (_ "\\footnote requires music or grob-name"))
+           (make-music 'Music)))))
 
 grace =
 #(def-grace-function startGraceMusic stopGraceMusic