diff options
| author | Alan Mackenzie <acm@muc.de> | 2015-03-20 15:39:37 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2015-03-20 15:39:37 +0000 |
| commit | 932d0fdb4fb217adb4e894b595c2294abc4fef3e (patch) | |
| tree | 48eb3e014d1d2985d8b7465feab5702f886a7ee0 /lisp/font-lock.el | |
| parent | 1fcc552ac27503c502a9a6e6cf06268e6018db51 (diff) | |
| download | emacs-932d0fdb4fb217adb4e894b595c2294abc4fef3e.tar.gz | |
Fix debbugs#20146
* font-lock.el (font-lock-extend-jit-lock-region-after-change):
Return the calculated values, as per spec.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 6ec6c9f1196..1838a0f02b4 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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. |