xml.el can't handle some doctypes

[mah@everybody.org (Mark A. Hershberger)]

Parsing the following valid XML causes an "XML: Invalid
character":

<?xml version="1.0"?>

<!DOCTYPE rdf:RDF [
<!ENTITY % HTMLlat1 PUBLIC
 "-//W3C//ENTITIES Latin 1 for XHTML//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent">
%HTMLlat1;
]>

<rdf:RDF/>

Following patch fixes the problem:

*** lisp/xml.el-orig   Mon Mar 10 16:53:06 2003
--- lisp/xml.el        Mon Mar 10 16:52:53 2003
***************
*** 323,328 ****
--- 323,329 ----
    (condition-case nil
        (progn
        (forward-word 1)  ;; name of the document
+       (goto-char (- (re-search-forward "[[:space:]]") 1))
        (goto-char (- (re-search-forward "[^[:space:]]") 1))
        (if (looking-at "\\[")
            (re-search-forward "\\][[:space:]]*>" end)

Diff finished at Mon Mar 10 16:53:15