From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 20 Oct 2006 13:56:57 +0000 (+0000)
Subject: (pango-description-regexp-comma): Remove ^
X-Git-Tag: release/2.10.0-2~139
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d459d5c3d33ed343588814fef90fe4a95ba96186;p=lilypond.git

(pango-description-regexp-comma): Remove ^
anchor.
---

diff --git a/ChangeLog b/ChangeLog
index edae1ca816..11291e3971 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-10-20  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* scm/output-svg.scm (pango-description-regexp-comma): Remove ^
+	anchor.
+
 	* VERSION (PATCH_LEVEL): bump version.
 
 2006-10-19  Han-Wen Nienhuys  <hanwen@lilypond.org>
diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 2e953a94b2..27dfe4e74a 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*