From: David Kastrup <dak@gnu.org>
Date: Thu, 14 Aug 2014 23:40:36 +0000 (+0200)
Subject: Fix severe context/grob property mixup in event-listener
X-Git-Tag: release/2.19.13-1~29
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f4852a8ba22912f87285fe93f296543c7add5048;p=lilypond.git

Fix severe context/grob property mixup in event-listener
---

diff --git a/ly/event-listener.ly b/ly/event-listener.ly
index b7b8ca086a..706b160755 100644
--- a/ly/event-listener.ly
+++ b/ly/event-listener.ly
@@ -192,8 +192,8 @@ as an engraver for convenience."
 #(define (format-textspan engraver event)
    (let* ((context (ly:translator-context engraver))
           (moment (ly:context-current-moment context))
-          (spanner-props (ly:context-property context 'TextSpanner))
-          (details (chain-assoc-get 'bound-details spanner-props))
+          (spanner-props (ly:context-grob-definition context 'TextSpanner))
+          (details (assoc-get 'bound-details spanner-props))
           (left-props (assoc-get 'left details '()))
           (left-text (assoc-get 'text left-props '())))
      (print-line engraver