X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-svg.scm;h=b0bf088b3697fb2867bd267a5fdd2852e9a1554b;hb=e0caac883553c23c92d4b51070b721fe2207ddcb;hp=2e953a94b29591dc8236c33d23b3e6f18eb95cbd;hpb=3512ac1f9e6ac4d96f0a486ba8f5968ccf0ce507;p=lilypond.git

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 2e953a94b2..b0bf088b36 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -105,10 +105,10 @@
 	 (map (lambda (x) (char->entity x)) (string->list string))))
 
 (define pango-description-regexp-comma
-  (make-regexp "^([^,]+), ?([-a-zA-Z_]*) ([0-9.]+)$"))
+  (make-regexp "([^,]+), ?([-a-zA-Z_]*) ([0-9.]+)$"))
 
 (define pango-description-regexp-nocomma
-  (make-regexp "^([^ ]+) ([-a-zA-Z_]*) ?([0-9.]+)$"))
+  (make-regexp "([^ ]+) ([-a-zA-Z_]*) ?([0-9.]+)$"))
 
 (define (pango-description-to-svg-font str)
   (let*
@@ -129,7 +129,7 @@
 	  (set! size
 		(string->number (match:substring match 3))))
 
-	(ly:warning (_ "can't decypher Pango description: ~a") str))
+	(ly:warning (_ "cannot decypher Pango description: ~a") str))
 
     (set! style
 	  (if (string? style)