mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix debbugs#20146

Browse source 
* font-lock.el (font-lock-extend-jit-lock-region-after-change):
Return the calculated values, as per spec.
This commit is contained in:
Alan Mackenzie 2015-03-20 15:39:37 +00:00
parent 1fcc552ac2
commit 932d0fdb4f
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2015-03-20 Alan Mackenzie <acm@muc.de>
Fix debbugs#20146
* font-lock.el (font-lock-extend-jit-lock-region-after-change):
Return the calculated values, as per spec.
2015-03-20 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/ruby-mode.el (ruby-font-lock-keywords): Move `at_exit'

8
lisp/font-lock.el
View file

@ -1325,11 +1325,13 @@ This function does 2 things:
(when (memq 'font-lock-extend-region-wholelines
font-lock-extend-region-functions)
(goto-char beg)
(setq jit-lock-start (min jit-lock-start (line-beginning-position)))
(setq beg (min jit-lock-start (line-beginning-position)))
(goto-char end)
(setq jit-lock-end
(setq end
(max jit-lock-end
(if (bolp) (point) (line-beginning-position 2))))))))
(if (bolp) (point) (line-beginning-position 2)))))
(setq jit-lock-start beg
jit-lock-end end))))
(defun font-lock-fontify-block (&optional arg)
"Fontify some lines the way `font-lock-fontify-buffer' would.