From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 24 Dec 2006 15:09:33 +0000 (+0100)
Subject: thinko for alteration order warning
X-Git-Tag: release/2.11.5-1~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cf5b2dd83e1f12e53181e9b43c62aa2e70137622;p=lilypond.git

thinko for alteration order warning
---

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);