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

anchor.

diff --git a/ChangeLog b/ChangeLog
index edae1ca81633ab78d60f6297b49fce9ef05d48f6..11291e397135105472db9e73be8e83e9f3e2d19b 100644 (file)
--- 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 2e953a94b29591dc8236c33d23b3e6f18eb95cbd..27dfe4e74aafbc6b3c81d7f98038e54f444a41bc 100644 (file)
--- 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*