Restore colon as name-initial char.

diff --git a/v7/src/xml/xml-chars.scm b/v7/src/xml/xml-chars.scm
index d7fc34ff91e1c4a3489d5281a6c70075bcb188c2..ab7706a0848a0b4f1eaec9c89dc61b23a9abfc65 100644 (file)
--- a/v7/src/xml/xml-chars.scm
+++ b/v7/src/xml/xml-chars.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: xml-chars.scm,v 1.6 2003/07/30 19:43:55 cph Exp $
+$Id: xml-chars.scm,v 1.7 2004/02/26 01:58:53 cph Exp $
 
-Copyright 2001,2003 Massachusetts Institute of Technology
+Copyright 2001,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -384,7 +384,7 @@ USA.
 (define alphabet:name-initial
   (alphabet+ alphabet:xml-base-char
             alphabet:xml-ideographic
-            (string->alphabet "_")))
+            (string->alphabet "_:")))
 
 (define alphabet:name-subsequent               ;[4]
   (alphabet+ alphabet:xml-base-char