From: David Kastrup <dak@gnu.org>
Date: Thu, 1 Aug 2013 15:31:00 +0000 (+0200)
Subject: Create ly:event-warning function
X-Git-Tag: release/2.17.24-1~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=61eccf34f3fd2e26b111fae7125a9423342c6765;p=lilypond.git

Create ly:event-warning function
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index f4c27bf973..ff2bcb7ec7 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -891,6 +891,12 @@ actually fully cloned."
         (apply ly:input-warning ip msg rest)
         (apply ly:warning msg rest))))
 
+(define-public (ly:event-warning event msg . rest)
+  (let ((ip (ly:event-property event 'origin)))
+    (if (ly:input-location? ip)
+        (apply ly:input-warning ip msg rest)
+        (apply ly:warning msg rest))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; setting stuff for grace context.