2 files changed, 13 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f2e9987fe5..a780b08e49c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2015-04-05  Alan Mackenzie  <acm@muc.de>
 
+        * jit-lock.el (jit-lock-after-change): Widen the buffer only
+        whilst putting the 'fontified text properties.
+
+2015-04-05  Alan Mackenzie  <acm@muc.de>
+
         Rationalize use of c[ad]+r, expunging cl-c[ad]\{3,4\}r.
         Also expunge eudc-c[ad]+r.
 
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index d5651c62811..5f9196da645 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -650,14 +650,14 @@ will take place when text is fontified stealthily."
     (let ((jit-lock-start start)
           (jit-lock-end end))
       (with-buffer-prepared-for-jit-lock
-          (save-restriction
-            (widen)
-            (run-hook-with-args 'jit-lock-after-change-extend-region-functions
-                                start end old-len)
-            ;; Make sure we change at least one char (in case of deletions).
-            (setq jit-lock-end (min (max jit-lock-end (1+ start)) (point-max)))
-            ;; Request refontification.
-            (put-text-property jit-lock-start jit-lock-end 'fontified nil)))
+       (run-hook-with-args 'jit-lock-after-change-extend-region-functions
+                           start end old-len)
+       ;; Make sure we change at least one char (in case of deletions).
+       (setq jit-lock-end (min (max jit-lock-end (1+ start)) (point-max)))
+       ;; Request refontification.
+       (save-restriction
+         (widen)
+         (put-text-property jit-lock-start jit-lock-end 'fontified nil)))
       ;; Mark the change for deferred contextual refontification.
       (when jit-lock-context-unfontify-pos
         (setq jit-lock-context-unfontify-pos