add 'guitar-drop-c-tuning' to the list of known string tunings

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

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 95bf9ce08a02db560bbd0f284615ddf7eaaa5a52..0fa79af3ddb63acd68e1861710c29cfa6903ccf6 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -18,7 +18,7 @@
 %%%% You should have received a copy of the GNU General Public License
 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-\version "2.15.18"
+\version "2.16.0"
 
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -36,7 +36,7 @@ acciaccatura =
    (_i "Create an acciaccatura from the following music expression"))
 
 %% keep these two together
-"instrument-definitions" = #'()
+instrument-definitions = #'()
 addInstrumentDefinition =
 #(define-void-function
    (parser location name lst) (string? list?)
@@ -335,27 +335,22 @@ endSpanners =
 #(define-music-function (parser location music) (ly:music?)
    (_i "Terminate the next spanner prematurely after exactly one note
 without the need of a specific end spanner.")
-   (if (memq (ly:music-property music 'name) '(EventChord NoteEvent))
-       (let* ((start-span-evs (filter (lambda (ev)
-                                       (equal? (ly:music-property ev 'span-direction)
-                                               START))
-                                     (extract-typed-music music 'span-event)))
-             (stop-span-evs
-              (map (lambda (m)
-                     (let ((c (music-clone m)))
-                       (set! (ly:music-property c 'span-direction) STOP)
-                       c))
-                   start-span-evs))
-             (end-ev-chord (make-music 'EventChord
-                                       'elements stop-span-evs))
-             (total (make-music 'SequentialMusic
-                                'elements (list music
-                                                end-ev-chord))))
-        total)
-
-       (begin
-        (ly:input-message location (_ "argument endSpanners is not an EventChord: ~a") music)
-        music)))
+   (let* ((start-span-evs (filter (lambda (ev)
+                                   (equal? (ly:music-property ev 'span-direction)
+                                           START))
+                                 (extract-typed-music music 'span-event)))
+         (stop-span-evs
+          (map (lambda (m)
+                 (let ((c (music-clone m)))
+                   (set! (ly:music-property c 'span-direction) STOP)
+                   c))
+               start-span-evs))
+         (end-ev-chord (make-music 'EventChord
+                                   'elements stop-span-evs))
+         (total (make-music 'SequentialMusic
+                            'elements (list music
+                                            end-ev-chord))))
+     total))
 
 eventChords =
 #(define-music-function (parser location music) (ly:music?)
@@ -1072,11 +1067,17 @@ a context modification duplicating their effect.")
               (cons* 'push
                      (ly:music-property m 'symbol)
                      (ly:music-property m 'grob-value)
-                     (ly:music-property m 'grob-property-path)))
+                      (cond
+                       ((ly:music-property m 'grob-property #f) => list)
+                       (else
+                        (ly:music-property m 'grob-property-path)))))
              ((RevertProperty)
               (cons* 'pop
                      (ly:music-property m 'symbol)
-                     (ly:music-property m 'grob-property-path)))))
+                      (cond
+                       ((ly:music-property m 'grob-property #f) => list)
+                       (else
+                        (ly:music-property m 'grob-property-path)))))))
           (case (ly:music-property m 'name)
             ((ApplyContext)
              (ly:add-context-mod mods