mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(font-lock-extend-jit-lock-region-after-change): New fun.

Browse Source 
(font-lock-turn-on-thing-lock): Use it.
This commit is contained in:
Stefan Monnier 2006-08-01 18:58:18 +00:00
parent 374f4f51df
commit 4cffd22137
2 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2006-08-01 Stefan Monnier <monnier@iro.umontreal.ca>
* font-lock.el (font-lock-extend-jit-lock-region-after-change): New fun.
(font-lock-turn-on-thing-lock): Use it.
* longlines.el (longlines-show-region): Make it work on read-only
buffers as well.

35
lisp/font-lock.el
View File

@ -893,7 +893,11 @@ The value of this variable is used when Font Lock mode is turned on."
(set (make-local-variable 'font-lock-fontified) t)
;; Use jit-lock.
(jit-lock-register 'font-lock-fontify-region
(not font-lock-keywords-only))))))
(not font-lock-keywords-only))
;; Tell jit-lock how we extend the region to refontify.
(add-hook 'jit-lock-after-change-extend-region-functions
'font-lock-extend-jit-lock-region-after-change
nil t)))))
(defun font-lock-turn-off-thing-lock ()
(cond ((and (boundp 'fast-lock-mode) fast-lock-mode)
@ -1096,6 +1100,35 @@ what properties to clear before refontifying a region.")
end (progn (goto-char end) (line-beginning-position 2))))
(font-lock-fontify-region beg end)))))
(defvar jit-lock-start) (defvar jit-lock-end)
(defun font-lock-extend-jit-lock-region-after-change (beg end old-len)
(let ((region (font-lock-extend-region beg end old-len)))
(if region
(setq jit-lock-start (min jit-lock-start (car region))
jit-lock-end (max jit-lock-end (cdr region)))
(save-excursion
(goto-char beg)
(forward-line 0)
(setq jit-lock-start
(min jit-lock-start
(if (and (not (eobp))
(get-text-property (point) 'font-lock-multiline))
(or (previous-single-property-change
(point) 'font-lock-multiline)
(point-min))
(point))))
(goto-char end)
(forward-line 1)
(setq jit-lock-end
(max jit-lock-end
(if (and (not (bobp))
(get-text-property (1- (point))
'font-lock-multiline))
(or (next-single-property-change
(1- (point)) 'font-lock-multiline)
(point-max))
(point))))))))
(defun font-lock-fontify-block (&optional arg)
"Fontify some lines the way `font-lock-fontify-buffer' would.
The lines could be a function or paragraph, or a specified number of lines.