Don't provide a default <?xml> declaration. The absence of the
authorChris Hanson <org/chris-hanson/cph>
Sun, 31 Dec 2006 05:59:47 +0000 (05:59 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sun, 31 Dec 2006 05:59:47 +0000 (05:59 +0000)
declaration is equivalent to its presence, and avoids confusing
non-XML browsers.

v7/src/ssp/xhtml-expander.scm

index 39ea6c7bab70289a6b546900fccca8ccf822dd50..a78ddea611dfdd9b79d53836e9ce69f3ee3fb202 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml-expander.scm,v 1.10 2006/07/26 19:04:41 cph Exp $
+$Id: xhtml-expander.scm,v 1.11 2006/12/31 05:59:47 cph Exp $
 
 Copyright 2002,2003,2004,2006 Massachusetts Institute of Technology
 
@@ -35,13 +35,6 @@ USA.
   (let ((document
         (read/expand-xml-file pathname
                               (make-expansion-environment pathname))))
-    (if (not (xml-document-declaration document))
-       (begin
-         (set-xml-document-declaration! document
-                                        (make-xml-declaration "1.0" #f #f))
-         (set-xml-document-misc-1! document
-                                   (cons "\n"
-                                         (xml-document-misc-1 document)))))
     (if (not (xml-document-dtd document))
        (begin
          (set-xml-document-dtd! document html-1.0-dtd)