From: Mike Solomon <mike@apollinemike.com>
Date: Thu, 17 May 2012 06:00:22 +0000 (+0200)
Subject: Adds Flags to stem support for scripts
X-Git-Tag: release/2.15.39-1~25
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=cfe2e355b0630322f7d2f43934243af63844268f;p=lilypond.git

Adds Flags to stem support for scripts
---

diff --git a/input/regression/fingering-flag.ly b/input/regression/fingering-flag.ly
new file mode 100644
index 0000000000..34a44f31bb
--- /dev/null
+++ b/input/regression/fingering-flag.ly
@@ -0,0 +1,11 @@
+\version "2.15.37"
+
+\header {
+  texidoc = "Horizontal fingerings avoid flags.
+"
+}
+
+\relative c' {
+  \set fingeringOrientations = #'(right)
+  <a-5 c-3>8
+}
diff --git a/lily/new-fingering-engraver.cc b/lily/new-fingering-engraver.cc
index 0ad31ec126..574591a23e 100644
--- a/lily/new-fingering-engraver.cc
+++ b/lily/new-fingering-engraver.cc
@@ -195,7 +195,11 @@ New_fingering_engraver::position_scripts (SCM orientations,
 {
   for (vsize i = 0; i < scripts->size (); i++)
     if (stem_ && to_boolean (scripts->at (i).script_->get_property ("add-stem-support")))
-      Side_position_interface::add_support (scripts->at (i).script_, stem_);
+      {
+        Side_position_interface::add_support (scripts->at (i).script_, stem_);
+        if (Grob *flag = unsmob_grob (stem_->get_object ("flag")))
+          Side_position_interface::add_support (scripts->at (i).script_, flag);
+      }
 
   /*
     This is not extremely elegant, but we have to do a little