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 <lennart.borgman@gmail.com>
* nxml/nxml-mode.el (nxml-extend-after-change-region): Never
return t (Bug#3898).
2010-01-16 Frédéric Perrin <frederic.perrin@resel.fr> (tiny change)
* vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
......
......@@ -882,8 +882,8 @@ Called with `font-lock-beg' and `font-lock-end' dynamically bound."
(defun nxml-extend-after-change-region (start end pre-change-length)
(unless nxml-degraded
(setq nxml-last-fontify-end nil)
(nxml-with-degradation-on-error 'nxml-extend-after-change-region
(let ((region (nxml-with-degradation-on-error
'nxml-extend-after-change-region
(save-excursion
(save-restriction
(widen)
......@@ -892,6 +892,7 @@ Called with `font-lock-beg' and `font-lock-end' dynamically bound."
(nxml-with-unmodifying-text-property-changes
(nxml-extend-after-change-region1
start end pre-change-length)))))))))
(if (consp region) region))))
(defun nxml-extend-after-change-region1 (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