[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/xml.el
From: |
Mark A. Hershberger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/xml.el |
Date: |
Thu, 02 Feb 2006 01:07:12 +0000 |
Index: emacs/lisp/xml.el
diff -u emacs/lisp/xml.el:1.51 emacs/lisp/xml.el:1.52
--- emacs/lisp/xml.el:1.51 Thu Feb 2 01:02:31 2006
+++ emacs/lisp/xml.el Thu Feb 2 01:07:11 2006
@@ -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)