From: Mike Solomon <mike@apollinemike.com>
Date: Tue, 22 Jan 2013 18:49:10 +0000 (+0100)
Subject: Eliminates non-event-cause function
X-Git-Tag: release/2.17.11-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b3441482bcd6dc5fbef25df7507ba15e1aa887c6;p=lilypond.git

Eliminates non-event-cause function
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index c83fd27ed6..024788036e 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -51,14 +51,6 @@
      ((ly:grob? cause) (event-cause cause))
      (else #f))))
 
-(define-public (non-event-cause grob)
-  (let ((cause (ly:grob-property  grob 'cause)))
-
-    (cond
-     ((ly:stream-event? cause) (non-event-cause cause))
-     ((ly:grob? cause) cause)
-     (else #f))))
-
 (define-public (grob-interpret-markup grob text)
   (let* ((layout (ly:grob-layout grob))
 	 (defs (ly:output-def-lookup layout 'text-font-defaults))