From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 11 Sep 2007 23:55:33 +0000 (+0200)
Subject: Fix #323.
X-Git-Tag: release/2.11.33-1~4^2~12^2~12
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=dfa24e0cf5031563fef2e374684296040b35c43e;p=lilypond.git

Fix #323.

Clear avoid-slur for horizontal scripts.
---

diff --git a/input/regression/script-horizontal-slur.ly b/input/regression/script-horizontal-slur.ly
new file mode 100644
index 0000000000..a45b5c0c27
--- /dev/null
+++ b/input/regression/script-horizontal-slur.ly
@@ -0,0 +1,17 @@
+\version "2.11.20"
+
+\header {
+  texidoc = "Horizontal scripts don't have @code{avoid-slur} set."
+}
+
+\layout {
+  ragged-right = ##t
+}
+
+\relative c'' { 
+  \set fingeringOrientations = #'(right)
+  < a-1 d-2>2
+  < a-1 d-2>2
+  < a-1 d-2>2(
+  < a-1 d-2>2)
+}
diff --git a/lily/new-fingering-engraver.cc b/lily/new-fingering-engraver.cc
index a4e05dadbf..1aaa6a04eb 100644
--- a/lily/new-fingering-engraver.cc
+++ b/lily/new-fingering-engraver.cc
@@ -249,7 +249,7 @@ New_fingering_engraver::position_scripts (SCM orientations,
       Grob *f = ft.script_;
       f->set_parent (ft.head_, X_AXIS);
       f->set_parent (ft.head_, Y_AXIS);
-
+      f->set_property ("avoid-slur", SCM_BOOL_F);
       if (hordir == LEFT
 	  && unsmob_grob (ft.head_->get_object ("accidental-grob")))
 	Side_position_interface::add_support (f,