procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tidy up fix to debbugs#20240.

Browse source 
* jit-lock.el (jit-lock-after-change): Widen the buffer only
whilst putting the 'fontified text properties.
This commit is contained in:
Alan Mackenzie 2015-04-05 14:40:57 +00:00
parent bf8194688e
commit c1d18b1d59
2 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

16
lisp/jit-lock.el
View file

@ -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