diff options
Diffstat (limited to 'lisp/nxml/rng-valid.el')
| -rw-r--r-- | lisp/nxml/rng-valid.el | 37 |
1 files changed, 18 insertions, 19 deletions
diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el index ad5c9c7a15c..d82c8470d75 100644 --- a/lisp/nxml/rng-valid.el +++ b/lisp/nxml/rng-valid.el @@ -441,25 +441,24 @@ The schema is set like `rng-auto-set-schema'." (save-excursion (save-restriction (widen) - (nxml-with-invisible-motion - (condition-case-unless-debug err - (and (rng-validate-prepare) - (let ((rng-dt-namespace-context-getter '(nxml-ns-get-context))) - (with-silent-modifications - (rng-do-some-validation-1 continue-p-function)))) - ;; errors signaled from a function run by an idle timer - ;; are ignored; if we don't catch them, validation - ;; will get mysteriously stuck at a single place - (rng-compile-error - (message "Incorrect schema. %s" (nth 1 err)) - (rng-validate-mode 0) - nil) - (error - (message "Internal error in rng-validate-mode triggered at buffer position %d. %s" - (point) - (error-message-string err)) - (rng-validate-mode 0) - nil)))))) + (condition-case-unless-debug err + (and (rng-validate-prepare) + (let ((rng-dt-namespace-context-getter '(nxml-ns-get-context))) + (with-silent-modifications + (rng-do-some-validation-1 continue-p-function)))) + ;; errors signaled from a function run by an idle timer + ;; are ignored; if we don't catch them, validation + ;; will get mysteriously stuck at a single place + (rng-compile-error + (message "Incorrect schema. %s" (nth 1 err)) + (rng-validate-mode 0) + nil) + (error + (message "Internal error in rng-validate-mode triggered at buffer position %d. %s" + (point) + (error-message-string err)) + (rng-validate-mode 0) + nil))))) (defun rng-validate-prepare () "Prepare to do some validation, initializing point and the state. |