Commit 116bd1ee authored by Chong Yidong's avatar Chong Yidong
Browse files

Fix return value of nxml-extend-after-change-region.

* nxml/nxml-mode.el (nxml-extend-after-change-region): Never return t (Bug#3898).
parent 2784cd7a
2010-01-16 Lennart Borgman <>
* nxml/nxml-mode.el (nxml-extend-after-change-region): Never
return t (Bug#3898).
2010-01-16 Frédéric Perrin <> (tiny change) 2010-01-16 Frédéric Perrin <> (tiny change)
* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we * vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
...@@ -882,16 +882,17 @@ Called with `font-lock-beg' and `font-lock-end' dynamically bound." ...@@ -882,16 +882,17 @@ Called with `font-lock-beg' and `font-lock-end' dynamically bound."
(defun nxml-extend-after-change-region (start end pre-change-length) (defun nxml-extend-after-change-region (start end pre-change-length)
(unless nxml-degraded (unless nxml-degraded
(setq nxml-last-fontify-end nil) (setq nxml-last-fontify-end nil)
(let ((region (nxml-with-degradation-on-error
(nxml-with-degradation-on-error 'nxml-extend-after-change-region 'nxml-extend-after-change-region
(save-excursion (save-excursion
(save-restriction (save-restriction
(widen) (widen)
(save-match-data (save-match-data
(nxml-with-invisible-motion (nxml-with-invisible-motion
(nxml-with-unmodifying-text-property-changes (nxml-with-unmodifying-text-property-changes
(nxml-extend-after-change-region1 (nxml-extend-after-change-region1
start end pre-change-length))))))))) start end pre-change-length)))))))))
(if (consp region) region))))
(defun nxml-extend-after-change-region1 (start end pre-change-length) (defun nxml-extend-after-change-region1 (start end pre-change-length)
(let* ((region (nxml-after-change1 start end pre-change-length)) (let* ((region (nxml-after-change1 start end pre-change-length))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment