From: Patrick McCarty <pnorcks@gmail.com>
Date: Sun, 30 Aug 2009 00:37:18 +0000 (-0700)
Subject: SVG backend: robustify glyph-matching regexp
X-Git-Tag: release/2.13.4-1~114
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=194a147b87d248a4a7a255f0f647f04392d48f54;p=lilypond.git

SVG backend: robustify glyph-matching regexp

Use the [:space:] POSIX character class instead of [\r\n\t ]; it is more
legible, and it also accounts for formfeeds and vertical tabs too.
---

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 0d5dda4e95..7d7a6b3437 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -186,12 +186,12 @@
 ;;
 (define (glyph-element-regexp name)
   (make-regexp (string-append "<glyph"
-			      "(([\r\n\t ]+[-a-z]+=\"[^\"]*\")+)?"
-			      "[\r\n\t ]+glyph-name=\"("
+			      "(([[:space:]]+[-a-z]+=\"[^\"]*\")+)?"
+			      "[[:space:]]+glyph-name=\"("
 			      name
 			      ")\""
-			      "(([\r\n\t ]+[-a-z]+=\"[^\"]*\")+)?"
-			      "([\r\n\t ]+)?"
+			      "(([[:space:]]+[-a-z]+=\"[^\"]*\")+)?"
+			      "([[:space:]]+)?"
 			      "/>")))
 
 (define (extract-glyph all-glyphs name size . rest)