# HG changeset patch
# User Mark A. Hershberger <mah@everybody.org>
# Date 1138842431 0
# Node ID 6fef36718f37c70c65872c6c25e4dee5d94e9ade
# Parent  bf640be8a6922feb114677e78b87edc9e1a0db1b
use provided patch

diff -r bf640be8a692 -r 6fef36718f37 lisp/xml.el
--- a/lisp/xml.el	Thu Feb 02 01:02:31 2006 +0000
+++ b/lisp/xml.el	Thu Feb 02 01:07:11 2006 +0000
@@ -306,16 +306,16 @@
 If PARSE-DTD is non-nil, the DTD is parsed rather than skipped,
 and returned as the first element of the list.
 If PARSE-NS is non-nil, then QNAMES are expanded."
-  (save-excursion
-    (if buffer
-	(set-buffer buffer))
-    (save-restriction
-      (narrow-to-region beg end)
-      ;; Use fixed syntax table to ensure regexp char classes and syntax
-      ;; specs DTRT.
-      (with-syntax-table (standard-syntax-table)
-	(let ((case-fold-search nil)	; XML is case-sensitive.
-	      xml result dtd)
+  ;; Use fixed syntax table to ensure regexp char classes and syntax
+  ;; specs DTRT.
+  (with-syntax-table (standard-syntax-table)
+    (let ((case-fold-search nil)	; XML is case-sensitive.
+ 	  xml result dtd)
+      (save-excursion
+ 	(if buffer
+ 	    (set-buffer buffer))
+ 	(save-restriction
+ 	  (narrow-to-region beg end)
 	  (goto-char (point-min))
 	  (while (not (eobp))
 	    (if (search-forward "<" nil t)