Mercurial > emacs
changeset 68535:6fef36718f37
use provided patch
| author | Mark A. Hershberger <mah@everybody.org> |
|---|---|
| date | Thu, 02 Feb 2006 01:07:11 +0000 |
| parents | bf640be8a692 |
| children | 4bad00cd1b68 |
| files | lisp/xml.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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)