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 0d5dda4e95e19d43cf118f8225b99b40ced64459..7d7a6b343717a07b987642dbe7a359fa0c19fdf7 100644 (file)
--- 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)