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

* lisp/jit-lock.el (jit-lock--run-functions): Fix min/max copy&paste error.

Browse source
This commit is contained in:
Stefan Monnier 2015-03-31 09:35:42 -04:00
parent 81b0eade25
commit 5a7380aa27
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2015-03-31 Stefan Monnier <monnier@iro.umontreal.ca>
* jit-lock.el (jit-lock--run-functions): Fix min/max copy&paste error.
Let jit-lock know the result of font-lock-extend-region-functions.
* jit-lock.el (jit-lock--run-functions): New function.
(jit-lock-fontify-now): Use it. Handle fontification bounds more

7
lisp/jit-lock.el
View file

@ -369,8 +369,8 @@ is active."
;; already run to avoid running them redundantly when we get to
;; those chunks.
(setq tight-beg (max (or tight-beg (point-min)) this-beg))
(setq tight-end (max (or tight-end (point-max)) this-end))
(setq loose-beg (max loose-beg this-beg))
(setq tight-end (min (or tight-end (point-max)) this-end))
(setq loose-beg (min loose-beg this-beg))
(setq loose-end (max loose-end this-end))
nil)))
`(,(min tight-beg beg) ,(max tight-end end) ,loose-beg ,loose-end)))
@ -417,7 +417,8 @@ Defaults to the whole buffer. END can be out of bounds."
(quit (put-text-property start next 'fontified nil)
(signal (car err) (cdr err))))))
;; In case we fontified more than requested, take note.
;; In case we fontified more than requested, take advantage of the
;; good news.
(when (or (< tight-beg start) (> tight-end next))
(put-text-property tight-beg tight-end 'fontified t))