* lisp/nxml/nxml-util.el (nxml-with-unmodifying-text-property-changes):
Remove. * lisp/nxml/rng-valid.el (rng-validate-mode) (rng-after-change-function, rng-do-some-validation): * lisp/nxml/rng-maint.el (rng-validate-buffer): * lisp/nxml/nxml-rap.el (nxml-tokenize-forward, nxml-ensure-scan-up-to-date): * lisp/nxml/nxml-outln.el (nxml-show-all, nxml-set-outline-state): * lisp/nxml/nxml-mode.el (nxml-mode, nxml-degrade, nxml-after-change) (nxml-extend-after-change-region): Use with-silent-modifications.
This commit is contained in:
parent
a320a2dbc9
commit
7e74b0fb88
7 changed files with 23 additions and 33 deletions
|
@ -244,7 +244,7 @@ to use for finding the schema."
|
|||
(> (prefix-numeric-value arg) 0)))
|
||||
(save-restriction
|
||||
(widen)
|
||||
(nxml-with-unmodifying-text-property-changes
|
||||
(with-silent-modifications
|
||||
(rng-clear-cached-state (point-min) (point-max)))
|
||||
;; 1+ to clear empty overlays at (point-max)
|
||||
(rng-clear-overlays (point-min) (1+ (point-max)))
|
||||
|
@ -305,7 +305,7 @@ The schema is set like `rng-auto-set-schema'."
|
|||
|
||||
(defun rng-after-change-function (start end pre-change-len)
|
||||
(setq rng-message-overlay-inhibit-point nil)
|
||||
(nxml-with-unmodifying-text-property-changes
|
||||
(with-silent-modifications
|
||||
(rng-clear-cached-state start end))
|
||||
;; rng-validate-up-to-date-end holds the position before the change
|
||||
;; Adjust it to reflect the change.
|
||||
|
@ -469,7 +469,7 @@ The schema is set like `rng-auto-set-schema'."
|
|||
(condition-case-unless-debug err
|
||||
(and (rng-validate-prepare)
|
||||
(let ((rng-dt-namespace-context-getter '(nxml-ns-get-context)))
|
||||
(nxml-with-unmodifying-text-property-changes
|
||||
(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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue