annotate lisp/lazy-lock.el @ 18999:4d5237dec736 libc-970727 libc-970728

Recognize SunOS 3.x.
author Per Bothner <bothner@cygnus.com>
date Sat, 26 Jul 1997 19:01:01 +0000
parents dec0f8a4fd02
children 0ccfc7a0662f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
3 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Simon Marshall <simon@gnu.ai.mit.edu>
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Keywords: faces files
18980
dec0f8a4fd02 Wrap minibuffer-auto-raise where nec. to stop frame raising.
Simon Marshall <simon@gnu.org>
parents: 18464
diff changeset
7 ;; Version: 2.08.04
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;;; This file is part of GNU Emacs.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
28 ;; Purpose:
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
29 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
30 ;; Lazy Lock mode is a Font Lock support mode.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
31 ;; It makes visiting buffers in Font Lock mode faster by making fontification
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
32 ;; be demand-driven, deferred and stealthy, so that fontification only occurs
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
33 ;; when, and where, necessary.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; See caveats and feedback below.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; See also the fast-lock package. (But don't use them at the same time!)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; Installation:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; Put in your ~/.emacs:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;;
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
42 ;; (setq font-lock-support-mode 'lazy-lock-mode)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;; Start up a new Emacs and use font-lock as usual (except that you can use the
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;; so-called "gaudier" fontification regexps on big files without frustration).
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; In a buffer (which has `font-lock-mode' enabled) which is at least
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; `lazy-lock-minimum-size' characters long, buffer fontification will not
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;; occur and only the visible portion of the buffer will be fontified. Motion
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; around the buffer will fontify those visible portions not previously
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;; fontified. If stealth fontification is enabled, buffer fontification will
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;; occur in invisible parts of the buffer after `lazy-lock-stealth-time'
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 ;; seconds of idle time. If on-the-fly fontification is deferred, on-the-fly
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;; fontification will occur after `lazy-lock-defer-time' seconds of idle time.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;; User-visible differences with version 1:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ;; - Version 2 can defer on-the-fly fontification. Therefore you need not, and
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;; should not, use defer-lock.el with this version of lazy-lock.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; A number of variables have changed meaning:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; - A value of nil for the variable `lazy-lock-minimum-size' means never turn
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; on demand-driven fontification. In version 1 this meant always turn on
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; demand-driven fontification. If you really want demand-driven fontification
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; regardless of buffer size, set this variable to 0.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ;; - The variable `lazy-lock-stealth-lines' cannot have a nil value. In
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;; version 1 this meant use `window-height' as the maximum number of lines to
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;; fontify as a stealth chunk. This makes no sense; stealth fontification is
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ;; of a buffer, not a window.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ;; Implementation differences with version 1:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 ;; - Version 1 of lazy-lock.el is a bit of a hack. Version 1 demand-driven
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 ;; fontification, the core feature of lazy-lock.el, is implemented by placing a
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 ;; function on `post-command-hook'. This function fontifies where necessary,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 ;; i.e., where a window scroll has occurred. However, there are a number of
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 ;; problems with using `post-command-hook':
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;; (a) As the name suggests, `post-command-hook' is run after every command,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 ;; i.e., frequently and regardless of whether scrolling has occurred.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 ;; (b) Scrolling can occur during a command, when `post-command-hook' is not
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 ;; run, i.e., it is not necessarily run after scrolling has occurred.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 ;; (c) When `post-command-hook' is run, there is nothing to suggest where
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;; scrolling might have occurred, i.e., which windows have scrolled.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;; Thus lazy-lock.el's function is called almost as often as possible, usually
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 ;; when it need not be called, yet it is not always called when it is needed.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 ;; Also, lazy-lock.el's function must check each window to see if a scroll has
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 ;; occurred there. Worse still, lazy-lock.el's function must fontify a region
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 ;; twice as large as necessary to make sure the window is completely fontified.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 ;; Basically, `post-command-hook' is completely inappropriate for lazy-lock.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 ;; Ideally, we want to attach lazy-lock.el's function to a hook that is run
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 ;; only when scrolling occurs, e.g., `window-start' has changed, and tells us
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 ;; as much information as we need, i.e., the window and its new buffer region.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 ;; Richard Stallman implemented a `window-scroll-functions' for Emacs 19.30.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 ;; Functions on it are run when `window-start' has changed, and are supplied
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 ;; with the window and the window's new `window-start' position. (It would be
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 ;; better if it also supplied the window's new `window-end' position, but that
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 ;; is calculated as part of the redisplay process, and the functions on
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 ;; `window-scroll-functions' are run before redisplay has finished.) Thus, the
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 ;; hook deals with the above problems (a), (b) and (c).
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 ;; If only life was that easy. Version 2 demand-driven fontification is mostly
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 ;; implemented by placing a function on `window-scroll-functions'. However,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 ;; not all scrolling occurs when `window-start' has changed. A change in
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 ;; window size, e.g., via C-x 1, or a significant deletion, e.g., of a number
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
110 ;; of lines, causes text previously invisible (i.e., after `window-end') to
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
111 ;; become visible without changing `window-start'. Arguably, these events are
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
112 ;; not scrolling events, but fontification must occur for lazy-lock.el to work.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
113 ;; Hooks `window-size-change-functions' and `redisplay-end-trigger-functions'
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
114 ;; were added for these circumstances.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 ;;
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
116 ;; (Ben Wing thinks these hooks are "horribly horribly kludgy", and implemented
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 ;; a `pre-idle-hook', a `mother-of-all-post-command-hooks', for XEmacs 19.14.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 ;; He then hacked up a version 1 lazy-lock.el to use `pre-idle-hook' rather
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 ;; than `post-command-hook'. Whereas functions on `post-command-hook' are
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 ;; called almost as often as possible, functions on `pre-idle-hook' really are
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 ;; called as often as possible, even when the mouse moves and, on some systems,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 ;; while XEmacs is idle. Thus, the hook deals with the above problem (b), but
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 ;; unfortunately it makes (a) worse and does not address (c) at all.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 ;; I freely admit that `redisplay-end-trigger-functions' and, to a much lesser
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 ;; extent, `window-size-change-functions' are not pretty. However, I feel that
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 ;; a `window-scroll-functions' feature is cleaner than a `pre-idle-hook', and
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 ;; the result is faster and smaller, less intrusive and more targeted, code.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 ;; Since `pre-idle-hook' is pretty much like `post-command-hook', there is no
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 ;; point in making this version of lazy-lock.el work with it. Anyway, that's
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 ;; Lit 30 of my humble opinion.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 ;;
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
133 ;; Steve Baur reverted to a non-hacked version 1 lazy-lock.el for XEmacs 19.15
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
134 ;; and 20.0. Obviously, the above `post-command-hook' problems still apply.)
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
135 ;;
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 ;; - Version 1 stealth fontification is also implemented by placing a function
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 ;; on `post-command-hook'. This function waits for a given amount of time,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 ;; and, if Emacs remains idle, fontifies where necessary. Again, there are a
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 ;; number of problems with using `post-command-hook':
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 ;; (a) Functions on `post-command-hook' are run sequentially, so this function
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 ;; can interfere with other functions on the hook, and vice versa.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 ;; (b) This function waits for a given amount of time, so it can interfere with
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 ;; various features that are dealt with by Emacs after a command, e.g.,
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 ;; region highlighting, asynchronous updating and keystroke echoing.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 ;; (c) Fontification may be required during a command, when `post-command-hook'
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 ;; is not run. (Version 2 deferred fontification only.)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 ;; Again, `post-command-hook' is completely inappropriate for lazy-lock.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 ;; Richard Stallman and Morten Welinder implemented internal Timers and Idle
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 ;; Timers for Emacs 19.31. Functions can be run independently at given times
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 ;; or after given amounts of idle time. Thus, the feature deals with the above
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 ;; problems (a), (b) and (c). Version 2 deferral and stealth are implemented
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 ;; by functions on Idle Timers. (A function on XEmacs' `pre-idle-hook' is
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
155 ;; similar to an Emacs Idle Timer function with a fixed zero second timeout.)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
157 ;; - Version 1 has the following problems (relative to version 2):
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
158 ;;
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
159 ;; (a) It is slow when it does its job.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
160 ;; (b) It does not always do its job when it should.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
161 ;; (c) It slows all interaction (when it doesn't need to do its job).
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
162 ;; (d) It interferes with other package functions on `post-command-hook'.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
163 ;; (e) It interferes with Emacs things within the read-eval loop.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
164 ;;
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
165 ;; Ben's hacked-up lazy-lock.el 1.14 almost solved (b) but made (c) worse.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
166 ;;
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
167 ;; - Version 2 has the following additional features (relative to version 1):
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
168 ;;
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
169 ;; (a) It can defer fontification (both on-the-fly and on-scrolling).
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
170 ;; (b) It can fontify contextually (syntactically true on-the-fly).
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
171
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 ;; Caveats:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
174 ;; Lazy Lock mode does not work efficiently with Outline mode.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
175 ;; This is because when in Outline mode, although text may be not visible to
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
176 ;; you in the window, the text is visible to Emacs Lisp code (not surprisingly)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
177 ;; and Lazy Lock fontifies it mercilessly. Maybe it will be fixed one day.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 ;; Because buffer text is not necessarily fontified, other packages that expect
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 ;; buffer text to be fontified in Font Lock mode either might not work as
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 ;; expected, or might not display buffer text as expected. An example of the
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 ;; latter is `occur', which copies lines of buffer text into another buffer.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 ;; In Emacs 19.30, Lazy Lock mode does not ensure that an existing buffer is
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 ;; fontified if it is made visible via a minibuffer-less command that replaces
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 ;; an existing window's buffer (e.g., via the Buffers menu). Upgrade!
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 ;; In Emacs 19.30, Lazy Lock mode does not work well with Transient Mark mode
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 ;; or modes based on Comint mode (e.g., Shell mode), and also interferes with
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 ;; the echoing of keystrokes in the minibuffer. This is because of the way
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 ;; deferral and stealth have to be implemented for Emacs 19.30. Upgrade!
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 ;;
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
193 ;; Currently XEmacs does not have the features to support this version of
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
194 ;; lazy-lock.el. Maybe it will one day.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195
17587
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
196 ;; History:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
197 ;;
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
198 ;; 1.15--2.00:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
199 ;; - Rewrite for Emacs 19.30 and the features rms added to support lazy-lock.el
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
200 ;; so that it could work correctly and efficiently.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
201 ;; - Many thanks to those who reported bugs, fixed bugs, made suggestions or
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
202 ;; otherwise contributed in the version 1 cycle; Jari Aalto, Kevin Broadey,
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
203 ;; Ulrik Dickow, Bill Dubuque, Bob Glickstein, Boris Goldowsky,
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
204 ;; Jonas Jarnestrom, David Karr, Michael Kifer, Erik Naggum, Rick Sladkey,
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
205 ;; Jim Thompson, Ben Wing, Ilya Zakharevich, and Richard Stallman.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
206 ;; 2.00--2.01:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
207 ;; - Made `lazy-lock-fontify-after-command' always `sit-for' and so redisplay
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
208 ;; - Use `buffer-name' not `buffer-live-p' (Bill Dubuque hint)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
209 ;; - Made `lazy-lock-install' do `add-to-list' not `setq' of `current-buffer'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
210 ;; - Made `lazy-lock-fontify-after-install' loop over buffer list
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
211 ;; - Made `lazy-lock-arrange-before-change' to arrange `window-end' triggering
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
212 ;; - Made `lazy-lock-let-buffer-state' wrap both `befter-change-functions'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
213 ;; - Made `lazy-lock-fontify-region' do `condition-case' (Hyman Rosen report)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
214 ;; 2.01--2.02:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
215 ;; - Use `buffer-live-p' as `buffer-name' can barf (Richard Stanton report)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
216 ;; - Made `lazy-lock-install' set `font-lock-fontified' (Kevin Davidson report)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
217 ;; - Made `lazy-lock-install' add hooks only if needed
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
218 ;; - Made `lazy-lock-unstall' add `font-lock-after-change-function' if needed
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
219 ;; 2.02--2.03:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
220 ;; - Made `lazy-lock-fontify-region' do `condition-case' for `quit' too
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
221 ;; - Made `lazy-lock-mode' respect the value of `font-lock-inhibit-thing-lock'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
222 ;; - Added `lazy-lock-after-unfontify-buffer'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
223 ;; - Removed `lazy-lock-fontify-after-install' hack
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
224 ;; - Made `lazy-lock-fontify-after-scroll' not `set-buffer' to `window-buffer'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
225 ;; - Made `lazy-lock-fontify-after-trigger' not `set-buffer' to `window-buffer'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
226 ;; - Made `lazy-lock-fontify-after-idle' be interruptible (Scott Burson hint)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
227 ;; 2.03--2.04:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
228 ;; - Rewrite for Emacs 19.31 idle timers
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
229 ;; - Renamed `buffer-windows' to `get-buffer-window-list'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
230 ;; - Removed `buffer-live-p'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
231 ;; - Made `lazy-lock-defer-after-change' always save `current-buffer'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
232 ;; - Made `lazy-lock-fontify-after-defer' just process buffers
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
233 ;; - Made `lazy-lock-install-hooks' add hooks correctly (Kevin Broadey report)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
234 ;; - Made `lazy-lock-install' cope if `lazy-lock-defer-time' is a list
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
235 ;; 2.04--2.05:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
236 ;; - Rewrite for Common Lisp macros
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
237 ;; - Added `do-while' macro
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
238 ;; - Renamed `lazy-lock-let-buffer-state' macro to `save-buffer-state'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
239 ;; - Returned `lazy-lock-fontify-after-install' hack (Darren Hall hint)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
240 ;; - Added `lazy-lock-defer-on-scrolling' functionality (Scott Byer hint)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
241 ;; - Made `lazy-lock-mode' wrap `font-lock-support-mode'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
242 ;; 2.05--2.06:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
243 ;; - Made `lazy-lock-fontify-after-defer' swap correctly (Scott Byer report)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
244 ;; 2.06--2.07:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
245 ;; - Added `lazy-lock-stealth-load' functionality (Rob Hooft hint)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
246 ;; - Made `lazy-lock-unstall' call `lazy-lock-fontify-region' if needed
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
247 ;; - Made `lazy-lock-mode' call `lazy-lock-unstall' only if needed
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
248 ;; - Made `lazy-lock-defer-after-scroll' do `set-window-redisplay-end-trigger'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
249 ;; - Added `lazy-lock-defer-contextually' functionality
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
250 ;; - Added `lazy-lock-defer-on-the-fly' from `lazy-lock-defer-time'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
251 ;; - Renamed `lazy-lock-defer-driven' to `lazy-lock-defer-on-scrolling'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
252 ;; - Removed `lazy-lock-submit-bug-report' and bade farewell
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
253 ;; 2.07--2.08:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
254 ;; - Made `lazy-lock-fontify-conservatively' fontify around `window-point'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
255 ;; - Made `save-buffer-state' wrap `inhibit-point-motion-hooks'
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
256 ;; - Added Custom support
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
257 ;; 2.08--2.09:
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
258 ;; - Removed `byte-*' variables from `eval-when-compile' (Erik Naggum hint)
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
259 ;; - Made various wrapping `inhibit-point-motion-hooks' (Vinicius Latorre hint)
18980
dec0f8a4fd02 Wrap minibuffer-auto-raise where nec. to stop frame raising.
Simon Marshall <simon@gnu.org>
parents: 18464
diff changeset
260 ;; - Made `lazy-lock-fontify-after-idle' wrap `minibuffer-auto-raise'
17587
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
261
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
262 ;;; Code:
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
263
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 (require 'font-lock)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 ;; Make sure lazy-lock.el is supported.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (if (if (save-match-data (string-match "Lucid\\|XEmacs" (emacs-version)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 t
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (and (= emacs-major-version 19) (< emacs-minor-version 30)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (error "`lazy-lock' was written for Emacs 19.30 or later"))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (eval-when-compile
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 ;; We don't do this at the top-level as idle timers are not necessarily used.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (require 'timer)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 ;; We don't do this at the top-level as we only use non-autoloaded macros.
17587
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
277 (require 'cl)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
278 ;;
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
279 ;; We use this to preserve or protect things when modifying text properties.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
280 (defmacro save-buffer-state (varlist &rest body)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
281 "Bind variables according to VARLIST and eval BODY restoring buffer state."
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
282 (` (let* ((,@ (append varlist
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
283 '((modified (buffer-modified-p)) (buffer-undo-list t)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
284 (inhibit-read-only t) (inhibit-point-motion-hooks t)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
285 before-change-functions after-change-functions
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
286 deactivate-mark buffer-file-name buffer-file-truename))))
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
287 (,@ body)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
288 (when (and (not modified) (buffer-modified-p))
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
289 (set-buffer-modified-p nil)))))
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
290 (put 'save-buffer-state 'lisp-indent-function 1)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
291 ;;
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
292 ;; We use this for clarity and speed. Naughty but nice.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
293 (defmacro do-while (test &rest body)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
294 "(do-while TEST BODY...): eval BODY... and repeat if TEST yields non-nil.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 The order of execution is thus BODY, TEST, BODY, TEST and so on
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 until TEST returns nil."
17587
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
297 (` (while (progn (,@ body) (, test)))))
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
298 (put 'do-while 'lisp-indent-function (get 'while 'lisp-indent-function))
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
299 ;;
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
300 ;; We use this for clarity and speed. Borrowed from a future Emacs.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
301 (or (fboundp 'with-current-buffer)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
302 (defmacro with-current-buffer (buffer &rest body)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
303 "Execute the forms in BODY with BUFFER as the current buffer.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
304 The value returned is the value of the last form in BODY."
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
305 (` (save-excursion (set-buffer (, buffer)) (,@ body)))))
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
306 (put 'with-current-buffer 'lisp-indent-function 1)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
307 ;;
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
308 ;; We use this for compatibility with a future Emacs.
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
309 (or (fboundp 'defcustom)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
310 (defmacro defcustom (symbol value doc &rest args)
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
311 (` (defvar (, symbol) (, value) (, doc))))))
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
312
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
313 ;(defun lazy-lock-submit-bug-report ()
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
314 ; "Submit via mail a bug report on lazy-lock.el."
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
315 ; (interactive)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
316 ; (let ((reporter-prompt-for-summary-p t))
18980
dec0f8a4fd02 Wrap minibuffer-auto-raise where nec. to stop frame raising.
Simon Marshall <simon@gnu.org>
parents: 18464
diff changeset
317 ; (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 2.08.04"
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
318 ; '(lazy-lock-minimum-size lazy-lock-defer-on-the-fly
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
319 ; lazy-lock-defer-on-scrolling lazy-lock-defer-contextually
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
320 ; lazy-lock-defer-time lazy-lock-stealth-time
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
321 ; lazy-lock-stealth-load lazy-lock-stealth-nice lazy-lock-stealth-lines
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
322 ; lazy-lock-stealth-verbose)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
323 ; nil nil
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
324 ; (concat "Hi Si.,
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
325 ;
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
326 ;I want to report a bug. I've read the `Bugs' section of `Info' on Emacs, so I
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
327 ;know how to make a clear and unambiguous report. To reproduce the bug:
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
328 ;
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
329 ;Start a fresh editor via `" invocation-name " -no-init-file -no-site-file'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
330 ;In the `*scratch*' buffer, evaluate:"))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
331
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
332 (defvar lazy-lock-mode nil) ; Whether we are turned on.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
333 (defvar lazy-lock-buffers nil) ; For deferral.
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
334 (defvar lazy-lock-timers (cons nil nil)) ; For deferral and stealth.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 ;; User Variables:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
338 (defcustom lazy-lock-minimum-size (* 25 1024)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 "*Minimum size of a buffer for demand-driven fontification.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 On-demand fontification occurs if the buffer size is greater than this value.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 If nil, means demand-driven fontification is never performed.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 where MAJOR-MODE is a symbol or t (meaning the default). For example:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 ((c-mode . 25600) (c++-mode . 25600) (rmail-mode . 1048576))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 means that the minimum size is 25K for buffers in C or C++ modes, one megabyte
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 for buffers in Rmail mode, and size is irrelevant otherwise.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
348 The value of this variable is used when Lazy Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
349 :type '(choice (const :tag "none" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
350 (integer :tag "size")
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
351 (repeat :menu-tag "mode specific" :tag "mode specific"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
352 :value ((t . nil))
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
353 (cons :tag "Instance"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
354 (radio :tag "Mode"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
355 (const :tag "all" t)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
356 (symbol :tag "name"))
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
357 (radio :tag "Size"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
358 (const :tag "none" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
359 (integer :tag "size")))))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
360 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
362 (defcustom lazy-lock-defer-on-the-fly t
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
363 "*If non-nil, means fontification after a change should be deferred.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
364 If nil, means on-the-fly fontification is performed. This means when changes
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
365 occur in the buffer, those areas are immediately fontified.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
366 If a list, it should be a list of `major-mode' symbol names for which deferred
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
367 fontification should occur. The sense of the list is negated if it begins with
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
368 `not'. For example:
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
369 (c-mode c++-mode)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
370 means that on-the-fly fontification is deferred for buffers in C and C++ modes
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
371 only, and deferral does not occur otherwise.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
372
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
373 The value of this variable is used when Lazy Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
374 :type '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
375 (const :tag "always" t)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
376 (set :menu-tag "mode specific" :tag "modes"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
377 :value (not)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
378 (const :tag "Except" not)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
379 (repeat :inline t (symbol :tag "mode"))))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
380 :group 'lazy-lock)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
381
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
382 (defcustom lazy-lock-defer-on-scrolling nil
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
383 "*If non-nil, means fontification after a scroll should be deferred.
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
384 If nil, means demand-driven fontification is performed. This means when
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
385 scrolling into unfontified areas of the buffer, those areas are immediately
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
386 fontified. Thus scrolling never presents unfontified areas. However, since
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
387 fontification occurs during scrolling, scrolling may be slow.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 If t, means defer-driven fontification is performed. This means fontification
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 of those areas is deferred. Thus scrolling may present momentarily unfontified
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 areas. However, since fontification does not occur during scrolling, scrolling
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 will be faster than demand-driven fontification.
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
392 If any other value, e.g., `eventually', means demand-driven fontification is
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
393 performed until the buffer is fontified, then buffer fontification becomes
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
394 defer-driven. Thus scrolling never presents unfontified areas until the buffer
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
395 is first fontified, after which subsequent scrolling may present future buffer
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
396 insertions momentarily unfontified. However, since fontification does not
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
397 occur during scrolling after the buffer is first fontified, scrolling will
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
398 become faster. (But, since contextual changes continually occur, such a value
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
399 makes little sense if `lazy-lock-defer-contextually' is non-nil.)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
400
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
401 The value of this variable is used when Lazy Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
402 :type '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
403 (const :tag "always" t)
17682
70a83005a2ca Use sexp widget in case modified outside custom.
Simon Marshall <simon@gnu.org>
parents: 17587
diff changeset
404 (sexp :tag "eventually" :format "%t\n" eventually))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
405 :group 'lazy-lock)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
406
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
407 (defcustom lazy-lock-defer-contextually 'syntax-driven
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
408 "*If non-nil, means deferred fontification should be syntactically true.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
409 If nil, means deferred fontification occurs only on those lines modified. This
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
410 means where modification on a line causes syntactic change on subsequent lines,
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
411 those subsequent lines are not refontified to reflect their new context.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
412 If t, means deferred fontification occurs on those lines modified and all
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
413 subsequent lines. This means those subsequent lines are refontified to reflect
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
414 their new syntactic context, either immediately or when scrolling into them.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
415 If any other value, e.g., `syntax-driven', means deferred syntactically true
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
416 fontification occurs only if syntactic fontification is performed using the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
417 buffer mode's syntax table, i.e., only if `font-lock-keywords-only' is nil.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
419 The value of this variable is used when Lazy Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
420 :type '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
421 (const :tag "always" t)
17682
70a83005a2ca Use sexp widget in case modified outside custom.
Simon Marshall <simon@gnu.org>
parents: 17587
diff changeset
422 (sexp :tag "syntax-driven" :format "%t\n" syntax-driven))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
423 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
425 (defcustom lazy-lock-defer-time
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
426 (if (featurep 'lisp-float-type) (/ (float 1) (float 4)) 1)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 "*Time in seconds to delay before beginning deferred fontification.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 Deferred fontification occurs if there is no input within this time.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
429 If nil, means fontification is never deferred, regardless of the values of the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
430 variables `lazy-lock-defer-on-the-fly', `lazy-lock-defer-on-scrolling' and
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
431 `lazy-lock-defer-contextually'.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
433 The value of this variable is used when Lazy Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
434 :type '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
435 (number :tag "seconds"))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
436 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
438 (defcustom lazy-lock-stealth-time 30
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 "*Time in seconds to delay before beginning stealth fontification.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 Stealth fontification occurs if there is no input within this time.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 If nil, means stealth fontification is never performed.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
443 The value of this variable is used when Lazy Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
444 :type '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
445 (number :tag "seconds"))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
446 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
448 (defcustom lazy-lock-stealth-lines (if font-lock-maximum-decoration 100 250)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 "*Maximum size of a chunk of stealth fontification.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 Each iteration of stealth fontification can fontify this number of lines.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 To speed up input response during stealth fontification, at the cost of stealth
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
452 taking longer to fontify, you could reduce the value of this variable."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
453 :type '(integer :tag "lines")
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
454 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
456 (defcustom lazy-lock-stealth-load
17508
1c2392208ad9 Don't use cl forms in defcustom declarations.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
457 (if (condition-case nil (load-average) (error)) 200)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
458 "*Load in percentage above which stealth fontification is suspended.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
459 Stealth fontification pauses when the system short-term load average (as
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
460 returned by the function `load-average' if supported) goes above this level,
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
461 thus reducing the demand that stealth fontification makes on the system.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
462 If nil, means stealth fontification is never suspended.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
463 To reduce machine load during stealth fontification, at the cost of stealth
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
464 taking longer to fontify, you could reduce the value of this variable.
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
465 See also `lazy-lock-stealth-nice'."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
466 :type (if (condition-case nil (load-average) (error))
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
467 '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
468 (integer :tag "load"))
17587
fd8de684f5c7 Version 2.08.01 from author; defgroup happens in font-lock.el; don't prevent from compiling on emacs 19.34 etc.
Simon Marshall <simon@gnu.org>
parents: 17562
diff changeset
469 '(const :format "%t: unsupported\n" nil))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
470 :group 'lazy-lock)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
471
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
472 (defcustom lazy-lock-stealth-nice
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (if (featurep 'lisp-float-type) (/ (float 1) (float 8)) 1)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 "*Time in seconds to pause between chunks of stealth fontification.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
475 Each iteration of stealth fontification is separated by this amount of time,
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
476 thus reducing the demand that stealth fontification makes on the system.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
477 If nil, means stealth fontification is never paused.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 To reduce machine load during stealth fontification, at the cost of stealth
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
479 taking longer to fontify, you could increase the value of this variable.
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
480 See also `lazy-lock-stealth-load'."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
481 :type '(choice (const :tag "never" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17498
diff changeset
482 (number :tag "seconds"))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
483 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
485 (defcustom lazy-lock-stealth-verbose
17508
1c2392208ad9 Don't use cl forms in defcustom declarations.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
486 (if (featurep 'lisp-float-type)
1c2392208ad9 Don't use cl forms in defcustom declarations.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
487 (and (not lazy-lock-defer-contextually) (not (null font-lock-verbose))))
17498
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
488 "*If non-nil, means stealth fontification should show status messages."
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
489 :type 'boolean
5ea11c278a57 Customise.
Simon Marshall <simon@gnu.org>
parents: 16580
diff changeset
490 :group 'lazy-lock)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 ;; User Functions:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 ;;;###autoload
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 (defun lazy-lock-mode (&optional arg)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 "Toggle Lazy Lock mode.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 With arg, turn Lazy Lock mode on if and only if arg is positive. Enable it
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 automatically in your `~/.emacs' by:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (setq font-lock-support-mode 'lazy-lock-mode)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 When Lazy Lock mode is enabled, fontification can be lazy in a number of ways:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
504 - Demand-driven buffer fontification if `lazy-lock-minimum-size' is non-nil.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
505 This means initial fontification does not occur if the buffer is greater than
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
506 `lazy-lock-minimum-size' characters in length. Instead, fontification occurs
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
507 when necessary, such as when scrolling through the buffer would otherwise
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
508 reveal unfontified areas. This is useful if buffer fontification is too slow
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
509 for large buffers.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
511 - Deferred scroll fontification if `lazy-lock-defer-on-scrolling' is non-nil.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
512 This means demand-driven fontification does not occur as you scroll.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
513 Instead, fontification is deferred until after `lazy-lock-defer-time' seconds
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
514 of Emacs idle time, while Emacs remains idle. This is useful if
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
515 fontification is too slow to keep up with scrolling.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
516
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
517 - Deferred on-the-fly fontification if `lazy-lock-defer-on-the-fly' is non-nil.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
518 This means on-the-fly fontification does not occur as you type. Instead,
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
519 fontification is deferred until after `lazy-lock-defer-time' seconds of Emacs
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
520 idle time, while Emacs remains idle. This is useful if fontification is too
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
521 slow to keep up with your typing.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
523 - Deferred context fontification if `lazy-lock-defer-contextually' is non-nil.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
524 This means fontification updates the buffer corresponding to true syntactic
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
525 context, after `lazy-lock-defer-time' seconds of Emacs idle time, while Emacs
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
526 remains idle. Otherwise, fontification occurs on modified lines only, and
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
527 subsequent lines can remain fontified corresponding to previous syntactic
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
528 contexts. This is useful where strings or comments span lines.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
530 - Stealthy buffer fontification if `lazy-lock-stealth-time' is non-nil.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
531 This means remaining unfontified areas of buffers are fontified if Emacs has
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
532 been idle for `lazy-lock-stealth-time' seconds, while Emacs remains idle.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
533 This is useful if any buffer has any deferred fontification.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
535 Basic Font Lock mode on-the-fly fontification behaviour fontifies modified
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
536 lines only. Thus, if `lazy-lock-defer-contextually' is non-nil, Lazy Lock mode
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
537 on-the-fly fontification may fontify differently, albeit correctly. In any
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
538 event, to refontify some lines you can use \\[font-lock-fontify-block].
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
540 Stealth fontification only occurs while the system remains unloaded.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
541 If the system load rises above `lazy-lock-stealth-load' percent, stealth
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
542 fontification is suspended. Stealth fontification intensity is controlled via
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
543 the variable `lazy-lock-stealth-nice' and `lazy-lock-stealth-lines', and
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
544 verbosity is controlled via the variable `lazy-lock-stealth-verbose'."
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (interactive "P")
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
546 (let* ((was-on lazy-lock-mode)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
547 (now-on (unless (memq 'lazy-lock-mode font-lock-inhibit-thing-lock)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
548 (if arg (> (prefix-numeric-value arg) 0) (not was-on)))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
549 (cond ((and now-on (not font-lock-mode))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
550 ;; Turned on `lazy-lock-mode' rather than `font-lock-mode'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
551 (let ((font-lock-support-mode 'lazy-lock-mode))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
552 (font-lock-mode t)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
553 (now-on
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
554 ;; Turn ourselves on.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
555 (set (make-local-variable 'lazy-lock-mode) t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
556 (lazy-lock-install))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
557 (was-on
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
558 ;; Turn ourselves off.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
559 (set (make-local-variable 'lazy-lock-mode) nil)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
560 (lazy-lock-unstall)))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 ;;;###autoload
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 (defun turn-on-lazy-lock ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 "Unconditionally turn on Lazy Lock mode."
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 (lazy-lock-mode t))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 (defun lazy-lock-install ()
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
568 (let ((min-size (font-lock-value-in-major-mode lazy-lock-minimum-size))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
569 (defer-change (and lazy-lock-defer-time lazy-lock-defer-on-the-fly))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
570 (defer-scroll (and lazy-lock-defer-time lazy-lock-defer-on-scrolling))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
571 (defer-context (and lazy-lock-defer-time lazy-lock-defer-contextually
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
572 (or (eq lazy-lock-defer-contextually t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
573 (null font-lock-keywords-only)))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 ;; Tell Font Lock whether Lazy Lock will do fontification.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 (make-local-variable 'font-lock-fontified)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 (setq font-lock-fontified (and min-size (>= (buffer-size) min-size)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 ;; Add the text properties and fontify.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 (if (not font-lock-fontified)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 (lazy-lock-after-fontify-buffer)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 ;; Make sure we fontify in any existing windows showing the buffer.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 (let ((windows (get-buffer-window-list (current-buffer) 'nomini t)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (lazy-lock-after-unfontify-buffer)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 (while windows
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (lazy-lock-fontify-conservatively (car windows))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 (setq windows (cdr windows)))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 ;; Add the fontification hooks.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (lazy-lock-install-hooks
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 font-lock-fontified
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
592 (cond ((eq (car-safe defer-change) 'not)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
593 (not (memq major-mode (cdr defer-change))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
594 ((listp defer-change)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
595 (memq major-mode defer-change))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
596 (t
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
597 defer-change))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
598 (eq defer-scroll t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
599 defer-context)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 ;; Add the fontification timers.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 (lazy-lock-install-timers
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
603 (if (or defer-change defer-scroll defer-context) lazy-lock-defer-time)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 lazy-lock-stealth-time)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
606 (defun lazy-lock-install-hooks (fontifying
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
607 defer-change defer-scroll defer-context)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
609 ;; Add hook if lazy-lock.el is fontifying on scrolling or is deferring.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
610 (when (or fontifying defer-change defer-scroll defer-context)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 (make-local-hook 'window-scroll-functions)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
612 (add-hook 'window-scroll-functions (if defer-scroll
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 'lazy-lock-defer-after-scroll
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 'lazy-lock-fontify-after-scroll)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 nil t))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
617 ;; Add hook if lazy-lock.el is fontifying and is not deferring changes.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
618 (when (and fontifying (not defer-change) (not defer-context))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 (make-local-hook 'before-change-functions)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (add-hook 'before-change-functions 'lazy-lock-arrange-before-change nil t))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
622 ;; Replace Font Lock mode hook.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
623 (remove-hook 'after-change-functions 'font-lock-after-change-function t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
624 (add-hook 'after-change-functions
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
625 (cond ((and defer-change defer-context)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
626 'lazy-lock-defer-rest-after-change)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
627 (defer-change
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
628 'lazy-lock-defer-line-after-change)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
629 (defer-context
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
630 'lazy-lock-fontify-rest-after-change)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
631 (t
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
632 'lazy-lock-fontify-line-after-change))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
633 nil t)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
635 ;; Add package-specific hook.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 (make-local-hook 'outline-view-change-hook)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 (add-hook 'outline-view-change-hook 'lazy-lock-fontify-after-outline nil t))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 (defun lazy-lock-install-timers (dtime stime)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 ;; Schedule or re-schedule the deferral and stealth timers.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 ;; The layout of `lazy-lock-timers' is:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 ;; ((DEFER-TIME . DEFER-TIMER) (STEALTH-TIME . STEALTH-TIMER)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 ;; If an idle timeout has changed, cancel the existing idle timer (if there
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 ;; is one) and schedule a new one (if the new idle timeout is non-nil).
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 (unless (eq dtime (car (car lazy-lock-timers)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 (let ((defer (car lazy-lock-timers)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 (when (cdr defer)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 (cancel-timer (cdr defer)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 (setcar lazy-lock-timers (cons dtime (and dtime
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 (run-with-idle-timer dtime t 'lazy-lock-fontify-after-defer))))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 (unless (eq stime (car (cdr lazy-lock-timers)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 (let ((stealth (cdr lazy-lock-timers)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 (when (cdr stealth)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 (cancel-timer (cdr stealth)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 (setcdr lazy-lock-timers (cons stime (and stime
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 (run-with-idle-timer stime t 'lazy-lock-fontify-after-idle)))))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 (defun lazy-lock-unstall ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 ;;
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
660 ;; If Font Lock mode is still enabled, make sure that the buffer is
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
661 ;; fontified, and reinstall its hook. We must do this first.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
662 (when font-lock-mode
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
663 (when (lazy-lock-unfontified-p)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
664 (let ((verbose (if (numberp font-lock-verbose)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
665 (> (buffer-size) font-lock-verbose)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
666 font-lock-verbose)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
667 (if verbose (message "Fontifying %s..." (buffer-name)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
668 ;; Make sure we fontify etc. in the whole buffer.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
669 (save-restriction
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
670 (widen)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
671 (lazy-lock-fontify-region (point-min) (point-max)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
672 (if verbose (message "Fontifying %s...%s" (buffer-name)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
673 (if (lazy-lock-unfontified-p) "quit" "done")))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
674 (add-hook 'after-change-functions 'font-lock-after-change-function nil t))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
675 ;;
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 ;; Remove the text properties.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 (lazy-lock-after-unfontify-buffer)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 ;; Remove the fontification hooks.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 (remove-hook 'window-scroll-functions 'lazy-lock-fontify-after-scroll t)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 (remove-hook 'window-scroll-functions 'lazy-lock-defer-after-scroll t)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 (remove-hook 'before-change-functions 'lazy-lock-arrange-before-change t)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
683 (remove-hook 'after-change-functions 'lazy-lock-fontify-line-after-change t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
684 (remove-hook 'after-change-functions 'lazy-lock-fontify-rest-after-change t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
685 (remove-hook 'after-change-functions 'lazy-lock-defer-line-after-change t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
686 (remove-hook 'after-change-functions 'lazy-lock-defer-rest-after-change t)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
687 (remove-hook 'outline-view-change-hook 'lazy-lock-fontify-after-outline t))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 ;; Hook functions.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
691 ;; Lazy Lock mode intervenes when (1) a previously invisible buffer region
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
692 ;; becomes visible, i.e., for demand- or defer-driven on-the-scroll
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
693 ;; fontification, (2) a buffer modification occurs, i.e., for defer-driven
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
694 ;; on-the-fly fontification, (3) Emacs becomes idle, i.e., for fontification of
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
695 ;; deferred fontification and stealth fontification, and (4) other special
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
696 ;; occasions.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
697
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
698 ;; 1. There are three ways whereby this can happen.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
699 ;;
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
700 ;; (a) Scrolling the window, either explicitly (e.g., `scroll-up') or
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
701 ;; implicitly (e.g., `search-forward'). Here, `window-start' changes.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
702 ;; Fontification occurs by adding `lazy-lock-fontify-after-scroll' (for
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
703 ;; demand-driven fontification) or `lazy-lock-defer-after-scroll' (for
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
704 ;; defer-driven fontification) to the hook `window-scroll-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
705
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 (defun lazy-lock-fontify-after-scroll (window window-start)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 ;; Called from `window-scroll-functions'.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
708 ;; Fontify WINDOW from WINDOW-START following the scroll. We cannot use
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
709 ;; `window-end' so we work out what it would be via `vertical-motion'.
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
710 (let ((inhibit-point-motion-hooks t))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
711 (save-excursion
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
712 (goto-char window-start)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
713 (vertical-motion (window-height window) window)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
714 (lazy-lock-fontify-region window-start (point))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 ;; A prior deletion that did not cause scrolling, followed by a scroll, would
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 ;; result in an unnecessary trigger after this if we did not cancel it now.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 (set-window-redisplay-end-trigger window nil))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
719 (defun lazy-lock-defer-after-scroll (window window-start)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
720 ;; Called from `window-scroll-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
721 ;; Defer fontification following the scroll. Save the current buffer so that
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
722 ;; we subsequently fontify in all windows showing the buffer.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
723 (unless (memq (current-buffer) lazy-lock-buffers)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
724 (push (current-buffer) lazy-lock-buffers))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
725 ;; A prior deletion that did not cause scrolling, followed by a scroll, would
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
726 ;; result in an unnecessary trigger after this if we did not cancel it now.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
727 (set-window-redisplay-end-trigger window nil))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
728
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
729 ;; (b) Resizing the window, either explicitly (e.g., `enlarge-window') or
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
730 ;; implicitly (e.g., `delete-other-windows'). Here, `window-end' changes.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
731 ;; Fontification occurs by adding `lazy-lock-fontify-after-resize' to the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
732 ;; hook `window-size-change-functions'.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734 (defun lazy-lock-fontify-after-resize (frame)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 ;; Called from `window-size-change-functions'.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
736 ;; Fontify windows in FRAME following the resize. We cannot use
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
737 ;; `window-start' or `window-end' so we fontify conservatively.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 (save-excursion
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 (save-selected-window
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 (select-frame frame)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 (walk-windows (function (lambda (window)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 (set-buffer (window-buffer window))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 (when lazy-lock-mode
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 (lazy-lock-fontify-conservatively window))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 (set-window-redisplay-end-trigger window nil)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 'nomini frame))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
748 ;; (c) Deletion in the buffer. Here, a `window-end' marker can become visible.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
749 ;; Fontification occurs by adding `lazy-lock-arrange-before-change' to
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
750 ;; `before-change-functions' and `lazy-lock-fontify-after-trigger' to the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
751 ;; hook `redisplay-end-trigger-functions'. Before every deletion, the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
752 ;; marker `window-redisplay-end-trigger' position is set to the soon-to-be
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
753 ;; changed `window-end' position. If the marker becomes visible,
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
754 ;; `lazy-lock-fontify-after-trigger' gets called. Ouch. Note that we only
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
755 ;; have to deal with this eventuality if there is no on-the-fly deferral.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
756
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 (defun lazy-lock-arrange-before-change (beg end)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 ;; Called from `before-change-functions'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 ;; Arrange that if text becomes visible it will be fontified (if a deletion
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 ;; is pending, text might become visible at the bottom).
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 (unless (eq beg end)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 (let ((windows (get-buffer-window-list (current-buffer) 'nomini t)) window)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 (while windows
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 (setq window (car windows))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 (unless (markerp (window-redisplay-end-trigger window))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 (set-window-redisplay-end-trigger window (make-marker)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 (set-marker (window-redisplay-end-trigger window) (window-end window))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 (setq windows (cdr windows))))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
770 (defun lazy-lock-fontify-after-trigger (window trigger-point)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
771 ;; Called from `redisplay-end-trigger-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
772 ;; Fontify WINDOW from TRIGGER-POINT. We cannot use `window-end' so we work
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
773 ;; out what it would be via `vertical-motion'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
774 ;; We could probably just use `lazy-lock-fontify-after-scroll' without loss:
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
775 ;; (lazy-lock-fontify-after-scroll window (window-start window))
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
776 (let ((inhibit-point-motion-hooks t))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
777 (save-excursion
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
778 (goto-char (window-start window))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
779 (vertical-motion (window-height window) window)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
780 (lazy-lock-fontify-region trigger-point (point)))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
782 ;; 2. Modified text must be marked as unfontified so it can be identified and
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
783 ;; fontified later when Emacs is idle. Deferral occurs by adding one of
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
784 ;; `lazy-lock-fontify-*-after-change' (for on-the-fly fontification) or
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
785 ;; `lazy-lock-defer-*-after-change' (for deferred fontification) to the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
786 ;; hook `after-change-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
787
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
788 (defalias 'lazy-lock-fontify-line-after-change
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 ;; Called from `after-change-functions'.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
790 ;; Fontify the current change.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
791 'font-lock-after-change-function)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
792
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
793 (defun lazy-lock-fontify-rest-after-change (beg end old-len)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
794 ;; Called from `after-change-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
795 ;; Fontify the current change and defer fontification of the rest of the
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
796 ;; buffer. Save the current buffer so that we subsequently fontify in all
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
797 ;; windows showing the buffer.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
798 (lazy-lock-fontify-line-after-change beg end old-len)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 (save-buffer-state nil
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 (unless (memq (current-buffer) lazy-lock-buffers)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 (push (current-buffer) lazy-lock-buffers))
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
802 (remove-text-properties end (point-max) '(lazy-lock nil))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
803
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
804 (defun lazy-lock-defer-line-after-change (beg end old-len)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
805 ;; Called from `after-change-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
806 ;; Defer fontification of the current change. Save the current buffer so
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
807 ;; that we subsequently fontify in all windows showing the buffer.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
808 (save-buffer-state nil
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
809 (unless (memq (current-buffer) lazy-lock-buffers)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
810 (push (current-buffer) lazy-lock-buffers))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
811 (remove-text-properties (max (1- beg) (point-min))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
812 (min (1+ end) (point-max))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
813 '(lazy-lock nil))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
814
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
815 (defun lazy-lock-defer-rest-after-change (beg end old-len)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
816 ;; Called from `after-change-functions'.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
817 ;; Defer fontification of the rest of the buffer. Save the current buffer so
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
818 ;; that we subsequently fontify in all windows showing the buffer.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
819 (save-buffer-state nil
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
820 (unless (memq (current-buffer) lazy-lock-buffers)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
821 (push (current-buffer) lazy-lock-buffers))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
822 (remove-text-properties (max (1- beg) (point-min))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
823 (point-max)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
824 '(lazy-lock nil))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
825
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
826 ;; 3. Deferred fontification and stealth fontification are done from these two
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
827 ;; functions. They are set up as Idle Timers.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 (defun lazy-lock-fontify-after-defer ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 ;; Called from `timer-idle-list'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 ;; Fontify all windows where deferral has occurred for its buffer.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 (while (and lazy-lock-buffers (not (input-pending-p)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 (let ((windows (get-buffer-window-list (car lazy-lock-buffers) 'nomini t)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834 (while windows
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 (lazy-lock-fontify-window (car windows))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836 (setq windows (cdr windows)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837 (setq lazy-lock-buffers (cdr lazy-lock-buffers))))
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
838 ;; Add hook if fontification should now be defer-driven in this buffer.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
839 (when (and lazy-lock-mode lazy-lock-defer-on-scrolling
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
840 (memq 'lazy-lock-fontify-after-scroll window-scroll-functions)
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
841 (not (or (input-pending-p) (lazy-lock-unfontified-p))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 (remove-hook 'window-scroll-functions 'lazy-lock-fontify-after-scroll t)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 (add-hook 'window-scroll-functions 'lazy-lock-defer-after-scroll nil t)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 (defun lazy-lock-fontify-after-idle ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 ;; Called from `timer-idle-list'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 ;; Fontify all buffers that need it, stealthily while idle.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 (unless (or executing-kbd-macro (window-minibuffer-p (selected-window)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 ;; Loop over all buffers, fontify stealthily for each if necessary.
18980
dec0f8a4fd02 Wrap minibuffer-auto-raise where nec. to stop frame raising.
Simon Marshall <simon@gnu.org>
parents: 18464
diff changeset
850 (let ((buffers (buffer-list)) (continue t)
dec0f8a4fd02 Wrap minibuffer-auto-raise where nec. to stop frame raising.
Simon Marshall <simon@gnu.org>
parents: 18464
diff changeset
851 message message-log-max minibuffer-auto-raise)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 (save-excursion
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 (do-while (and buffers continue)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 (set-buffer (car buffers))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 (if (not (and lazy-lock-mode (lazy-lock-unfontified-p)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 (setq continue (not (input-pending-p)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 ;; Fontify regions in this buffer while there is no input.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
858 (do-while (and (lazy-lock-unfontified-p) continue)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
859 (if (and lazy-lock-stealth-load
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
860 (> (car (load-average)) lazy-lock-stealth-load))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
861 ;; Wait a while before continuing with the loop.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
862 (progn
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
863 (when message
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
864 (message "Fontifying stealthily...suspended")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
865 (setq message nil))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
866 (setq continue (sit-for (or lazy-lock-stealth-time 30))))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
867 ;; Fontify a chunk.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
868 (when lazy-lock-stealth-verbose
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
869 (if message
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
870 (message "Fontifying stealthily... %2d%% of %s"
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
871 (lazy-lock-percent-fontified) (buffer-name))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
872 (message "Fontifying stealthily...")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
873 (setq message t)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
874 (lazy-lock-fontify-chunk)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
875 (setq continue (sit-for (or lazy-lock-stealth-nice 0))))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 (setq buffers (cdr buffers))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 (when message
15499
aa9675ed8ed4 Test for lazy-lock-mode before swapping hooks.
Simon Marshall <simon@gnu.org>
parents: 15461
diff changeset
878 (message "Fontifying stealthily...%s" (if continue "done" "quit"))))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
880 ;; 4. Special circumstances.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
881
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 (defun lazy-lock-fontify-after-outline ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 ;; Called from `outline-view-change-hook'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 ;; Fontify windows showing the current buffer, as its visibility has changed.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 ;; This is a conspiracy hack between lazy-lock.el and noutline.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 (let ((windows (get-buffer-window-list (current-buffer) 'nomini t)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 (while windows
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 (lazy-lock-fontify-conservatively (car windows))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 (setq windows (cdr windows)))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 (defun lazy-lock-after-fontify-buffer ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 ;; Called from `font-lock-after-fontify-buffer'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 ;; Mark the current buffer as fontified.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 ;; This is a conspiracy hack between lazy-lock.el and font-lock.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 (save-buffer-state nil
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 (add-text-properties (point-min) (point-max) '(lazy-lock t))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 (defun lazy-lock-after-unfontify-buffer ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 ;; Called from `font-lock-after-unfontify-buffer'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 ;; Mark the current buffer as unfontified.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 ;; This is a conspiracy hack between lazy-lock.el and font-lock.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 (save-buffer-state nil
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 (remove-text-properties (point-min) (point-max) '(lazy-lock nil))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 ;; Fontification functions.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 ;; If packages want to ensure that some region of the buffer is fontified, they
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 ;; should use this function. For an example, see ps-print.el.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 (defun lazy-lock-fontify-region (beg end)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910 ;; Fontify between BEG and END, where necessary, in the current buffer.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 (when (setq beg (text-property-any beg end 'lazy-lock nil))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 (save-excursion
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 (save-match-data
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 (save-buffer-state
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 ;; Ensure syntactic fontification is always correct.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 (font-lock-beginning-of-syntax-function next)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 ;; Find successive unfontified regions between BEG and END.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 (condition-case data
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 (do-while beg
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 (setq next (or (text-property-any beg end 'lazy-lock t) end))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 ;; Make sure the region end points are at beginning of line.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 (goto-char beg)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 (unless (bolp)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 (beginning-of-line)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 (setq beg (point)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 (goto-char next)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 (unless (bolp)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 (forward-line)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 (setq next (point)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 ;; Fontify the region, then flag it as fontified.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 (font-lock-fontify-region beg next)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 (add-text-properties beg next '(lazy-lock t))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 (setq beg (text-property-any next end 'lazy-lock nil)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 ((error quit) (message "Fontifying region...%s" data))))))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 (defun lazy-lock-fontify-chunk ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 ;; Fontify the nearest chunk, for stealth, in the current buffer.
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
938 (let ((inhibit-point-motion-hooks t))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
939 (save-excursion
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
940 (save-restriction
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
941 (widen)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
942 ;; Move to end of line in case the character at point is not fontified.
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
943 (end-of-line)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
944 ;; Find where the previous (next) unfontified regions end (begin).
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
945 (let ((prev (previous-single-property-change (point) 'lazy-lock))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
946 (next (text-property-any (point) (point-max) 'lazy-lock nil)))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
947 ;; Fontify from the nearest unfontified position.
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
948 (if (or (null prev) (and next (< (- next (point)) (- (point) prev))))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
949 ;; The next, or neither, region is the nearest not fontified.
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
950 (lazy-lock-fontify-region
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
951 (progn (goto-char (or next (point-min)))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
952 (beginning-of-line)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
953 (point))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
954 (progn (goto-char (or next (point-min)))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
955 (forward-line lazy-lock-stealth-lines)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
956 (point)))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
957 ;; The previous region is the nearest not fontified.
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 (lazy-lock-fontify-region
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
959 (progn (goto-char prev)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
960 (forward-line (- lazy-lock-stealth-lines))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 (point))
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
962 (progn (goto-char prev)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
963 (forward-line)
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
964 (point)))))))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 (defun lazy-lock-fontify-window (window)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 ;; Fontify in WINDOW between `window-start' and `window-end'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 ;; We can only do this when we can use `window-start' and `window-end'.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
969 (with-current-buffer (window-buffer window)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 (lazy-lock-fontify-region (window-start window) (window-end window))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 (defun lazy-lock-fontify-conservatively (window)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 ;; Fontify in WINDOW conservatively around point.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974 ;; Where we cannot use `window-start' and `window-end' we do `window-height'
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
975 ;; lines around point. That way we guarantee to have done enough.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
976 (with-current-buffer (window-buffer window)
18464
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
977 (let ((inhibit-point-motion-hooks t))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
978 (lazy-lock-fontify-region
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
979 (save-excursion
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
980 (goto-char (window-point window))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
981 (vertical-motion (- (window-height window)) window) (point))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
982 (save-excursion
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
983 (goto-char (window-point window))
9e96c09a1466 wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 17682
diff changeset
984 (vertical-motion (window-height window) window) (point))))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
985
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
986 (defun lazy-lock-unfontified-p ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 ;; Return non-nil if there is anywhere still to be fontified.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 (save-restriction
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
989 (widen)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 (text-property-any (point-min) (point-max) 'lazy-lock nil)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 (defun lazy-lock-percent-fontified ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 ;; Return the percentage (of characters) of the buffer that are fontified.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994 (save-restriction
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 (widen)
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
996 (let ((beg (point-min)) (size 0) next)
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
997 ;; Find where the next fontified region begins.
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
998 (while (setq beg (text-property-any beg (point-max) 'lazy-lock t))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
999 (setq next (or (text-property-any beg (point-max) 'lazy-lock nil)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1000 (point-max)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1001 (incf size (- next beg))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1002 (setq beg next))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1003 ;; Float because using integer multiplication will frequently overflow.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1004 (truncate (* (/ (float size) (point-max)) 100)))))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1005
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006 ;; Version dependent workarounds and fixes.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1007
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1008 (when (if (save-match-data (string-match "Lucid\\|XEmacs" (emacs-version)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1009 nil
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1010 (and (= emacs-major-version 19) (= emacs-minor-version 30)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1012 ;; We use `post-command-idle-hook' for deferral and stealth. Oh Lordy.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1013 (defun lazy-lock-install-timers (foo bar)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1014 (add-hook 'post-command-idle-hook 'lazy-lock-fontify-post-command t)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1015 (add-hook 'post-command-idle-hook 'lazy-lock-fontify-post-idle t)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 (add-to-list 'lazy-lock-install (current-buffer))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1017 (add-hook 'post-command-hook 'lazy-lock-fontify-after-install))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1018 (defun lazy-lock-fontify-post-command ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 (and lazy-lock-buffers (not executing-kbd-macro)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1020 (progn
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 (and deactivate-mark (deactivate-mark))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1022 (sit-for
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 (or (cdr-safe lazy-lock-defer-time) lazy-lock-defer-time 0)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 (lazy-lock-fontify-after-defer)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 (defun lazy-lock-fontify-post-idle ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 (and lazy-lock-stealth-time (not executing-kbd-macro)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 (not (window-minibuffer-p (selected-window)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028 (progn
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029 (and deactivate-mark (deactivate-mark))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 (sit-for lazy-lock-stealth-time))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (lazy-lock-fontify-after-idle)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 ;;
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1033 ;; Simulate running of `window-scroll-functions' in `set-window-buffer'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034 (defvar lazy-lock-install nil)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 (defun lazy-lock-fontify-after-install ()
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1036 (remove-hook 'post-command-hook 'lazy-lock-fontify-after-install)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 (while lazy-lock-install
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038 (mapcar 'lazy-lock-fontify-conservatively
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1039 (get-buffer-window-list (pop lazy-lock-install) 'nomini t)))))
16580
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1040
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1041 (when (consp lazy-lock-defer-time)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1042 ;;
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1043 ;; In 2.06.04 and below, `lazy-lock-defer-time' could specify modes and time.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1044 (with-output-to-temp-buffer "*Help*"
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1045 (princ "The value of the variable `lazy-lock-defer-time' was\n ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1046 (princ lazy-lock-defer-time)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1047 (princ "\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1048 (princ "This variable cannot now be a list of modes and time, ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1049 (princ "so instead use the forms:\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1050 (princ " (setq lazy-lock-defer-time ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1051 (princ (cdr lazy-lock-defer-time))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1052 (princ ")\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1053 (princ " (setq lazy-lock-defer-on-the-fly '")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1054 (princ (car lazy-lock-defer-time))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1055 (princ ")\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1056 (princ "in your ~/.emacs. ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1057 (princ "The above forms have been evaluated for this editor session,\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1058 (princ "but you should change your ~/.emacs now."))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1059 (setq lazy-lock-defer-on-the-fly (car lazy-lock-defer-time)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1060 lazy-lock-defer-time (cdr lazy-lock-defer-time)))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1061
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1062 (when (boundp 'lazy-lock-defer-driven)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1063 ;;
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1064 ;; In 2.06.04 and below, `lazy-lock-defer-driven' was the variable name.
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1065 (with-output-to-temp-buffer "*Help*"
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1066 (princ "The value of the variable `lazy-lock-defer-driven' is set to ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1067 (if (memq lazy-lock-defer-driven '(nil t))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1068 (princ lazy-lock-defer-driven)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1069 (princ "`")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1070 (princ lazy-lock-defer-driven)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1071 (princ "'"))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1072 (princ ".\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1073 (princ "This variable is now called `lazy-lock-defer-on-scrolling',\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1074 (princ "so instead use the form:\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1075 (princ " (setq lazy-lock-defer-on-scrolling ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1076 (unless (memq lazy-lock-defer-driven '(nil t))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1077 (princ "'"))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1078 (princ lazy-lock-defer-driven)
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1079 (princ ")\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1080 (princ "in your ~/.emacs. ")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1081 (princ "The above form has been evaluated for this editor session,\n")
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1082 (princ "but you should change your ~/.emacs now."))
f4429e6fe33c (a) split lazy-lock-defer-time into lazy-lock-defer-time and lazy-lock-defer-on-the-fly, (b) add lazy-lock-defer-on-scrolling, (c) use these to choose one of lazy-lock-defer-line-after-change, lazy-lock-defer-rest-after-change, lazy-lock-fontify-line-after-change, lazy-lock-fontify-rest-after-change to add to after-change-functions, (d) use with-current-buffer rather than save-excursion, (e) avoid integer overflow in lazy-lock-percent-fontified.
Simon Marshall <simon@gnu.org>
parents: 15499
diff changeset
1083 (setq lazy-lock-defer-on-scrolling lazy-lock-defer-driven))
15461
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085 ;; Possibly absent.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 (unless (boundp 'font-lock-inhibit-thing-lock)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 ;; Font Lock mode uses this to direct Lazy and Fast Lock modes to stay off.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 (defvar font-lock-inhibit-thing-lock nil
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 "List of Font Lock mode related modes that should not be turned on."))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1092 (unless (fboundp 'font-lock-value-in-major-mode)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1093 (defun font-lock-value-in-major-mode (alist)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1094 ;; Return value in ALIST for `major-mode'.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1095 (if (consp alist)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1096 (cdr (or (assq major-mode alist) (assq t alist)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1097 alist)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 (unless (fboundp 'get-buffer-window-list)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100 ;; We use this to get all windows showing a buffer we have to fontify.
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101 (defun get-buffer-window-list (buffer &optional minibuf frame)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 "Return windows currently displaying BUFFER, or nil if none."
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103 (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 (walk-windows (function (lambda (window)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 (when (eq (window-buffer window) buffer)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106 (push window windows))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 minibuf frame)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 windows)))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 ;; Install ourselves:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112 (add-hook 'window-size-change-functions 'lazy-lock-fontify-after-resize)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1113 (add-hook 'redisplay-end-trigger-functions 'lazy-lock-fontify-after-trigger)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 (unless (assq 'lazy-lock-mode minor-mode-alist)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 (setq minor-mode-alist (append minor-mode-alist '((lazy-lock-mode nil)))))
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 ;; Provide ourselves:
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 (provide 'lazy-lock)
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121
a0dc879461b8 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 ;;; lazy-lock.el ends here