From 61eccf34f3fd2e26b111fae7125a9423342c6765 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 1 Aug 2013 17:31:00 +0200 Subject: [PATCH] Create ly:event-warning function --- scm/music-functions.scm | 6 ++++++ 1 file changed, 6 insertions(+) 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. -- 2.39.2