andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(font-lock-lines-before): New user option.

Browse source 
(font-lock-after-change-function): Obey it.
This commit is contained in:
Richard M. Stallman 2005-03-17 23:44:19 +00:00
parent 231717ee73
commit f9d0b1eda1
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/font-lock.el
View file

@ -292,6 +292,12 @@ If a number, only buffers greater than this size have fontification messages."
(other :tag "always" t)
(integer :tag "size"))
:group 'font-lock)
(defcustom font-lock-lines-before 1
"*Number of lines before the changed text to include in refontification."
:type 'integer
:group 'font-lock
:version "22.1")
;; Originally these variable values were face names such as `bold' etc.
@ -1062,7 +1068,8 @@ what properties to clear before refontifying a region.")
(save-match-data
;; Rescan between start of lines enclosing the region.
(font-lock-fontify-region
(progn (goto-char beg) (beginning-of-line) (point))
(progn (goto-char beg)
(forward-line (- font-lock-lines-before)) (point))
(progn (goto-char end) (forward-line 1) (point)))))))
(defun font-lock-fontify-block (&optional arg)