From c1d18b1d59ef3f0d01c8a1112976241feba2f74a Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Sun, 5 Apr 2015 14:40:57 +0000 Subject: [PATCH] Tidy up fix to debbugs#20240. * jit-lock.el (jit-lock-after-change): Widen the buffer only whilst putting the 'fontified text properties. --- lisp/ChangeLog | 5 +++++ lisp/jit-lock.el | 16 ++++++++-------- 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,3 +1,8 @@ +2015-04-05 Alan Mackenzie + + * jit-lock.el (jit-lock-after-change): Widen the buffer only + whilst putting the 'fontified text properties. + 2015-04-05 Alan Mackenzie Rationalize use of c[ad]+r, expunging cl-c[ad]\{3,4\}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 -- 2.39.2