From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 16 Apr 2009 20:17:08 +0000 (+0100)
Subject: Fix #328: Add dots to support of RH fingerings, if found.
X-Git-Tag: release/2.12.3-1~134
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=26579f31a64ede25cabf36d1d3fab8f16e25cd16;p=lilypond.git

Fix #328: Add dots to support of RH fingerings, if found.
(cherry picked from commit 721ccbad00c4d44a552942270f54177a0c7eb78e)
---

diff --git a/input/regression/finger-chords-dot.ly b/input/regression/finger-chords-dot.ly
new file mode 100644
index 0000000000..d54e97c2b4
--- /dev/null
+++ b/input/regression/finger-chords-dot.ly
@@ -0,0 +1,10 @@
+\version "2.13.1"
+
+\header {
+  texidoc = "Scripts right of a chord avoid dots."
+}
+
+\relative c' {
+  \set fingeringOrientations = #'(right)
+  <c-\rightHandFinger #1 >4.. <d-3 f>4. r8.
+}
diff --git a/lily/new-fingering-engraver.cc b/lily/new-fingering-engraver.cc
index 1cd7cd10e2..8c249e4fab 100644
--- a/lily/new-fingering-engraver.cc
+++ b/lily/new-fingering-engraver.cc
@@ -252,6 +252,9 @@ New_fingering_engraver::position_scripts (SCM orientations,
 	  && unsmob_grob (ft.head_->get_object ("accidental-grob")))
 	Side_position_interface::add_support (f,
 					      unsmob_grob (ft.head_->get_object ("accidental-grob")));
+      else if (unsmob_grob (ft.head_->get_object ("dot")))
+	Side_position_interface::add_support (f,
+					      unsmob_grob (ft.head_->get_object ("dot")));
 					      
       Self_alignment_interface::set_align_self (f, Y_AXIS);
       Self_alignment_interface::set_center_parent (f, Y_AXIS);