From: David Kastrup <dak@gnu.org>
Date: Thu, 1 Aug 2013 15:30:23 +0000 (+0200)
Subject: Let ly:music-message and ly:music-warning accept additional arguments for format
X-Git-Tag: release/2.17.24-1~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fe37d3cbc1f095a36e65d8ae6f400465e5aab62d;p=lilypond.git

Let ly:music-message and ly:music-warning accept additional arguments for format
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index eed6f7cd0a..f4c27bf973 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -879,17 +879,17 @@ actually fully cloned."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; warn for bare chords at start.
 
-(define-public (ly:music-message music msg)
+(define-public (ly:music-message music msg . rest)
   (let ((ip (ly:music-property music 'origin)))
     (if (ly:input-location? ip)
-        (ly:input-message ip msg)
-        (ly:message msg))))
+        (apply ly:input-message ip msg rest)
+        (apply ly:message msg rest))))
 
-(define-public (ly:music-warning music msg)
+(define-public (ly:music-warning music msg . rest)
   (let ((ip (ly:music-property music 'origin)))
     (if (ly:input-location? ip)
-        (ly:input-warning ip msg)
-        (ly:warning msg))))
+        (apply ly:input-warning ip msg rest)
+        (apply ly:warning msg rest))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;