From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 10 Oct 2006 13:38:32 +0000 (+0000)
Subject: (fingering::calc-text): use origin
X-Git-Tag: release/2.10.0-2~205
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e43d32190ce814b8cc2cd01eaf409d554f8afea6;p=lilypond.git

(fingering::calc-text): use origin
event-property, not music-property.
---

diff --git a/ChangeLog b/ChangeLog
index 2668d741cb..5c61fadec2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-10-10  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* scm/output-lib.scm (fingering::calc-text): use origin
+	event-property, not music-property.
+
 	* lily/lilypond.rc.in: spell my name correctly.
 
 2006-10-10  Joe Neeman  <joeneeman@gmail.com>
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 93e61dd9d9..9a5bc4d8d8 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -33,6 +33,13 @@
 		  layout props (make-circle-markup text))))
     circle))
 
+(define-public (music-cause grob)
+  (let*
+      ((event (event-cause grob)))
+
+    (if (ly:stream-event? event)
+	(ly:event-property event 'music-cause)
+	#f)))
 
 (define-public (event-cause grob)
   (let*
@@ -404,7 +411,7 @@ centered, X==1 is at the right, X == -1 is at the left."
        (digit (ly:event-property event 'digit)))
     
     (if (> digit 5)
-	(ly:input-message (ly:music-property event 'origin)
+	(ly:input-message (ly:event-property event 'origin)
 			  "Music for the martians"))
 
     (number->string digit 10)