From: David Kastrup <dak@gnu.org>
Date: Sun, 6 Mar 2016 09:45:16 +0000 (+0100)
Subject: Issue 4785: Let TextSpanner inherit any direction set in event
X-Git-Tag: release/2.19.39-1~5^2~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5ebb92867cfd24353f01e32e1dab602c2c40d8ba;p=lilypond.git

Issue 4785: Let TextSpanner inherit any direction set in event

Something like c_\startTextSpan should create a TextSpanner below the system.
---

diff --git a/lily/text-spanner-engraver.cc b/lily/text-spanner-engraver.cc
index f34f494301..249fdce04a 100644
--- a/lily/text-spanner-engraver.cc
+++ b/lily/text-spanner-engraver.cc
@@ -87,6 +87,8 @@ Text_spanner_engraver::process_music ()
         {
           current_event_ = event_drul_[START];
           span_ = make_spanner ("TextSpanner", event_drul_[START]->self_scm ());
+          if (Direction d = to_dir (current_event_->get_property ("direction")))
+            span_->set_property ("direction", scm_from_int (d));
 
           Side_position_interface::set_axis (span_, Y_AXIS);
           event_drul_[START] = 0;