xml.el fixes

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b3f6b78c57a6bdf6f2dbd4256e5e91e25dc5a27..d58ced9fbe48ab78b2951c7ccdf381c52bd14495 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-02  Mark A. Hershberger  <mah@everybody.org>
+
+       * xml.el (xml-syntax-table): Allow xml.el to compile in xemacs.
+       (xml-parse-tag): Join strings separated by a comment properly.
+
 2005-11-02  Andreas Schwab  <schwab@suse.de>
 
        * emacs-lisp/byte-opt.el (byte-optimize-pure-func): Quote the

diff --git a/lisp/xml.el b/lisp/xml.el
index 5fdb6f33b188c55f0641b1bbceca39190609904d..5b83f4d3479624d29358b0d16edb106fb9257639 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -279,10 +279,11 @@ If PARSE-NS is non-nil, then QNAMES are expanded."
     (modify-syntax-entry ?. "_" table)
     (modify-syntax-entry ?: "_" table)
     ;; XML [89]
-    (dolist (c '(#x00B7 #x02D0 #x02D1 #x0387 #x0640 #x0E46 #x0EC6 #x3005
-                #x3031 #x3032 #x3033 #x3034 #x3035 #x309D #x309E #x30FC
-                #x30FD #x30FE))
-      (modify-syntax-entry (decode-char 'ucs c) "w" table))
+    (unless (featurep 'xemacs)
+      (dolist (c '(#x00B7 #x02D0 #x02D1 #x0387 #x0640 #x0E46 #x0EC6 #x3005
+                         #x3031 #x3032 #x3033 #x3034 #x3035 #x309D #x309E #x30FC
+                         #x30FD #x30FE))
+       (modify-syntax-entry (decode-char 'ucs c) "w" table)))
     ;; Fixme: rest of [4]
     table)
   "Syntax table used by `xml-parse-region'.")
@@ -473,7 +474,7 @@ Returns one of:
                              (if (stringp expansion)
                                  (if (stringp (car children))
                                      ;; The two strings were separated by a comment.
-                                     (setq children (append (concat (car children) expansion)
+                                     (setq children (append (list (concat (car children) expansion))
                                                             (cdr children)))
                                    (setq children (append (list expansion) children)))
                                (setq children (append expansion children))))))))