summaryrefslogtreecommitdiff
path: root/lisp/font-lock.el
diff options
context:
space:
mode:
authorKaroly Lorentey <lorentey@elte.hu>2005-03-19 17:55:13 +0000
committerKaroly Lorentey <lorentey@elte.hu>2005-03-19 17:55:13 +0000
commit392711ede18168618ac6eedd4fdf5910d11a2714 (patch)
tree29940aa43a5fb4527b4111db7fb7aa2b57b444fd /lisp/font-lock.el
parent04e9296582b1bbe7b2c5911691d9fbe4a9581382 (diff)
parent951f97e67d904729032b476caf5f7c2e7e303d73 (diff)
downloademacs-392711ede18168618ac6eedd4fdf5910d11a2714.tar.gz
emacs-392711ede18168618ac6eedd4fdf5910d11a2714.tar.bz2
emacs-392711ede18168618ac6eedd4fdf5910d11a2714.zip
Merged from miles@gnu.org--gnu-2005 (patch 39-44, 184-191)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-184 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-185 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-186 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-187 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-188 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-189 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-190 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-191 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-39 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-40 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-41 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-42 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-43 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-44 Merge from emacs--cvs-trunk--0 git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-311
Diffstat (limited to 'lisp/font-lock.el')
-rw-r--r--lisp/font-lock.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index f2cd0985958..715d418816a 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -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)