Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 7b0d5d0658aead0f69b1da9ad422f46647cce5a3..189f960ff696a9cc81babab737149e59af3c76be 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -210,7 +210,7 @@ Returns `obj'.
   "create a repeat music expression, with all properties initialized properly"
   (let ((talts (if (< times (length alts))
                   (begin
-                    (ly:warning (_ "More alternatives than repeats. Junking excess alternatives"))
+                    (ly:warning (_ "More alternatives than repeats.  Junking excess alternatives"))
                     (take alts times))
                   alts))
        (r (make-repeated-music name)))
@@ -745,7 +745,7 @@ Syntax:
              (set! (ly:music-property music 'quoted-events) quoted-vector)
              (set! (ly:music-property music 'iterator-ctor)
                    ly:quote-iterator::constructor))
-           (ly:warning (_ "can't find quoted music `~S'" quoted-name))))
+           (ly:warning (_ "cannot find quoted music: `~S'" quoted-name))))
     music))