From bbba147196bb8527ed09d8db6b97246c579995fb Mon Sep 17 00:00:00 2001 From: Alexander Kobel Date: Mon, 26 Dec 2016 13:09:37 +0100 Subject: [PATCH] make lyric-syllable-magnetic-snap work with Lily >= 2.19.11 --- .../lyric-syllable-magnetic-snap/definitions.ily | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/notation-snippets/lyric-syllable-magnetic-snap/definitions.ily b/notation-snippets/lyric-syllable-magnetic-snap/definitions.ily index 54354fe9..795a03f2 100644 --- a/notation-snippets/lyric-syllable-magnetic-snap/definitions.ily +++ b/notation-snippets/lyric-syllable-magnetic-snap/definitions.ily @@ -1,5 +1,7 @@ \version "2.18.0" % absolutely necessary! +\include "ly/_internal/utilities/lilypond-version-predicates.ily" + \header { snippet-title = "Magnetic snapping lyric syllables" snippet-author = "David Nalesnik and Mike Solomon," @@ -52,7 +54,8 @@ (let* ((meta-entry (assoc-get 'meta grob-entry)) (class (assoc-get 'class meta-entry)) (ifaces-entry (assoc-get 'interfaces meta-entry))) - (set-object-property! grob-name 'translation-type? list?) + (set-object-property! grob-name 'translation-type? + (if (lilypond-less-than? "2.19.11") list? ly:grob-properties?)) (set-object-property! grob-name 'is-grob? #t) (set! ifaces-entry (append (case class ((Item) '(item-interface))