* lily/page-turn-page-breaking.cc (calc_demerits): now that we allow

[lilypond.git] / lily / accidental.cc

diff --git a/lily/accidental.cc b/lily/accidental.cc
index d79c17a9e9af2f1e70de4726723e6c4bca0548df..0557883267e56497f28304e3b66813576d185eff 100644 (file)
--- a/lily/accidental.cc
+++ b/lily/accidental.cc
@@ -47,8 +47,12 @@ Accidental_interface::after_line_breaking (SCM smob)
   Grob *me = unsmob_grob (smob);
   Grob *tie = unsmob_grob (me->get_object ("tie"));
 
-  if (tie && !tie->original ())
-    me->suicide ();
+  if (tie && !tie->original ()
+      && !to_boolean (me->get_property ("forced")))
+    {
+      me->suicide ();
+    }
+ 
   return SCM_UNSPECIFIED;
 }
 
@@ -256,6 +260,7 @@ ADD_INTERFACE (Accidental_interface, "accidental-interface",
               "avoid-slur "
               "cautionary "
               "cautionary-style "
+              "forced "
               "style "
               "tie "
               );