(compilation-error-regexp-alist-alist) extend irix for NAG Fortran and add ftnchek-*

[gnu-emacs] / lisp / xml.el

diff --git a/lisp/xml.el b/lisp/xml.el
index dd6d5095bc21876fd4e30e8f066ce43c2faffef9..b0d5d45f98d191d5139b2bc060ac3a1cea75bbfe 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -598,8 +598,8 @@ This follows the rule [28] in the XML specifications."
              nil)
             (t
              (if xml-validating-parser 
-                 error "XML: (Validity) Invalid element type in the DTD")))
-
+                 (error "XML: (Validity) Invalid element type in the DTD"))))
+           
            ;;  rule [45]: the element declaration must be unique
            (if (and (assoc element dtd)
                     xml-validating-parser)
@@ -727,14 +727,9 @@ This follows the rule [28] in the XML specifications."
                                (match-string 1 this-part)))))))
 
        (cond ((null children)
-              (if (and (eq (length expansion) 1)
-                       (stringp (cadr expansion)))
-                  (setq children (concat prev-part expansion))
-                (if (stringp (car expansion))
-                    (setq children
-                          (list (concat prev-part (car expansion))
-                                (append (cdr expansion))))
-                  (setq children (append expansion prev-part)))))
+              ;; FIXME: If we have an entity that expands into XML, this won't work.
+              (setq children
+                    (concat prev-part expansion)))
              ((stringp children)
               (if (stringp expansion)
                   (setq children (concat children prev-part expansion))