From cf5b2dd83e1f12e53181e9b43c62aa2e70137622 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 24 Dec 2006 16:09:33 +0100 Subject: [PATCH] thinko for alteration order warning --- lily/key-engraver.cc | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc index b317764fec..8bd0d1305f 100644 --- a/lily/key-engraver.cc +++ b/lily/key-engraver.cc @@ -197,10 +197,16 @@ Key_engraver::read_event (Stream_event const *r) if (scm_is_pair (alist)) { - r->origin ()->warning ("No ordering for key signature alterations"); + bool warn = false; for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s)) if (ly_scm2rational (scm_cdar (s))) - accs = scm_cons (scm_car (s), accs); + { + warn = true; + accs = scm_cons (scm_car (s), accs); + } + + if (warn) + r->origin ()->warning ("No ordering for key signature alterations"); } context ()->set_property ("keySignature", accs); -- 2.39.5