From 194a147b87d248a4a7a255f0f647f04392d48f54 Mon Sep 17 00:00:00 2001
From: Patrick McCarty <pnorcks@gmail.com>
Date: Sat, 29 Aug 2009 17:37:18 -0700
Subject: [PATCH] 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.
---
 scm/output-svg.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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)
-- 
2.39.5