(process_music): also set tieMelismaBusy if

event_ detected.

diff --git a/ChangeLog b/ChangeLog
index 18678e2a5bae3c0bfc16b9b7b4903534db506e86..5668f46af9ff88b2cc5460961cf1d4d3c471d934 100644 (file)
--- 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 f08e5e5d6c6faa952f668d446f7b154316cf468e..9547d14025ae9e81c08f5f6cf8dc3444168ea594 100644 (file)
--- 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