From: Neil Puttock <n.puttock@gmail.com>
Date: Mon, 22 Sep 2008 21:30:48 +0000 (+0100)
Subject: Fix warning messages in music-functions.scm and paper.scm.
X-Git-Tag: release/2.11.60-1~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c829306cde358aea95ce565af8417e7e16c01669;p=lilypond.git

Fix warning messages in music-functions.scm and paper.scm.

- move parentheses so that variables aren't inside gettext alias subform.
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 0ec10069e0..0344e4bf58 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -1116,7 +1116,7 @@ use GrandStaff as a context. "
 				   '()
 				   context))
       (else
-       (ly:warning (_ "unknown accidental style: ~S" style))
+       (ly:warning (_ "unknown accidental style: ~S") style)
        (make-sequential-music '()))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/scm/paper.scm b/scm/paper.scm
index 0ff9fbc852..d4a1f42f3f 100644
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -244,7 +244,7 @@ size. SZ is in points"
     
     (cond
      ((not is-paper?)
-      (ly:warning (_ "This is not a \\layout {} object, ~S" module)))
+      (ly:warning (_ "This is not a \\layout {} object, ~S") module))
      ((pair? entry)
 
       (set! entry (eval (cdr entry) module))
@@ -256,7 +256,7 @@ size. SZ is in points"
       (module-define! module 'landscape 
 		      (if landscape? #t #f)))
      (else
-      (ly:warning (_ "Unknown papersize: ~a" name))))))
+      (ly:warning (_ "Unknown paper size: ~a") name)))))
 
 (define-safe-public (set-default-paper-size name . rest)
   (internal-set-paper-size