diff options
author | Stefan Monnier <[email protected]> | 2009-11-05 21:01:32 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2009-11-05 21:01:32 +0000 |
commit | 2adaf05797dbf20e645f0357dcf22fe308ae7bbe (patch) | |
tree | 8886c6e992f0fd1652ac5dc61264f5c37899cd6b /lisp/nxml/rng-parse.el | |
parent | 81ad75af15f169655ba4c8eada78782367cabbf0 (diff) |
* nxml/xsd-regexp.el (xsdre-gen-categories):
* nxml/xmltok.el (xmltok-parse-entity):
* nxml/rng-parse.el (rng-parse-validate-file):
* nxml/rng-maint.el (rng-format-manual, rng-manual-output-force-new-line):
* nxml/rng-loc.el (rng-save-schema-location-1):
* nxml/rng-cmpct.el (rng-c-parse-file):
* nxml/nxml-maint.el (nxml-insert-target-repertoire-glyph-set):
* nxml/nxml-parse.el (nxml-parse-file): Use with-current-buffer.
Diffstat (limited to 'lisp/nxml/rng-parse.el')
-rw-r--r-- | lisp/nxml/rng-parse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/nxml/rng-parse.el b/lisp/nxml/rng-parse.el index d628e734f4..d4ed32d6c1 100644 --- a/lisp/nxml/rng-parse.el +++ b/lisp/nxml/rng-parse.el @@ -40,8 +40,7 @@ The returned list has the same form as that returned by for validation, such as returned by the function `rng-c-load-schema'. If the XML document is invalid with respect to schema, an error will be signaled in the same way as when it is not well-formed." - (save-excursion - (set-buffer (nxml-parse-find-file file)) + (with-current-buffer (nxml-parse-find-file file) (unwind-protect (let ((nxml-parse-file-name file) (nxml-validate-function 'rng-parse-do-validate) |