diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 13:25:36 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 13:25:36 -0400 |
commit | 3c7f05133c80ccb48b5adeeed28a36a4039bfe45 (patch) | |
tree | 6151dc0db54db9658d54e62431f66d593e50e370 /lisp/nxml/rng-valid.el | |
parent | 42fd433acabc97cec035748be0508234bda39750 (diff) |
(nxml-with-invisible-motion): Delete macro.
Don't use this macro any more since it doesn't do anything since Emacs-25
changed the default of `inhibit-point-motion-hooks` to t.
* lisp/nxml/nxml-util.el (nxml-with-invisible-motion): Delete macro.
* lisp/nxml/nxml-mode.el (nxml-mode, nxml-cleanup):
* lisp/nxml/rng-valid.el (rng-do-some-validation):
* lisp/nxml/rng-nxml.el (rng-set-state-after): Don't use it.
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. |