From a82ac9d01633538b3ffe44cf24395931b200c83c Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 9 Dec 2012 10:32:01 +0100 Subject: [PATCH] Issue 3008: articulate can't deal with <> --- ly/articulate.ly | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ly/articulate.ly b/ly/articulate.ly index 4f748f35b9..a11b55e60c 100644 --- a/ly/articulate.ly +++ b/ly/articulate.ly @@ -376,6 +376,9 @@ (begin (set! (ly:music-property music 'elements) (reverse newelements)) (cond + ((not (any (lambda (m) (music-is-of-type? m 'rhythmic-event)) + newelements)) + actions) (ac:inTrill (cons 'trill actions)) ((and (eq? factor ac:normalFactor) (or ac:inSlur ac:inPhrasingSlur)) (append actions (list 'articulation '(1 . 1)) )) @@ -468,7 +471,7 @@ ((eq? 'EventChord (ly:music-property music 'name)) (let loop ((actions (ac:getactions music))) (if (null? actions) - (if (ly:moment> (ly:music-length music) (make-moment 1 4)) + (if (ly:moment