From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 19 Sep 2006 22:47:40 +0000 (+0000)
Subject: (process_music): also set tieMelismaBusy if
X-Git-Tag: cvs/HEAD~76
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=90acd82cf81b4ae190ff12a425517a184b67a870;p=lilypond.git

(process_music): also set tieMelismaBusy if
event_ detected.
---

diff --git a/ChangeLog b/ChangeLog
index 18678e2a5b..5668f46af9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-09-20  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* lily/tie-engraver.cc (process_music): also set tieMelismaBusy if
+	event_ detected.
+
 	* scm/script.scm (default-script-alist): avoid-slur and
 	slur-padding for portato script.
 
diff --git a/lily/tie-engraver.cc b/lily/tie-engraver.cc
index f08e5e5d6c..9547d14025 100644
--- a/lily/tie-engraver.cc
+++ b/lily/tie-engraver.cc
@@ -94,13 +94,13 @@ Tie_engraver::listen_tie (Stream_event *ev)
 void
 Tie_engraver::process_music ()
 {
-  for (vsize i = 0; i < heads_to_tie_.size (); i++)
-    if (heads_to_tie_[i].tie_event_
-	|| heads_to_tie_[i].tie_stream_event_)
-      {
-	context ()->set_property ("tieMelismaBusy", SCM_BOOL_T);
-	break;
-      }
+  bool busy = event_;
+  for (vsize i = 0; !busy && i < heads_to_tie_.size (); i++)
+    busy |=  (heads_to_tie_[i].tie_event_
+	      || heads_to_tie_[i].tie_stream_event_);
+
+  if (busy)
+    context ()->set_property ("tieMelismaBusy", SCM_BOOL_T);
 }
 
 void