Fix #328: Add dots to support of RH fingerings, if found.

diff --git a/input/regression/finger-chords-dot.ly b/input/regression/finger-chords-dot.ly
new file mode 100644 (file)
index 0000000..d54e97c
--- /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 1cd7cd10e294cbbed8e1629261095df8a7eea7a1..8c249e4fab663f0ffcf70d131eaf1b978fe4782f 100644 (file)
--- 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);