Eliminates non-event-cause function

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index c83fd27ed61ec2fdd603b11c3f2a6224b0cbea63..024788036ec4b1ced6ca5caa28845ec2072dfa65 100644 (file)
--- 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))