annotate lisp/font-lock.el @ 63589:2caf68e48ec4

*** empty log message ***
author Luc Teirlinck <teirllm@auburn.edu>
date Sun, 19 Jun 2005 21:00:33 +0000
parents 868fbdaab045
children 0e0d1ff0b641 c016d82bf02b b7da78284d4c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1 ;;; font-lock.el --- Electric font lock mode
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
2
58161
5451548f1bd9 (font-lock-fontify-syntactically-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57433
diff changeset
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
60412
9b15aeb1b3f1 (font-lock-fontify-keywords-region): Ensure forward
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58813
diff changeset
4 ;; 2000, 2001, 2002, 2003, 2004 2005 Free Software Foundation, Inc.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
28874
f2f374d8b0bf Update copyright. Remove Simon Marshall's email
Gerd Moellmann <gerd@gnu.org>
parents: 28192
diff changeset
6 ;; Author: jwz, then rms, then sm
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Maintainer: FSF
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; Keywords: languages, faces
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; any later version.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13982
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13982
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13982
diff changeset
25 ;; Boston, MA 02111-1307, USA.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
29 ;; Font Lock mode is a minor mode that causes your comments to be displayed in
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
30 ;; one face, strings in another, reserved words in another, and so on.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;;
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;; Comments will be displayed in `font-lock-comment-face'.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;; Strings will be displayed in `font-lock-string-face'.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
34 ;; Regexps are used to display selected patterns in other faces.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;;
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
36 ;; To make the text you type be fontified, use M-x font-lock-mode RET.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
37 ;; When this minor mode is on, the faces of the current line are updated with
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
38 ;; every insertion or deletion.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;;
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
40 ;; To turn Font Lock mode on automatically, add this to your ~/.emacs file:
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;;
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
42 ;; (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;;
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
44 ;; Or if you want to turn Font Lock mode on in many modes:
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
45 ;;
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
46 ;; (global-font-lock-mode t)
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
47 ;;
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
48 ;; Fontification for a particular mode may be available in a number of levels
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
49 ;; of decoration. The higher the level, the more decoration, but the more time
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
50 ;; it takes to fontify. See the variable `font-lock-maximum-decoration', and
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
51 ;; also the variable `font-lock-maximum-size'. Support modes for Font Lock
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
52 ;; mode can be used to speed up Font Lock mode. See `font-lock-support-mode'.
15653
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
53
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
54 ;;; How Font Lock mode fontifies:
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
55
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
56 ;; When Font Lock mode is turned on in a buffer, it (a) fontifies the entire
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
57 ;; buffer and (b) installs one of its fontification functions on one of the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
58 ;; hook variables that are run by Emacs after every buffer change (i.e., an
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
59 ;; insertion or deletion). Fontification means the replacement of `face' text
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
60 ;; properties in a given region; Emacs displays text with these `face' text
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
61 ;; properties appropriately.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
62 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
63 ;; Fontification normally involves syntactic (i.e., strings and comments) and
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
64 ;; regexp (i.e., keywords and everything else) passes. There are actually
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
65 ;; three passes; (a) the syntactic keyword pass, (b) the syntactic pass and (c)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
66 ;; the keyword pass. Confused?
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
67 ;;
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
68 ;; The syntactic keyword pass places `syntax-table' text properties in the
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
69 ;; buffer according to the variable `font-lock-syntactic-keywords'. It is
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
70 ;; necessary because Emacs' syntax table is not powerful enough to describe all
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
71 ;; the different syntactic constructs required by the sort of people who decide
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
72 ;; that a single quote can be syntactic or not depending on the time of day.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
73 ;; (What sort of person could decide to overload the meaning of a quote?)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
74 ;; Obviously the syntactic keyword pass must occur before the syntactic pass.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
75 ;;
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
76 ;; The syntactic pass places `face' text properties in the buffer according to
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
77 ;; syntactic context, i.e., according to the buffer's syntax table and buffer
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
78 ;; text's `syntax-table' text properties. It involves using a syntax parsing
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
79 ;; function to determine the context of different parts of a region of text. A
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
80 ;; syntax parsing function is necessary because generally strings and/or
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
81 ;; comments can span lines, and so the context of a given region is not
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
82 ;; necessarily apparent from the content of that region. Because the keyword
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
83 ;; pass only works within a given region, it is not generally appropriate for
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
84 ;; syntactic fontification. This is the first fontification pass that makes
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
85 ;; changes visible to the user; it fontifies strings and comments.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
86 ;;
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
87 ;; The keyword pass places `face' text properties in the buffer according to
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
88 ;; the variable `font-lock-keywords'. It involves searching for given regexps
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
89 ;; (or calling given search functions) within the given region. This is the
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
90 ;; second fontification pass that makes changes visible to the user; it
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
91 ;; fontifies language reserved words, etc.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
92 ;;
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
93 ;; Oh, and the answer is, "Yes, obviously just about everything should be done
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
94 ;; in a single syntactic pass, but the only syntactic parser available
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
95 ;; understands only strings and comments." Perhaps one day someone will write
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
96 ;; some syntactic parsers for common languages and a son-of-font-lock.el could
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
97 ;; use them rather then relying so heavily on the keyword (regexp) pass.
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
98
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
99 ;;; How Font Lock mode supports modes or is supported by modes:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
100
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
101 ;; Modes that support Font Lock mode do so by defining one or more variables
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
102 ;; whose values specify the fontification. Font Lock mode knows of these
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
103 ;; variable names from (a) the buffer local variable `font-lock-defaults', if
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
104 ;; non-nil, or (b) the global variable `font-lock-defaults-alist', if the major
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
105 ;; mode has an entry. (Font Lock mode is set up via (a) where a mode's
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
106 ;; patterns are distributed with the mode's package library, and (b) where a
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
107 ;; mode's patterns are distributed with font-lock.el itself. An example of (a)
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
108 ;; is Pascal mode, an example of (b) is Lisp mode. Normally, the mechanism is
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
109 ;; (a); (b) is used where it is not clear which package library should contain
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
110 ;; the pattern definitions.) Font Lock mode chooses which variable to use for
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
111 ;; fontification based on `font-lock-maximum-decoration'.
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
112 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
113 ;; Font Lock mode fontification behaviour can be modified in a number of ways.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
114 ;; See the below comments and the comments distributed throughout this file.
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
115
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
116 ;;; Constructing patterns:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
117
15653
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
118 ;; See the documentation for the variable `font-lock-keywords'.
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
119 ;;
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
120 ;; Efficient regexps for use as MATCHERs for `font-lock-keywords' and
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
121 ;; `font-lock-syntactic-keywords' can be generated via the function
28087
9ca294cf76c7 (font-lock-keywords): Fix the doc now that regexp-opt-depth is unnecessary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28069
diff changeset
122 ;; `regexp-opt'.
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
123
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
124 ;;; Adding patterns for modes that already support Font Lock:
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
125
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
126 ;; Though Font Lock highlighting patterns already exist for many modes, it's
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
127 ;; likely there's something that you want fontified that currently isn't, even
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
128 ;; at the maximum fontification level. You can add highlighting patterns via
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
129 ;; `font-lock-add-keywords'. For example, say in some C
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
130 ;; header file you #define the token `and' to expand to `&&', etc., to make
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
131 ;; your C code almost readable. In your ~/.emacs there could be:
15653
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
132 ;;
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
133 ;; (font-lock-add-keywords 'c-mode '("\\<\\(and\\|or\\|not\\)\\>"))
15653
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
134 ;;
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
135 ;; Some modes provide specific ways to modify patterns based on the values of
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
136 ;; other variables. For example, additional C types can be specified via the
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
137 ;; variable `c-font-lock-extra-types'.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
138
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
139 ;;; Adding patterns for modes that do not support Font Lock:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
140
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
141 ;; Not all modes support Font Lock mode. If you (as a user of the mode) add
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
142 ;; patterns for a new mode, you must define in your ~/.emacs a variable or
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
143 ;; variables that specify regexp fontification. Then, you should indicate to
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
144 ;; Font Lock mode, via the mode hook setting `font-lock-defaults', exactly what
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
145 ;; support is required. For example, say Foo mode should have the following
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
146 ;; regexps fontified case-sensitively, and comments and strings should not be
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
147 ;; fontified automagically. In your ~/.emacs there could be:
15653
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
148 ;;
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
149 ;; (defvar foo-font-lock-keywords
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
150 ;; '(("\\<\\(one\\|two\\|three\\)\\>" . font-lock-keyword-face)
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
151 ;; ("\\<\\(four\\|five\\|six\\)\\>" . font-lock-type-face))
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
152 ;; "Default expressions to highlight in Foo mode.")
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
153 ;;
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
154 ;; (add-hook 'foo-mode-hook
45712
3d25fe242d2a (font-lock-set-defaults-1): Variable alist is now set in
Colin Walters <walters@gnu.org>
parents: 45445
diff changeset
155 ;; (lambda ()
3d25fe242d2a (font-lock-set-defaults-1): Variable alist is now set in
Colin Walters <walters@gnu.org>
parents: 45445
diff changeset
156 ;; (make-local-variable 'font-lock-defaults)
3d25fe242d2a (font-lock-set-defaults-1): Variable alist is now set in
Colin Walters <walters@gnu.org>
parents: 45445
diff changeset
157 ;; (setq font-lock-defaults '(foo-font-lock-keywords t))))
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
158
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
159 ;;; Adding Font Lock support for modes:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
160
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
161 ;; Of course, it would be better that the mode already supports Font Lock mode.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
162 ;; The package author would do something similar to above. The mode must
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
163 ;; define at the top-level a variable or variables that specify regexp
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
164 ;; fontification. Then, the mode command should indicate to Font Lock mode,
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
165 ;; via `font-lock-defaults', exactly what support is required. For example,
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
166 ;; say Bar mode should have the following regexps fontified case-insensitively,
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
167 ;; and comments and strings should be fontified automagically. In bar.el there
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
168 ;; could be:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
169 ;;
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
170 ;; (defvar bar-font-lock-keywords
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
171 ;; '(("\\<\\(uno\\|due\\|tre\\)\\>" . font-lock-keyword-face)
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
172 ;; ("\\<\\(quattro\\|cinque\\|sei\\)\\>" . font-lock-type-face))
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
173 ;; "Default expressions to highlight in Bar mode.")
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
174 ;;
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
175 ;; and within `bar-mode' there could be:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
176 ;;
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
177 ;; (make-local-variable 'font-lock-defaults)
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
178 ;; (setq font-lock-defaults '(bar-font-lock-keywords nil t))
15653
1653d3208c05 1. Use new font-lock-comment-start-regexp for matching a comment---it can be faster than comment-start-skip.
Simon Marshall <simon@gnu.org>
parents: 15500
diff changeset
179
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
180 ;; What is fontification for? You might say, "It's to make my code look nice."
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
181 ;; I think it should be for adding information in the form of cues. These cues
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
182 ;; should provide you with enough information to both (a) distinguish between
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
183 ;; different items, and (b) identify the item meanings, without having to read
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
184 ;; the items and think about it. Therefore, fontification allows you to think
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
185 ;; less about, say, the structure of code, and more about, say, why the code
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
186 ;; doesn't work. Or maybe it allows you to think less and drift off to sleep.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
187 ;;
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
188 ;; So, here are my opinions/advice/guidelines:
30651
61c2f9fcb8f6 * emacs-lisp/cl-indent.el (toplevel): Indent `defclass',
Sam Steingold <sds@gnu.org>
parents: 29919
diff changeset
189 ;;
13701
1dab6f0d9239 Don't turn on in any buffer with a leading space in its name.
Simon Marshall <simon@gnu.org>
parents: 13641
diff changeset
190 ;; - Highlight conceptual objects, such as function and variable names, and
1dab6f0d9239 Don't turn on in any buffer with a leading space in its name.
Simon Marshall <simon@gnu.org>
parents: 13641
diff changeset
191 ;; different objects types differently, i.e., (a) and (b) above, highlight
1dab6f0d9239 Don't turn on in any buffer with a leading space in its name.
Simon Marshall <simon@gnu.org>
parents: 13641
diff changeset
192 ;; function names differently to variable names.
1dab6f0d9239 Don't turn on in any buffer with a leading space in its name.
Simon Marshall <simon@gnu.org>
parents: 13641
diff changeset
193 ;; - Keep the faces distinct from each other as far as possible.
1dab6f0d9239 Don't turn on in any buffer with a leading space in its name.
Simon Marshall <simon@gnu.org>
parents: 13641
diff changeset
194 ;; i.e., (a) above.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
195 ;; - Use the same face for the same conceptual object, across all modes.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
196 ;; i.e., (b) above, all modes that have items that can be thought of as, say,
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
197 ;; keywords, should be highlighted with the same face, etc.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
198 ;; - Make the face attributes fit the concept as far as possible.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
199 ;; i.e., function names might be a bold colour such as blue, comments might
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
200 ;; be a bright colour such as red, character strings might be brown, because,
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
201 ;; err, strings are brown (that was not the reason, please believe me).
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
202 ;; - Don't use a non-nil OVERRIDE unless you have a good reason.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
203 ;; Only use OVERRIDE for special things that are easy to define, such as the
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
204 ;; way `...' quotes are treated in strings and comments in Emacs Lisp mode.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
205 ;; Don't use it to, say, highlight keywords in commented out code or strings.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
206 ;; - Err, that's it.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
207
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
208 ;;; Code:
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
209
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
210 (require 'syntax)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
211
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
212 ;; Define core `font-lock' group.
53710
31ae933487b2 (font-lock): Add jit-lock as explicit group member.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53405
diff changeset
213 (defgroup font-lock '((jit-lock custom-group))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
214 "Font Lock mode text highlighting package."
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
215 :link '(custom-manual "(emacs)Font Lock")
25286
fb00c7bb8642 Add a :link to font-lock defgroup.
Dave Love <fx@gnu.org>
parents: 25124
diff changeset
216 :link '(custom-manual "(elisp)Font Lock Mode")
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
217 :group 'faces)
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
218
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
219 (defgroup font-lock-highlighting-faces nil
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
220 "Faces for highlighting text."
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
221 :prefix "font-lock-"
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
222 :group 'font-lock)
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
223
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
224 (defgroup font-lock-extra-types nil
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
225 "Extra mode-specific type names for highlighting declarations."
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
226 :group 'font-lock)
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
227
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
228 ;; Define support mode groups here to impose `font-lock' group order.
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
229 (defgroup fast-lock nil
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
230 "Font Lock support mode to cache fontification."
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
231 :load 'fast-lock
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
232 :group 'font-lock)
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
233
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
234 (defgroup lazy-lock nil
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
235 "Font Lock support mode to fontify lazily."
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
236 :load 'lazy-lock
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
237 :group 'font-lock)
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
238
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
239 ;; User variables.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
240
23163
e754d3dcb5e8 (tex-font-lock-keywords-2): Fontify \nocite like \cite.
Simon Marshall <simon@gnu.org>
parents: 22892
diff changeset
241 (defcustom font-lock-maximum-size 256000
18332
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
242 "*Maximum size of a buffer for buffer fontification.
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
243 Only buffers less than this can be fontified when Font Lock mode is turned on.
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
244 If nil, means size is irrelevant.
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
245 If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
246 where MAJOR-MODE is a symbol or t (meaning the default). For example:
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
247 ((c-mode . 256000) (c++-mode . 256000) (rmail-mode . 1048576))
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
248 means that the maximum size is 250K for buffers in C or C++ modes, one megabyte
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
249 for buffers in Rmail mode, and size is irrelevant otherwise."
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
250 :type '(choice (const :tag "none" nil)
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
251 (integer :tag "size")
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
252 (repeat :menu-tag "mode specific" :tag "mode specific"
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
253 :value ((t . nil))
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
254 (cons :tag "Instance"
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
255 (radio :tag "Mode"
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
256 (const :tag "all" t)
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
257 (symbol :tag "name"))
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
258 (radio :tag "Size"
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
259 (const :tag "none" nil)
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
260 (integer :tag "size")))))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
261 :group 'font-lock)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
263 (defcustom font-lock-maximum-decoration t
14780
1d10e4a2fb51 Treat font-lock-keywords of (t) the same as nil.
Simon Marshall <simon@gnu.org>
parents: 14778
diff changeset
264 "*Maximum decoration level for fontification.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
265 If nil, use the default decoration (typically the minimum available).
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
266 If t, use the maximum decoration available.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
267 If a number, use that level of decoration (or if not available the maximum).
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
268 If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL),
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
269 where MAJOR-MODE is a symbol or t (meaning the default). For example:
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
270 ((c-mode . t) (c++-mode . 2) (t . 1))
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
271 means use the maximum decoration available for buffers in C mode, level 2
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
272 decoration for buffers in C++ mode, and level 1 decoration otherwise."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
273 :type '(choice (const :tag "default" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
274 (const :tag "maximum" t)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
275 (integer :tag "level" 1)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
276 (repeat :menu-tag "mode specific" :tag "mode specific"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
277 :value ((t . t))
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
278 (cons :tag "Instance"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
279 (radio :tag "Mode"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
280 (const :tag "all" t)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
281 (symbol :tag "name"))
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
282 (radio :tag "Decoration"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
283 (const :tag "default" nil)
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
284 (const :tag "maximum" t)
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
285 (integer :tag "level" 1)))))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
286 :group 'font-lock)
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
287
23163
e754d3dcb5e8 (tex-font-lock-keywords-2): Fontify \nocite like \cite.
Simon Marshall <simon@gnu.org>
parents: 22892
diff changeset
288 (defcustom font-lock-verbose 0
18332
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
289 "*If non-nil, means show status messages for buffer fontification.
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
290 If a number, only buffers greater than this size have fontification messages."
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
291 :type '(choice (const :tag "never" nil)
23163
e754d3dcb5e8 (tex-font-lock-keywords-2): Fontify \nocite like \cite.
Simon Marshall <simon@gnu.org>
parents: 22892
diff changeset
292 (other :tag "always" t)
e754d3dcb5e8 (tex-font-lock-keywords-2): Fontify \nocite like \cite.
Simon Marshall <simon@gnu.org>
parents: 22892
diff changeset
293 (integer :tag "size"))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
294 :group 'font-lock)
60686
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
295
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
296 (defcustom font-lock-lines-before 1
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
297 "*Number of lines before the changed text to include in refontification."
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
298 :type 'integer
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
299 :group 'font-lock
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
300 :version "22.1")
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
301
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
302
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
303 ;; Originally these variable values were face names such as `bold' etc.
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
304 ;; Now we create our own faces, but we keep these variables for compatibility
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
305 ;; and they give users another mechanism for changing face appearance.
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
306 ;; We now allow a FACENAME in `font-lock-keywords' to be any expression that
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
307 ;; returns a face. So the easiest thing is to continue using these variables,
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
308 ;; rather than sometimes evaling FACENAME and sometimes not. sm.
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
309 (defvar font-lock-comment-face 'font-lock-comment-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
310 "Face name to use for comments.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
311
61771
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
312 (defvar font-lock-comment-delimiter-face 'font-lock-comment-delimiter-face
61813
13d42889189f (font-lock-comment-delimiter-face): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 61771
diff changeset
313 "Face name to use for comment delimiters.")
61771
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
314
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
315 (defvar font-lock-string-face 'font-lock-string-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
316 "Face name to use for strings.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
317
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
318 (defvar font-lock-doc-face 'font-lock-doc-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
319 "Face name to use for documentation.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
320
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
321 (defvar font-lock-keyword-face 'font-lock-keyword-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
322 "Face name to use for keywords.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
323
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
324 (defvar font-lock-builtin-face 'font-lock-builtin-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
325 "Face name to use for builtins.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
326
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
327 (defvar font-lock-function-name-face 'font-lock-function-name-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
328 "Face name to use for function names.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
329
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
330 (defvar font-lock-variable-name-face 'font-lock-variable-name-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
331 "Face name to use for variable names.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
332
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
333 (defvar font-lock-type-face 'font-lock-type-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
334 "Face name to use for type and class names.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
335
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
336 (defvar font-lock-constant-face 'font-lock-constant-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
337 "Face name to use for constant and label names.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
338
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
339 (defvar font-lock-warning-face 'font-lock-warning-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
340 "Face name to use for things that should stand out.")
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
341
62078
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
342 (defvar font-lock-negation-char-face 'font-lock-negation-char-face
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
343 "Face name to use for easy to overlook negation.
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
344 This can be an \"!\" or the \"n\" in \"ifndef\".")
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
345
50588
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
346 (defvar font-lock-preprocessor-face 'font-lock-preprocessor-face
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
347 "Face name to use for preprocessor directives.")
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
348
49615
0ddc2f13992e (font-lock-reference-face): Add obsolescence declaration and remove redundant
Juanma Barranquero <lekktu@gmail.com>
parents: 49569
diff changeset
349 (defvar font-lock-reference-face 'font-lock-constant-face)
0ddc2f13992e (font-lock-reference-face): Add obsolescence declaration and remove redundant
Juanma Barranquero <lekktu@gmail.com>
parents: 49569
diff changeset
350 (make-obsolete-variable 'font-lock-reference-face 'font-lock-constant-face)
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
351
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
352 ;; Fontification variables:
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
353
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 (defvar font-lock-keywords nil
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
355 "A list of the keywords to highlight.
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
356 There are two kinds of values: user-level, and compiled.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
357
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
358 A user-level keywords list is what a major mode or the user would
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
359 set up. Normally the list would come from `font-lock-defaults'.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
360 through selection of a fontification level and evaluation of any
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
361 contained expressions. You can also alter it by calling
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
362 `font-lock-add-keywords' or `font-lock-remove-keywords' with MODE = nil.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
363
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
364 Each element in a user-level keywords list should have one of these forms:
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
365
11515
0ebfc7701ebf Make font-lock.el use compiled keywords; added FN as possible matcher.
Simon Marshall <simon@gnu.org>
parents: 11467
diff changeset
366 MATCHER
0ebfc7701ebf Make font-lock.el use compiled keywords; added FN as possible matcher.
Simon Marshall <simon@gnu.org>
parents: 11467
diff changeset
367 (MATCHER . MATCH)
0ebfc7701ebf Make font-lock.el use compiled keywords; added FN as possible matcher.
Simon Marshall <simon@gnu.org>
parents: 11467
diff changeset
368 (MATCHER . FACENAME)
0ebfc7701ebf Make font-lock.el use compiled keywords; added FN as possible matcher.
Simon Marshall <simon@gnu.org>
parents: 11467
diff changeset
369 (MATCHER . HIGHLIGHT)
0ebfc7701ebf Make font-lock.el use compiled keywords; added FN as possible matcher.
Simon Marshall <simon@gnu.org>
parents: 11467
diff changeset
370 (MATCHER HIGHLIGHT ...)
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
371 (eval . FORM)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
373 where MATCHER can be either the regexp to search for, or the function name to
56553
a474fcb6d318 (font-lock-keywords): Docstring improvement.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56447
diff changeset
374 call to make the search (called with one argument, the limit of the search;
a474fcb6d318 (font-lock-keywords): Docstring improvement.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56447
diff changeset
375 it should return non-nil, move point, and set `match-data' appropriately iff
a474fcb6d318 (font-lock-keywords): Docstring improvement.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56447
diff changeset
376 it succeeds; like `re-search-forward' would).
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
377 MATCHER regexps can be generated via the function `regexp-opt'.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
378
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
379 FORM is an expression, whose value should be a keyword element, evaluated when
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
380 the keyword is (first) used in a buffer. This feature can be used to provide a
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
381 keyword that can only be generated when Font Lock mode is actually turned on.
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
382
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
383 HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED.
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
384
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
385 For highlighting single items, for example each instance of the word \"foo\",
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
386 typically only MATCH-HIGHLIGHT is required.
13982
baba81b17362 (font-lock-keywords): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13701
diff changeset
387 However, if an item or (typically) items are to be highlighted following the
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
388 instance of another item (the anchor), for example each instance of the
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
389 word \"bar\" following the word \"anchor\" then MATCH-ANCHORED may be required.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
390
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
391 MATCH-HIGHLIGHT should be of the form:
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
392
62078
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
393 (MATCH FACENAME [OVERRIDE [LAXMATCH]])
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
394
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
395 MATCH is the subexpression of MATCHER to be highlighted. FACENAME is an
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
396 expression whose value is the face name to use. Face default attributes
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
397 can be modified via \\[customize]. Instead of a face, FACENAME can
61392
43b4f51d1049 (font-lock-keywords): Docstring fixes.
Lute Kamstra <lute@gnu.org>
parents: 61039
diff changeset
398 evaluate to a property list of the form (face FACE PROP1 VAL1 PROP2 VAL2 ...)
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
399 in which case all the listed text-properties will be set rather than
61392
43b4f51d1049 (font-lock-keywords): Docstring fixes.
Lute Kamstra <lute@gnu.org>
parents: 61039
diff changeset
400 just FACE. In such a case, you will most likely want to put those
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
401 properties in `font-lock-extra-managed-props' or to override
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
402 `font-lock-unfontify-region-function'.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
404 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification can
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
405 be overwritten. If `keep', only parts not already fontified are highlighted.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
406 If `prepend' or `append', existing fontification is merged with the new, in
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
407 which the new or existing fontification, respectively, takes precedence.
13982
baba81b17362 (font-lock-keywords): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13701
diff changeset
408 If LAXMATCH is non-nil, no error is signaled if there is no MATCH in MATCHER.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
410 For example, an element of the form highlights (if not already highlighted):
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
411
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
412 \"\\\\\\=<foo\\\\\\=>\" discrete occurrences of \"foo\" in the value of the
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
413 variable `font-lock-keyword-face'.
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
414 (\"fu\\\\(bar\\\\)\" . 1) substring \"bar\" within all occurrences of \"fubar\" in
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
415 the value of `font-lock-keyword-face'.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
416 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
417 (\"foo\\\\|bar\" 0 foo-bar-face t)
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
418 occurrences of either \"foo\" or \"bar\" in the value
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
419 of `foo-bar-face', even if already highlighted.
20190
bc7fabb22520 Allow any number of ::foos in declarative items.
Simon Marshall <simon@gnu.org>
parents: 19935
diff changeset
420 (fubar-match 1 fubar-face)
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
421 the first subexpression within all occurrences of
20190
bc7fabb22520 Allow any number of ::foos in declarative items.
Simon Marshall <simon@gnu.org>
parents: 19935
diff changeset
422 whatever the function `fubar-match' finds and matches
bc7fabb22520 Allow any number of ::foos in declarative items.
Simon Marshall <simon@gnu.org>
parents: 19935
diff changeset
423 in the value of `fubar-face'.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
424
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
425 MATCH-ANCHORED should be of the form:
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
426
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
427 (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
428
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
429 where MATCHER is a regexp to search for or the function name to call to make
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
430 the search, as for MATCH-HIGHLIGHT above, but with one exception; see below.
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
431 PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
432 the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be
63506
868fbdaab045 (font-lock-keywords): Fix spelling in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 63105
diff changeset
433 used to initialize before, and cleanup after, MATCHER is used. Typically,
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
434 PRE-MATCH-FORM is used to move to some position relative to the original
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
435 MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might
61392
43b4f51d1049 (font-lock-keywords): Docstring fixes.
Lute Kamstra <lute@gnu.org>
parents: 61039
diff changeset
436 be used to move back, before resuming with MATCH-ANCHORED's parent's MATCHER.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
437
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
438 For example, an element of the form highlights (if not already highlighted):
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
439
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
440 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
441
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
442 discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
443 discrete occurrences of \"item\" (on the same line) in the value of `item-face'.
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
444 (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
445 initially searched for starting from the end of the match of \"anchor\", and
61392
43b4f51d1049 (font-lock-keywords): Docstring fixes.
Lute Kamstra <lute@gnu.org>
parents: 61039
diff changeset
446 searching for subsequent instances of \"anchor\" resumes from where searching
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
447 for \"item\" concluded.)
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
448
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
449 The above-mentioned exception is as follows. The limit of the MATCHER search
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
450 defaults to the end of the line after PRE-MATCH-FORM is evaluated.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
451 However, if PRE-MATCH-FORM returns a position greater than the position after
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
452 PRE-MATCH-FORM is evaluated, that position is used as the limit of the search.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
453 It is generally a bad idea to return a position greater than the end of the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
454 line, i.e., cause the MATCHER search to span lines.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
455
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
456 These regular expressions can match text which spans lines, although
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
457 it is better to avoid it if possible since updating them while editing
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
458 text is slower, and it is not guaranteed to be always correct when using
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
459 support modes like jit-lock or lazy-lock.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
460
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
461 This variable is set by major modes via the variable `font-lock-defaults'.
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
462 Be careful when composing regexps for this list; a poorly written pattern can
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
463 dramatically slow things down!
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
464
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
465 A compiled keywords list starts with t. It is produced internal
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
466 by `font-lock-compile-keywords' from a user-level keywords list.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
467 Its second element is the user-level keywords list that was
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
468 compiled. The remaining elements have the same form as
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
469 user-level keywords, but normally their values have been
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
470 optimized.")
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
472 (defvar font-lock-keywords-alist nil
62208
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
473 "Alist of additional `font-lock-keywords' elements for major modes.
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
474
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
475 Each element has the form (MODE KEYWORDS . APPEND).
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
476 `font-lock-set-defaults' adds the elements in the list KEYWORDS to
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
477 `font-lock-keywords' when Font Lock is turned on in major mode MODE.
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
478
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
479 If APPEND is nil, KEYWORDS are added at the beginning of
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
480 `font-lock-keywords'. If it is `set', they are used to replace the
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
481 value of `font-lock-keywords'. If APPEND is any other non-nil value,
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
482 they are added at the end.
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
483
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
484 This is normally set via `font-lock-add-keywords' and
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
485 `font-lock-remove-keywords'.")
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
486
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
487 (defvar font-lock-removed-keywords-alist nil
62208
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
488 "Alist of `font-lock-keywords' elements to be removed for major modes.
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
489
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
490 Each element has the form (MODE . KEYWORDS). `font-lock-set-defaults'
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
491 removes the elements in the list KEYWORDS from `font-lock-keywords'
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
492 when Font Lock is turned on in major mode MODE.
3eeb147cd9e0 (font-lock-keywords-alist, font-lock-removed-keywords-alist): Clarify docstrings.
Lute Kamstra <lute@gnu.org>
parents: 62078
diff changeset
493
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
494 This is normally set via `font-lock-add-keywords' and
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
495 `font-lock-remove-keywords'.")
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
496
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
497 (defvar font-lock-keywords-only nil
12813
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
498 "*Non-nil means Font Lock should not fontify comments or strings.
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
499 This is normally set via `font-lock-defaults'.")
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
500
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (defvar font-lock-keywords-case-fold-search nil
12813
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
502 "*Non-nil means the patterns in `font-lock-keywords' are case-insensitive.
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
503 This is normally set via `font-lock-defaults'.")
37227
e7d998ab9275 made font-lock-keywords-case-fold-search buffer-local
Sam Steingold <sds@gnu.org>
parents: 36462
diff changeset
504 (make-variable-buffer-local 'font-lock-keywords-case-fold-search)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505
32483
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
506 (defvar font-lock-syntactically-fontified 0
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
507 "Point up to which `font-lock-syntactic-keywords' has been applied.
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
508 If nil, this is ignored, in which case the syntactic fontification may
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
509 sometimes be slightly incorrect.")
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
510 (make-variable-buffer-local 'font-lock-syntactically-fontified)
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
511
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
512 (defvar font-lock-syntactic-face-function
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
513 (lambda (state)
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
514 (if (nth 3 state) font-lock-string-face font-lock-comment-face))
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
515 "Function to determine which face to use when fontifying syntactically.
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
516 The function is called with a single parameter (the state as returned by
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
517 `parse-partial-sexp' at the beginning of the region to highlight) and
61826
f83763576d20 (font-lock-syntactic-face-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 61813
diff changeset
518 should return a face. This is normally set via `font-lock-defaults'.")
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
519
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
520 (defvar font-lock-syntactic-keywords nil
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
521 "A list of the syntactic keywords to highlight.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
522 Can be the list or the name of a function or variable whose value is the list.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
523 See `font-lock-keywords' for a description of the form of this list;
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
524 the differences are listed below. MATCH-HIGHLIGHT should be of the form:
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
525
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
526 (MATCH SYNTAX OVERRIDE LAXMATCH)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
527
32509
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
528 where SYNTAX can be a string (as taken by `modify-syntax-entry'), a syntax
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
529 table, a cons cell (as returned by `string-to-syntax') or an expression whose
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
530 value is such a form. OVERRIDE cannot be `prepend' or `append'.
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
531
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
532 For example, an element of the form highlights syntactically:
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
533
32509
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
534 (\"\\\\$\\\\(#\\\\)\" 1 \".\")
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
535
32509
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
536 a hash character when following a dollar character, with a SYNTAX of
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
537 \".\" (meaning punctuation syntax). Assuming that the buffer syntax table does
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
538 specify hash characters to have comment start syntax, the element will only
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
539 highlight hash characters that do not follow dollar characters as comments
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
540 syntactically.
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
541
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
542 (\"\\\\('\\\\).\\\\('\\\\)\"
32509
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
543 (1 \"\\\"\")
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
544 (2 \"\\\"\"))
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
545
32509
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
546 both single quotes which surround a single character, with a SYNTAX of
54ef67bbcd42 (font-lock-syntactic-keywords): Fix docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32483
diff changeset
547 \"\\\"\" (meaning string quote syntax). Assuming that the buffer syntax table
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
548 does not specify single quotes to have quote syntax, the element will only
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
549 highlight single quotes of the form 'c' as strings syntactically.
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
550 Other forms, such as foo'bar or 'fubar', will not be highlighted as strings.
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
551
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
552 This is normally set via `font-lock-defaults'.")
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
553
8457
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
554 (defvar font-lock-syntax-table nil
10879
73ce8261c2ce Added font-lock-maximum-decoration; use it to set lisp-font-lock-keywords, and
Simon Marshall <simon@gnu.org>
parents: 10545
diff changeset
555 "Non-nil means use this syntax table for fontifying.
12813
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
556 If this is nil, the major mode's syntax table is used.
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
557 This is normally set via `font-lock-defaults'.")
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
558
c9ed95ec05b6 Functionality for font-lock-beginning-of-syntax-function to be used by font-lock-fontify-region when calculating the cache state. Also wrap value of buffer-file-truename to guard against clash detection. Also add scheme-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 12626
diff changeset
559 (defvar font-lock-beginning-of-syntax-function nil
45774
71755f1fa5a4 (font-lock-beginning-of-syntax-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 45762
diff changeset
560 "*Non-nil means use this function to move back outside all constructs.
71755f1fa5a4 (font-lock-beginning-of-syntax-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 45762
diff changeset
561 When called with no args it should move point backward to a place which
71755f1fa5a4 (font-lock-beginning-of-syntax-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 45762
diff changeset
562 is not in a string or comment and not within any bracket-pairs (or else,
71755f1fa5a4 (font-lock-beginning-of-syntax-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 45762
diff changeset
563 a place such that any bracket-pairs outside it can be ignored for Emacs
71755f1fa5a4 (font-lock-beginning-of-syntax-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 45762
diff changeset
564 syntax analysis and fontification).
71755f1fa5a4 (font-lock-beginning-of-syntax-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 45762
diff changeset
565
62638
98478012afa8 (font-lock-beginning-of-syntax-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 62549
diff changeset
566 If this is nil, Font Lock uses `syntax-begin-function' to move back
98478012afa8 (font-lock-beginning-of-syntax-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 62549
diff changeset
567 outside of any comment, string, or sexp. This variable is semi-obsolete;
98478012afa8 (font-lock-beginning-of-syntax-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 62549
diff changeset
568 we recommend setting `syntax-begin-function' instead.
98478012afa8 (font-lock-beginning-of-syntax-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 62549
diff changeset
569
98478012afa8 (font-lock-beginning-of-syntax-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 62549
diff changeset
570 This is normally set via `font-lock-defaults'.")
8457
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
571
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
572 (defvar font-lock-mark-block-function nil
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
573 "*Non-nil means use this function to mark a block of text.
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
574 When called with no args it should leave point at the beginning of any
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
575 enclosing textual block and mark at the end.
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
576 This is normally set via `font-lock-defaults'.")
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
577
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
578 (defvar font-lock-fontify-buffer-function 'font-lock-default-fontify-buffer
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
579 "Function to use for fontifying the buffer.
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
580 This is normally set via `font-lock-defaults'.")
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
581
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
582 (defvar font-lock-unfontify-buffer-function 'font-lock-default-unfontify-buffer
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
583 "Function to use for unfontifying the buffer.
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
584 This is used when turning off Font Lock mode.
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
585 This is normally set via `font-lock-defaults'.")
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
586
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
587 (defvar font-lock-fontify-region-function 'font-lock-default-fontify-region
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
588 "Function to use for fontifying a region.
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
589 It should take two args, the beginning and end of the region, and an optional
61860
330b0fc9b83d (font-lock-fontify-region-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 61826
diff changeset
590 third arg VERBOSE. If VERBOSE is non-nil, the function should print status
330b0fc9b83d (font-lock-fontify-region-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 61826
diff changeset
591 messages. This is normally set via `font-lock-defaults'.")
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
592
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
593 (defvar font-lock-unfontify-region-function 'font-lock-default-unfontify-region
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
594 "Function to use for unfontifying a region.
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
595 It should take two args, the beginning and end of the region.
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
596 This is normally set via `font-lock-defaults'.")
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
597
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
598 (defvar font-lock-inhibit-thing-lock nil
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
599 "List of Font Lock mode related modes that should not be turned on.
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
600 Currently, valid mode names are `fast-lock-mode', `jit-lock-mode' and
25048
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
601 `lazy-lock-mode'. This is normally set via `font-lock-defaults'.")
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
602
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
603 (defvar font-lock-multiline nil
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
604 "Whether font-lock should cater to multiline keywords.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
605 If nil, don't try to handle multiline patterns.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
606 If t, always handle multiline patterns.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
607 If `undecided', don't try to handle multiline patterns until you see one.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
608 Major/minor modes can set this variable if they know which option applies.")
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
609
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
610 (defvar font-lock-fontified nil) ; Whether we have fontified the buffer.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
611
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
612 ;; Font Lock mode.
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
613
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
614 (eval-when-compile
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
615 ;;
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
616 ;; We don't do this at the top-level as we only use non-autoloaded macros.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
617 (require 'cl)
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
618 ;;
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
619 ;; Borrowed from lazy-lock.el.
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
620 ;; We use this to preserve or protect things when modifying text properties.
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
621 (defmacro save-buffer-state (varlist &rest body)
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
622 "Bind variables according to VARLIST and eval BODY restoring buffer state."
44229
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
623 (let ((modified (make-symbol "modified")))
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
624 `(let* ,(append varlist
44258
fc8fbdc5ca4c (save-buffer-state): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 44229
diff changeset
625 `((,modified (buffer-modified-p))
44229
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
626 (buffer-undo-list t)
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
627 (inhibit-read-only t)
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
628 (inhibit-point-motion-hooks t)
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
629 (inhibit-modification-hooks t)
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
630 deactivate-mark
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
631 buffer-file-name
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
632 buffer-file-truename))
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
633 (progn
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
634 ,@body)
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
635 (unless ,modified
8c0a16af093a (save-buffer-state): Use make-symbol to bind `modified'.
Eli Zaretskii <eliz@gnu.org>
parents: 43835
diff changeset
636 (restore-buffer-modified-p nil)))))
19846
f5f2feb0bd0f Try to comment where font-lock-keyword order is important.
Simon Marshall <simon@gnu.org>
parents: 19788
diff changeset
637 (put 'save-buffer-state 'lisp-indent-function 1)
28087
9ca294cf76c7 (font-lock-keywords): Fix the doc now that regexp-opt-depth is unnecessary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28069
diff changeset
638 (def-edebug-spec save-buffer-state let)
19846
f5f2feb0bd0f Try to comment where font-lock-keyword order is important.
Simon Marshall <simon@gnu.org>
parents: 19788
diff changeset
639 ;;
f5f2feb0bd0f Try to comment where font-lock-keyword order is important.
Simon Marshall <simon@gnu.org>
parents: 19788
diff changeset
640 ;; Shut up the byte compiler.
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
641 (defvar font-lock-face-attributes)) ; Obsolete but respected if set.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
642
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
643 ;;;###autoload
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
644 (defun font-lock-mode-internal (arg)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
645 ;; Turn on Font Lock mode.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
646 (when arg
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
647 (add-hook 'after-change-functions 'font-lock-after-change-function t t)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
648 (font-lock-set-defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
649 (font-lock-turn-on-thing-lock)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
650 ;; Fontify the buffer if we have to.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
651 (let ((max-size (font-lock-value-in-major-mode font-lock-maximum-size)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
652 (cond (font-lock-fontified
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
653 nil)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
654 ((or (null max-size) (> max-size (buffer-size)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
655 (font-lock-fontify-buffer))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
656 (font-lock-verbose
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
657 (message "Fontifying %s...buffer size greater than font-lock-maximum-size"
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
658 (buffer-name))))))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
659 ;; Turn off Font Lock mode.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
660 (unless font-lock-mode
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
661 (remove-hook 'after-change-functions 'font-lock-after-change-function t)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
662 (font-lock-unfontify-buffer)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
663 (font-lock-turn-off-thing-lock)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
664
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
665 ;;;###autoload
26775
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
666 (defun font-lock-add-keywords (mode keywords &optional append)
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
667 "Add highlighting KEYWORDS for MODE.
61826
f83763576d20 (font-lock-syntactic-face-function): Fix docstring.
Lute Kamstra <lute@gnu.org>
parents: 61813
diff changeset
668
26775
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
669 MODE should be a symbol, the major mode command name, such as `c-mode'
16852
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
670 or nil. If nil, highlighting keywords are added for the current buffer.
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
671 KEYWORDS should be a list; see the variable `font-lock-keywords'.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
672 By default they are added at the beginning of the current highlighting list.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
673 If optional argument APPEND is `set', they are used to replace the current
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
674 highlighting list. If APPEND is any other non-nil value, they are added at the
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
675 end of the current highlighting list.
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
676
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
677 For example:
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
678
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
679 (font-lock-add-keywords 'c-mode
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
680 '((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 font-lock-warning-face prepend)
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
681 (\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" . font-lock-keyword-face)))
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
682
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
683 adds two fontification patterns for C mode, to fontify `FIXME:' words, even in
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
684 comments, and to fontify `and', `or' and `not' words as keywords.
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
685
63025
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
686 The above procedure will only add the keywords for C mode, not
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
687 for modes derived from C mode. To add them for derived modes too,
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
688 pass nil for MODE and add the call to c-mode-hook.
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
689
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
690 For example:
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
691
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
692 (add-hook 'c-mode-hook
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
693 (lambda ()
63105
ad41fcdb0642 (font-lock-add-keywords): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 63049
diff changeset
694 (font-lock-add-keywords nil
63025
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
695 '((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 font-lock-warning-face prepend)
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
696 (\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" .
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
697 font-lock-keyword-face)))))
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
698
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
699 The above procedure may fail to add keywords to derived modes if
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
700 some involved major mode does not follow the standard conventions.
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
701 File a bug report if this happens, so the major mode can be corrected.
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
702
47121
ec5f8ce91ceb (font-lock-add-keywords): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 46249
diff changeset
703 Note that some modes have specialized support for additional patterns, e.g.,
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
704 see the variables `c-font-lock-extra-types', `c++-font-lock-extra-types',
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
705 `objc-font-lock-extra-types' and `java-font-lock-extra-types'."
26775
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
706 (cond (mode
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
707 ;; If MODE is non-nil, add the KEYWORDS and APPEND spec to
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
708 ;; `font-lock-keywords-alist' so `font-lock-set-defaults' uses them.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
709 (let ((spec (cons keywords append)) cell)
26775
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
710 (if (setq cell (assq mode font-lock-keywords-alist))
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
711 (if (eq append 'set)
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
712 (setcdr cell (list spec))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
713 (setcdr cell (append (cdr cell) (list spec))))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
714 (push (list mode spec) font-lock-keywords-alist)))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
715 ;; Make sure that `font-lock-removed-keywords-alist' does not
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
716 ;; contain the new keywords.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
717 (font-lock-update-removed-keyword-alist mode keywords append))
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
718 (t
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
719 ;; Otherwise set or add the keywords now.
63025
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
720 ;; This is a no-op if it has been done already in this buffer
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
721 ;; for the correct major mode.
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
722 (font-lock-set-defaults)
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
723 (let ((was-compiled (eq (car font-lock-keywords) t)))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
724 ;; Bring back the user-level (uncompiled) keywords.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
725 (if was-compiled
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
726 (setq font-lock-keywords (cadr font-lock-keywords)))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
727 ;; Now modify or replace them.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
728 (if (eq append 'set)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
729 (setq font-lock-keywords keywords)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
730 (font-lock-remove-keywords nil keywords) ;to avoid duplicates
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
731 (let ((old (if (eq (car-safe font-lock-keywords) t)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
732 (cdr font-lock-keywords)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
733 font-lock-keywords)))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
734 (setq font-lock-keywords (if append
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
735 (append old keywords)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
736 (append keywords old)))))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
737 ;; If the keywords were compiled before, compile them again.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
738 (if was-compiled
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
739 (set (make-local-variable 'font-lock-keywords)
56447
5f33b16eb67e (font-lock-add-keywords, font-lock-remove-keywords):
Richard M. Stallman <rms@gnu.org>
parents: 56265
diff changeset
740 (font-lock-compile-keywords font-lock-keywords t)))))))
26746
d22cd599a91a (font-lock-default-fontify-region): Fix subtle
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26620
diff changeset
741
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
742 (defun font-lock-update-removed-keyword-alist (mode keywords append)
61910
caf171b08132 (font-lock-add-keywords, font-lock-remove-keywords): Clarify docstring.
Lute Kamstra <lute@gnu.org>
parents: 61891
diff changeset
743 "Update `font-lock-removed-keywords-alist' when adding new KEYWORDS to MODE."
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
744 ;; When font-lock is enabled first all keywords in the list
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
745 ;; `font-lock-keywords-alist' are added, then all keywords in the
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
746 ;; list `font-lock-removed-keywords-alist' are removed. If a
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
747 ;; keyword was once added, removed, and then added again it must be
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
748 ;; removed from the removed-keywords list. Otherwise the second add
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
749 ;; will not take effect.
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
750 (let ((cell (assq mode font-lock-removed-keywords-alist)))
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
751 (if cell
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
752 (if (eq append 'set)
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
753 ;; A new set of keywords is defined. Forget all about
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
754 ;; our old keywords that should be removed.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
755 (setq font-lock-removed-keywords-alist
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
756 (delq cell font-lock-removed-keywords-alist))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
757 ;; Delete all previously removed keywords.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
758 (dolist (kword keywords)
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
759 (setcdr cell (delete kword (cdr cell))))
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
760 ;; Delete the mode cell if empty.
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
761 (if (null (cdr cell))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
762 (setq font-lock-removed-keywords-alist
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
763 (delq cell font-lock-removed-keywords-alist)))))))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
764
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
765 ;; Written by Anders Lindgren <andersl@andersl.com>.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
766 ;;
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
767 ;; Case study:
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
768 ;; (I) The keywords are removed from a major mode.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
769 ;; In this case the keyword could be local (i.e. added earlier by
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
770 ;; `font-lock-add-keywords'), global, or both.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
771 ;;
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
772 ;; (a) In the local case we remove the keywords from the variable
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
773 ;; `font-lock-keywords-alist'.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
774 ;;
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
775 ;; (b) The actual global keywords are not known at this time.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
776 ;; All keywords are added to `font-lock-removed-keywords-alist',
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
777 ;; when font-lock is enabled those keywords are removed.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
778 ;;
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
779 ;; Note that added keywords are taken out of the list of removed
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
780 ;; keywords. This ensure correct operation when the same keyword
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
781 ;; is added and removed several times.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
782 ;;
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
783 ;; (II) The keywords are removed from the current buffer.
26746
d22cd599a91a (font-lock-default-fontify-region): Fix subtle
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26620
diff changeset
784 ;;;###autoload
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
785 (defun font-lock-remove-keywords (mode keywords)
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
786 "Remove highlighting KEYWORDS for MODE.
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
787
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
788 MODE should be a symbol, the major mode command name, such as `c-mode'
37693
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
789 or nil. If nil, highlighting keywords are removed for the current buffer.
15212455191b Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37522
diff changeset
790
63025
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
791 To make the removal apply to modes derived from MODE as well,
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
792 pass nil for MODE and add the call to MODE-hook. This may fail
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
793 for some derived modes if some involved major mode does not
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
794 follow the standard conventions. File a bug report if this
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
795 happens, so the major mode can be corrected."
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
796 (cond (mode
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
797 ;; Remove one keyword at the time.
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
798 (dolist (keyword keywords)
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
799 (let ((top-cell (assq mode font-lock-keywords-alist)))
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
800 ;; If MODE is non-nil, remove the KEYWORD from
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
801 ;; `font-lock-keywords-alist'.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
802 (when top-cell
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
803 (dolist (keyword-list-append-pair (cdr top-cell))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
804 ;; `keywords-list-append-pair' is a cons with a list of
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
805 ;; keywords in the car top-cell and the original append
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
806 ;; argument in the cdr top-cell.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
807 (setcar keyword-list-append-pair
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
808 (delete keyword (car keyword-list-append-pair))))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
809 ;; Remove keyword list/append pair when the keyword list
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
810 ;; is empty and append doesn't specify `set'. (If it
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
811 ;; should be deleted then previously deleted keywords
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
812 ;; would appear again.)
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
813 (let ((cell top-cell))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
814 (while (cdr cell)
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
815 (if (and (null (car (car (cdr cell))))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
816 (not (eq (cdr (car (cdr cell))) 'set)))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
817 (setcdr cell (cdr (cdr cell)))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
818 (setq cell (cdr cell)))))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
819 ;; Final cleanup, remove major mode cell if last keyword
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
820 ;; was deleted.
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
821 (if (null (cdr top-cell))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
822 (setq font-lock-keywords-alist
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
823 (delq top-cell font-lock-keywords-alist))))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
824 ;; Remember the keyword in case it is not local.
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
825 (let ((cell (assq mode font-lock-removed-keywords-alist)))
26920
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
826 (if cell
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
827 (unless (member keyword (cdr cell))
e510f839bc63 System for adding and removing keywords.
Gerd Moellmann <gerd@gnu.org>
parents: 26915
diff changeset
828 (nconc cell (list keyword)))
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
829 (push (cons mode (list keyword))
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
830 font-lock-removed-keywords-alist))))))
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
831 (t
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
832 ;; Otherwise remove it immediately.
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
833 (font-lock-set-defaults)
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
834 (let ((was-compiled (eq (car font-lock-keywords) t)))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
835 ;; Bring back the user-level (uncompiled) keywords.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
836 (if was-compiled
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
837 (setq font-lock-keywords (cadr font-lock-keywords)))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
838
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
839 ;; Edit them.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
840 (setq font-lock-keywords (copy-sequence font-lock-keywords))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
841 (dolist (keyword keywords)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
842 (setq font-lock-keywords
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
843 (delete keyword font-lock-keywords)))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
844
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
845 ;; If the keywords were compiled before, compile them again.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
846 (if was-compiled
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
847 (set (make-local-variable 'font-lock-keywords)
56447
5f33b16eb67e (font-lock-add-keywords, font-lock-remove-keywords):
Richard M. Stallman <rms@gnu.org>
parents: 56265
diff changeset
848 (font-lock-compile-keywords font-lock-keywords t)))))))
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
849
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
850 ;;; Font Lock Support mode.
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
851
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
852 ;; This is the code used to interface font-lock.el with any of its add-on
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
853 ;; packages, and provide the user interface. Packages that have their own
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
854 ;; local buffer fontification functions (see below) may have to call
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
855 ;; `font-lock-after-fontify-buffer' and/or `font-lock-after-unfontify-buffer'
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
856 ;; themselves.
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
857
25319
f9b3511a51c4 (font-lock-support-mode): Make `jit-lock-mode'
Gerd Moellmann <gerd@gnu.org>
parents: 25286
diff changeset
858 (defcustom font-lock-support-mode 'jit-lock-mode
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
859 "*Support mode for Font Lock mode.
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
860 Support modes speed up Font Lock mode by being choosy about when fontification
25048
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
861 occurs. Known support modes are Fast Lock mode (symbol `fast-lock-mode'),
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
862 Lazy Lock mode (symbol `lazy-lock-mode'), and Just-in-time Lock mode (symbol
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
863 `jit-lock-mode'. See those modes for more info.
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
864 If nil, means support for Font Lock mode is never performed.
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
865 If a symbol, use that support mode.
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
866 If a list, each element should be of the form (MAJOR-MODE . SUPPORT-MODE),
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
867 where MAJOR-MODE is a symbol or t (meaning the default). For example:
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
868 ((c-mode . fast-lock-mode) (c++-mode . fast-lock-mode) (t . lazy-lock-mode))
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
869 means that Fast Lock mode is used to support Font Lock mode for buffers in C or
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
870 C++ modes, and Lazy Lock mode is used to support Font Lock mode otherwise.
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
871
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
872 The value of this variable is used when Font Lock mode is turned on."
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
873 :type '(choice (const :tag "none" nil)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
874 (const :tag "fast lock" fast-lock-mode)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
875 (const :tag "lazy lock" lazy-lock-mode)
25048
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
876 (const :tag "jit lock" jit-lock-mode)
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
877 (repeat :menu-tag "mode specific" :tag "mode specific"
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
878 :value ((t . jit-lock-mode))
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
879 (cons :tag "Instance"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
880 (radio :tag "Mode"
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
881 (const :tag "all" t)
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
882 (symbol :tag "name"))
22892
850946452989 (lisp-font-lock-keywords-1): Fix previous change.
Simon Marshall <simon@gnu.org>
parents: 22857
diff changeset
883 (radio :tag "Support"
850946452989 (lisp-font-lock-keywords-1): Fix previous change.
Simon Marshall <simon@gnu.org>
parents: 22857
diff changeset
884 (const :tag "none" nil)
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
885 (const :tag "fast lock" fast-lock-mode)
25048
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
886 (const :tag "lazy lock" lazy-lock-mode)
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
887 (const :tag "JIT lock" jit-lock-mode)))
17507
fd87760f20cd Cleaned up custom support.
Simon Marshall <simon@gnu.org>
parents: 17495
diff changeset
888 ))
29919
08e5e3740bf9 (font-lock-fontify-anchored-keywords): Use line-beginning-position.
Dave Love <fx@gnu.org>
parents: 29709
diff changeset
889 :version "21.1"
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
890 :group 'font-lock)
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
891
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
892 (defvar fast-lock-mode)
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
893 (defvar lazy-lock-mode)
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
894 (defvar jit-lock-mode)
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
895
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
896 (defun font-lock-turn-on-thing-lock ()
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
897 (let ((thing-mode (font-lock-value-in-major-mode font-lock-support-mode)))
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
898 (cond ((eq thing-mode 'fast-lock-mode)
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
899 (fast-lock-mode t))
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
900 ((eq thing-mode 'lazy-lock-mode)
25048
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
901 (lazy-lock-mode t))
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
902 ((eq thing-mode 'jit-lock-mode)
32216
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
903 ;; Prepare for jit-lock
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
904 (remove-hook 'after-change-functions
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
905 'font-lock-after-change-function t)
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
906 (set (make-local-variable 'font-lock-fontify-buffer-function)
32306
86a849ccfae1 (font-lock-defaults): Make buffer-local.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32272
diff changeset
907 'jit-lock-refontify)
63049
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
908 ;; Don't fontify eagerly (and don't abort if the buffer is large).
32216
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
909 (set (make-local-variable 'font-lock-fontified) t)
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
910 ;; Use jit-lock.
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
911 (jit-lock-register 'font-lock-fontify-region
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
912 (not font-lock-keywords-only))))))
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
913
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
914 (defun font-lock-turn-off-thing-lock ()
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
915 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode)
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
916 (fast-lock-mode -1))
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
917 ((and (boundp 'jit-lock-mode) jit-lock-mode)
32216
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
918 (jit-lock-unregister 'font-lock-fontify-region)
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
919 ;; Reset local vars to the non-jit-lock case.
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
920 (kill-local-variable 'font-lock-fontify-buffer-function))
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
921 ((and (boundp 'lazy-lock-mode) lazy-lock-mode)
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
922 (lazy-lock-mode -1))))
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
923
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
924 (defun font-lock-after-fontify-buffer ()
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
925 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode)
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
926 (fast-lock-after-fontify-buffer))
29709
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
927 ;; Useless now that jit-lock intercepts font-lock-fontify-buffer. -sm
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
928 ;; (jit-lock-mode
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
929 ;; (jit-lock-after-fontify-buffer))
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
930 ((and (boundp 'lazy-lock-mode) lazy-lock-mode)
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
931 (lazy-lock-after-fontify-buffer))))
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
932
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
933 (defun font-lock-after-unfontify-buffer ()
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
934 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode)
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
935 (fast-lock-after-unfontify-buffer))
29709
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
936 ;; Useless as well. It's only called when:
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
937 ;; - turning off font-lock: it does not matter if we leave spurious
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
938 ;; `fontified' text props around since jit-lock-mode is also off.
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
939 ;; - font-lock-default-fontify-buffer fails: this is not run
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
940 ;; any more anyway. -sm
30651
61c2f9fcb8f6 * emacs-lisp/cl-indent.el (toplevel): Indent `defclass',
Sam Steingold <sds@gnu.org>
parents: 29919
diff changeset
941 ;;
29709
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
942 ;; (jit-lock-mode
69ac77ea153c (font-lock-after-fontify-buffer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28891
diff changeset
943 ;; (jit-lock-after-unfontify-buffer))
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
944 ((and (boundp 'lazy-lock-mode) lazy-lock-mode)
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
945 (lazy-lock-after-unfontify-buffer))))
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
946
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
947 ;;; End of Font Lock Support mode.
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
948
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
949 ;;; Fontification functions.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
950
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
951 ;; Rather than the function, e.g., `font-lock-fontify-region' containing the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
952 ;; code to fontify a region, the function runs the function whose name is the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
953 ;; value of the variable, e.g., `font-lock-fontify-region-function'. Normally,
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
954 ;; the value of this variable is, e.g., `font-lock-default-fontify-region'
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
955 ;; which does contain the code to fontify a region. However, the value of the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
956 ;; variable could be anything and thus, e.g., `font-lock-fontify-region' could
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
957 ;; do anything. The indirection of the fontification functions gives major
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
958 ;; modes the capability of modifying the way font-lock.el fontifies. Major
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
959 ;; modes can modify the values of, e.g., `font-lock-fontify-region-function',
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
960 ;; via the variable `font-lock-defaults'.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
961 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
962 ;; For example, Rmail mode sets the variable `font-lock-defaults' so that
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
963 ;; font-lock.el uses its own function for buffer fontification. This function
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
964 ;; makes fontification be on a message-by-message basis and so visiting an
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
965 ;; RMAIL file is much faster. A clever implementation of the function might
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
966 ;; fontify the headers differently than the message body. (It should, and
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
967 ;; correspondingly for Mail mode, but I can't be bothered to do the work. Can
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
968 ;; you?) This hints at a more interesting use...
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
969 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
970 ;; Languages that contain text normally contained in different major modes
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
971 ;; could define their own fontification functions that treat text differently
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
972 ;; depending on its context. For example, Perl mode could arrange that here
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
973 ;; docs are fontified differently than Perl code. Or Yacc mode could fontify
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
974 ;; rules one way and C code another. Neat!
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
975 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
976 ;; A further reason to use the fontification indirection feature is when the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
977 ;; default syntactual fontification, or the default fontification in general,
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
978 ;; is not flexible enough for a particular major mode. For example, perhaps
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
979 ;; comments are just too hairy for `font-lock-fontify-syntactically-region' to
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
980 ;; cope with. You need to write your own version of that function, e.g.,
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
981 ;; `hairy-fontify-syntactically-region', and make your own version of
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
982 ;; `hairy-fontify-region' call that function before calling
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
983 ;; `font-lock-fontify-keywords-region' for the normal regexp fontification
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
984 ;; pass. And Hairy mode would set `font-lock-defaults' so that font-lock.el
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
985 ;; would call your region fontification function instead of its own. For
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
986 ;; example, TeX modes could fontify {\foo ...} and \bar{...} etc. multi-line
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
987 ;; directives correctly and cleanly. (It is the same problem as fontifying
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
988 ;; multi-line strings and comments; regexps are not appropriate for the job.)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
989
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
990 ;;;###autoload
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
991 (defun font-lock-fontify-buffer ()
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
992 "Fontify the current buffer the way the function `font-lock-mode' would."
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
993 (interactive)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
994 (let ((font-lock-verbose (or font-lock-verbose (interactive-p))))
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
995 (funcall font-lock-fontify-buffer-function)))
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
996
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
997 (defun font-lock-unfontify-buffer ()
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
998 (funcall font-lock-unfontify-buffer-function))
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
999
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1000 (defun font-lock-fontify-region (beg end &optional loudly)
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1001 (funcall font-lock-fontify-region-function beg end loudly))
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1002
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1003 (defun font-lock-unfontify-region (beg end)
58813
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1004 (save-buffer-state nil
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1005 (funcall font-lock-unfontify-region-function beg end)))
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1006
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1007 (defun font-lock-default-fontify-buffer ()
15492
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
1008 (let ((verbose (if (numberp font-lock-verbose)
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
1009 (> (buffer-size) font-lock-verbose)
348f0896b1e7 (font-lock-verbose): Default to 0. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 15485
diff changeset
1010 font-lock-verbose)))
23751
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1011 (with-temp-message
24002
c6bfff41f2b5 * font-lock.el (font-lock-default-fontify-buffer): When using
Simon Marshall <simon@gnu.org>
parents: 23826
diff changeset
1012 (when verbose
c6bfff41f2b5 * font-lock.el (font-lock-default-fontify-buffer): When using
Simon Marshall <simon@gnu.org>
parents: 23826
diff changeset
1013 (format "Fontifying %s..." (buffer-name)))
23751
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1014 ;; Make sure we have the right `font-lock-keywords' etc.
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1015 (unless font-lock-mode
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1016 (font-lock-set-defaults))
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1017 ;; Make sure we fontify etc. in the whole buffer.
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1018 (save-restriction
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1019 (widen)
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1020 (condition-case nil
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1021 (save-excursion
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1022 (save-match-data
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1023 (font-lock-fontify-region (point-min) (point-max) verbose)
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1024 (font-lock-after-fontify-buffer)
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1025 (setq font-lock-fontified t)))
3fdde7281f9b * font-lock.el (font-lock-defaults): Doc fix.
Simon Marshall <simon@gnu.org>
parents: 23163
diff changeset
1026 ;; We don't restore the old fontification, so it's best to unfontify.
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1027 (quit (font-lock-unfontify-buffer)))))))
13701
1dab6f0d9239 Don't turn on in any buffer with a leading space in its name.
Simon Marshall <simon@gnu.org>
parents: 13641
diff changeset
1028
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1029 (defun font-lock-default-unfontify-buffer ()
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1030 ;; Make sure we unfontify etc. in the whole buffer.
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1031 (save-restriction
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1032 (widen)
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1033 (font-lock-unfontify-region (point-min) (point-max))
14374
e2423983be05 Support for local fontification.
Simon Marshall <simon@gnu.org>
parents: 14365
diff changeset
1034 (font-lock-after-unfontify-buffer)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1035 (setq font-lock-fontified nil)))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1036
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1037 (defvar font-lock-dont-widen nil
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1038 "If non-nil, font-lock will work on the non-widened buffer.
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1039 Useful for things like RMAIL and Info where the whole buffer is not
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1040 a very meaningful entity to highlight.")
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1041
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1042 (defun font-lock-default-fontify-region (beg end loudly)
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1043 (save-buffer-state
61891
dd02c82eebe7 (font-lock-default-fontify-region): Don't force
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61860
diff changeset
1044 ((parse-sexp-lookup-properties
dd02c82eebe7 (font-lock-default-fontify-region): Don't force
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 61860
diff changeset
1045 (or parse-sexp-lookup-properties font-lock-syntactic-keywords))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1046 (old-syntax-table (syntax-table)))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1047 (unwind-protect
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1048 (save-restriction
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1049 (unless font-lock-dont-widen (widen))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1050 ;; Use the fontification syntax table, if any.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1051 (when font-lock-syntax-table
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1052 (set-syntax-table font-lock-syntax-table))
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1053 ;; check to see if we should expand the beg/end area for
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1054 ;; proper multiline matches
35419
e233da20040a (font-lock-multiline): Default to nil.
Gerd Moellmann <gerd@gnu.org>
parents: 35195
diff changeset
1055 (when (and font-lock-multiline
e233da20040a (font-lock-multiline): Default to nil.
Gerd Moellmann <gerd@gnu.org>
parents: 35195
diff changeset
1056 (> beg (point-min))
32216
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
1057 (get-text-property (1- beg) 'font-lock-multiline))
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
1058 ;; We are just after or in a multiline match.
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
1059 (setq beg (or (previous-single-property-change
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
1060 beg 'font-lock-multiline)
33163
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1061 (point-min)))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1062 (goto-char beg)
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1063 (setq beg (line-beginning-position)))
35422
1f7abd8b98dd (font-lock-default-fontify-region): Fix last
Gerd Moellmann <gerd@gnu.org>
parents: 35419
diff changeset
1064 (when font-lock-multiline
1f7abd8b98dd (font-lock-default-fontify-region): Fix last
Gerd Moellmann <gerd@gnu.org>
parents: 35419
diff changeset
1065 (setq end (or (text-property-any end (point-max)
1f7abd8b98dd (font-lock-default-fontify-region): Fix last
Gerd Moellmann <gerd@gnu.org>
parents: 35419
diff changeset
1066 'font-lock-multiline nil)
1f7abd8b98dd (font-lock-default-fontify-region): Fix last
Gerd Moellmann <gerd@gnu.org>
parents: 35419
diff changeset
1067 (point-max))))
33163
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1068 (goto-char end)
34324
4d26cf62962c (font-lock-default-fontify-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33642
diff changeset
1069 (setq end (line-beginning-position 2))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1070 ;; Now do the fontification.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1071 (font-lock-unfontify-region beg end)
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1072 (when font-lock-syntactic-keywords
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1073 (font-lock-fontify-syntactic-keywords-region beg end))
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1074 (unless font-lock-keywords-only
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1075 (font-lock-fontify-syntactically-region beg end loudly))
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1076 (font-lock-fontify-keywords-region beg end loudly))
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1077 ;; Clean up.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1078 (set-syntax-table old-syntax-table))))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1079
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1080 ;; The following must be rethought, since keywords can override fontification.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1081 ; ;; Now scan for keywords, but not if we are inside a comment now.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1082 ; (or (and (not font-lock-keywords-only)
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1083 ; (let ((state (parse-partial-sexp beg end nil nil
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1084 ; font-lock-cache-state)))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1085 ; (or (nth 4 state) (nth 7 state))))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1086 ; (font-lock-fontify-keywords-region beg end))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1087
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1088 (defvar font-lock-extra-managed-props nil
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1089 "Additional text properties managed by font-lock.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1090 This is used by `font-lock-default-unfontify-region' to decide
46249
54c4053e954f (font-lock-default-unfontify-region): Use remove-list-of-text-properties.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45774
diff changeset
1091 what properties to clear before refontifying a region.")
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1092
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1093 (defun font-lock-default-unfontify-region (beg end)
58813
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1094 (remove-list-of-text-properties
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1095 beg end (append
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1096 font-lock-extra-managed-props
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1097 (if font-lock-syntactic-keywords
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1098 '(syntax-table face font-lock-multiline)
8d1a39cde5e3 (font-lock-unfontify-region): Save buffer state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58564
diff changeset
1099 '(face font-lock-multiline)))))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1100
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1101 ;; Called when any modification is made to buffer text.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1102 (defun font-lock-after-change-function (beg end old-len)
53405
decc60fe49d5 (font-lock-after-change-function): Bind inhibit-quit.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
1103 (let ((inhibit-point-motion-hooks t)
decc60fe49d5 (font-lock-after-change-function): Bind inhibit-quit.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
1104 (inhibit-quit t))
18463
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1105 (save-excursion
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1106 (save-match-data
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1107 ;; Rescan between start of lines enclosing the region.
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1108 (font-lock-fontify-region
60686
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
1109 (progn (goto-char beg)
8680359f80e1 (font-lock-lines-before): New user option.
Richard M. Stallman <rms@gnu.org>
parents: 60412
diff changeset
1110 (forward-line (- font-lock-lines-before)) (point))
18463
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1111 (progn (goto-char end) (forward-line 1) (point)))))))
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1112
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1113 (defun font-lock-fontify-block (&optional arg)
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1114 "Fontify some lines the way `font-lock-fontify-buffer' would.
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1115 The lines could be a function or paragraph, or a specified number of lines.
14516
9360c3107669 Moved `supported' from turn-on-font-lock-if-supported to turn-on-font-lock.
Simon Marshall <simon@gnu.org>
parents: 14468
diff changeset
1116 If ARG is given, fontify that many lines before and after point, or 16 lines if
9360c3107669 Moved `supported' from turn-on-font-lock-if-supported to turn-on-font-lock.
Simon Marshall <simon@gnu.org>
parents: 14468
diff changeset
1117 no ARG is given and `font-lock-mark-block-function' is nil.
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1118 If `font-lock-mark-block-function' non-nil and no ARG is given, it is used to
14516
9360c3107669 Moved `supported' from turn-on-font-lock-if-supported to turn-on-font-lock.
Simon Marshall <simon@gnu.org>
parents: 14468
diff changeset
1119 delimit the region to fontify."
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1120 (interactive "P")
18463
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1121 (let ((inhibit-point-motion-hooks t) font-lock-beginning-of-syntax-function
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1122 deactivate-mark)
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1123 ;; Make sure we have the right `font-lock-keywords' etc.
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1124 (if (not font-lock-mode) (font-lock-set-defaults))
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1125 (save-excursion
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1126 (save-match-data
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1127 (condition-case error-data
14468
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1128 (if (or arg (not font-lock-mark-block-function))
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1129 (let ((lines (if arg (prefix-numeric-value arg) 16)))
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1130 (font-lock-fontify-region
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1131 (save-excursion (forward-line (- lines)) (point))
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1132 (save-excursion (forward-line lines) (point))))
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1133 (funcall font-lock-mark-block-function)
e41a60d26291 Correct specialised fontification and associated stuff.
Simon Marshall <simon@gnu.org>
parents: 14374
diff changeset
1134 (font-lock-fontify-region (point) (mark)))
15442
b4c8360e450e (global-font-lock-mode): Set up find-file-hooks.
Richard M. Stallman <rms@gnu.org>
parents: 14780
diff changeset
1135 ((error quit) (message "Fontifying block...%s" error-data)))))))
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1136
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1137 (if (boundp 'facemenu-keymap)
61039
acd9df2cf3e5 Bind `font-lock-fontify-block' to M-o M-o.
Luc Teirlinck <teirllm@auburn.edu>
parents: 60775
diff changeset
1138 (define-key facemenu-keymap "\M-o" 'font-lock-fontify-block))
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1139
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1140 ;;; End of Fontification functions.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1141
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1142 ;;; Additional text property functions.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1143
16852
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1144 ;; The following text property functions should be builtins. This means they
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1145 ;; should be written in C and put with all the other text property functions.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1146 ;; In the meantime, those that are used by font-lock.el are defined in Lisp
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1147 ;; below and given a `font-lock-' prefix. Those that are not used are defined
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1148 ;; in Lisp below and commented out. sm.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1149
16852
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1150 (defun font-lock-prepend-text-property (start end prop value &optional object)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1151 "Prepend to one property of the text from START to END.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1152 Arguments PROP and VALUE specify the property and value to prepend to the value
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1153 already in place. The resulting property values are always lists.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1154 Optional argument OBJECT is the string or buffer containing the text."
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1155 (let ((val (if (listp value) value (list value))) next prev)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1156 (while (/= start end)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1157 (setq next (next-single-property-change start prop object end)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1158 prev (get-text-property start prop object))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1159 (put-text-property start next prop
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1160 (append val (if (listp prev) prev (list prev)))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1161 object)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1162 (setq start next))))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1163
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1164 (defun font-lock-append-text-property (start end prop value &optional object)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1165 "Append to one property of the text from START to END.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1166 Arguments PROP and VALUE specify the property and value to append to the value
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1167 already in place. The resulting property values are always lists.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1168 Optional argument OBJECT is the string or buffer containing the text."
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1169 (let ((val (if (listp value) value (list value))) next prev)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1170 (while (/= start end)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1171 (setq next (next-single-property-change start prop object end)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1172 prev (get-text-property start prop object))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1173 (put-text-property start next prop
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1174 (append (if (listp prev) prev (list prev)) val)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1175 object)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1176 (setq start next))))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1177
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1178 (defun font-lock-fillin-text-property (start end prop value &optional object)
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1179 "Fill in one property of the text from START to END.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1180 Arguments PROP and VALUE specify the property and value to put where none are
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1181 already in place. Therefore existing property values are not overwritten.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1182 Optional argument OBJECT is the string or buffer containing the text."
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1183 (let ((start (text-property-any start end prop nil object)) next)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1184 (while start
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1185 (setq next (next-single-property-change start prop object end))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1186 (put-text-property start next prop value object)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1187 (setq start (text-property-any next end prop nil object)))))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1188
16852
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1189 ;; For completeness: this is to `remove-text-properties' as `put-text-property'
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1190 ;; is to `add-text-properties', etc.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1191 ;(defun remove-text-property (start end property &optional object)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1192 ; "Remove a property from text from START to END.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1193 ;Argument PROPERTY is the property to remove.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1194 ;Optional argument OBJECT is the string or buffer containing the text.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1195 ;Return t if the property was actually removed, nil otherwise."
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1196 ; (remove-text-properties start end (list property) object))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1197
16852
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1198 ;; For consistency: maybe this should be called `remove-single-property' like
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1199 ;; `next-single-property-change' (not `next-single-text-property-change'), etc.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1200 ;(defun remove-single-text-property (start end prop value &optional object)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1201 ; "Remove a specific property value from text from START to END.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1202 ;Arguments PROP and VALUE specify the property and value to remove. The
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1203 ;resulting property values are not equal to VALUE nor lists containing VALUE.
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1204 ;Optional argument OBJECT is the string or buffer containing the text."
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1205 ; (let ((start (text-property-not-all start end prop nil object)) next prev)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1206 ; (while start
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1207 ; (setq next (next-single-property-change start prop object end)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1208 ; prev (get-text-property start prop object))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1209 ; (cond ((and (symbolp prev) (eq value prev))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1210 ; (remove-text-property start next prop object))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1211 ; ((and (listp prev) (memq value prev))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1212 ; (let ((new (delq value prev)))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1213 ; (cond ((null new)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1214 ; (remove-text-property start next prop object))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1215 ; ((= (length new) 1)
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1216 ; (put-text-property start next prop (car new) object))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1217 ; (t
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1218 ; (put-text-property start next prop new object))))))
70e9b1d69d0d Fix additional text prop fns to behave as proposed builtins.
Simon Marshall <simon@gnu.org>
parents: 16578
diff changeset
1219 ; (setq start (text-property-not-all next end prop nil object)))))
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1220
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1221 ;;; End of Additional text property functions.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1222
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1223 ;;; Syntactic regexp fontification functions.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1224
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1225 ;; These syntactic keyword pass functions are identical to those keyword pass
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1226 ;; functions below, with the following exceptions; (a) they operate on
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1227 ;; `font-lock-syntactic-keywords' of course, (b) they are all `defun' as speed
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1228 ;; is less of an issue, (c) eval of property value does not occur JIT as speed
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1229 ;; is less of an issue, (d) OVERRIDE cannot be `prepend' or `append' as it
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1230 ;; makes no sense for `syntax-table' property values, (e) they do not do it
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1231 ;; LOUDLY as it is not likely to be intensive.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1232
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1233 (defun font-lock-apply-syntactic-highlight (highlight)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1234 "Apply HIGHLIGHT following a match.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1235 HIGHLIGHT should be of the form MATCH-HIGHLIGHT,
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1236 see `font-lock-syntactic-keywords'."
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1237 (let* ((match (nth 0 highlight))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1238 (start (match-beginning match)) (end (match-end match))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1239 (value (nth 1 highlight))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1240 (override (nth 2 highlight)))
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1241 (if (not start)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1242 ;; No match but we might not signal an error.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1243 (or (nth 3 highlight)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1244 (error "No match %d in highlight %S" match highlight))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1245 (when (and (consp value) (not (numberp (car value))))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1246 (setq value (eval value)))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1247 (when (stringp value) (setq value (string-to-syntax value)))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1248 ;; Flush the syntax-cache. I believe this is not necessary for
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1249 ;; font-lock's use of syntax-ppss, but I'm not 100% sure and it can
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1250 ;; still be necessary for other users of syntax-ppss anyway.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1251 (syntax-ppss-after-change-function start)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1252 (cond
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1253 ((not override)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1254 ;; Cannot override existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1255 (or (text-property-not-all start end 'syntax-table nil)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1256 (put-text-property start end 'syntax-table value)))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1257 ((eq override t)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1258 ;; Override existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1259 (put-text-property start end 'syntax-table value))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1260 ((eq override 'keep)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1261 ;; Keep existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1262 (font-lock-fillin-text-property start end 'syntax-table value))))))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1263
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1264 (defun font-lock-fontify-syntactic-anchored-keywords (keywords limit)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1265 "Fontify according to KEYWORDS until LIMIT.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1266 KEYWORDS should be of the form MATCH-ANCHORED, see `font-lock-keywords',
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1267 LIMIT can be modified by the value of its PRE-MATCH-FORM."
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1268 (let ((matcher (nth 0 keywords)) (lowdarks (nthcdr 3 keywords)) highlights
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1269 ;; Evaluate PRE-MATCH-FORM.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1270 (pre-match-value (eval (nth 1 keywords))))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1271 ;; Set LIMIT to value of PRE-MATCH-FORM or the end of line.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1272 (if (and (numberp pre-match-value) (> pre-match-value (point)))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1273 (setq limit pre-match-value)
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
1274 (setq limit (line-end-position)))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1275 (save-match-data
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1276 ;; Find an occurrence of `matcher' before `limit'.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1277 (while (if (stringp matcher)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1278 (re-search-forward matcher limit t)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1279 (funcall matcher limit))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1280 ;; Apply each highlight to this instance of `matcher'.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1281 (setq highlights lowdarks)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1282 (while highlights
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1283 (font-lock-apply-syntactic-highlight (car highlights))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1284 (setq highlights (cdr highlights)))))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1285 ;; Evaluate POST-MATCH-FORM.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1286 (eval (nth 2 keywords))))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1287
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1288 (defun font-lock-fontify-syntactic-keywords-region (start end)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1289 "Fontify according to `font-lock-syntactic-keywords' between START and END.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1290 START should be at the beginning of a line."
32483
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
1291 ;; Ensure the beginning of the file is properly syntactic-fontified.
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
1292 (when (and font-lock-syntactically-fontified
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
1293 (< font-lock-syntactically-fontified start))
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
1294 (setq start (max font-lock-syntactically-fontified (point-min)))
09a7b2ac5750 (font-lock-syntactically-fontified): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32474
diff changeset
1295 (setq font-lock-syntactically-fontified end))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1296 ;; If `font-lock-syntactic-keywords' is a symbol, get the real keywords.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1297 (when (symbolp font-lock-syntactic-keywords)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1298 (setq font-lock-syntactic-keywords (font-lock-eval-keywords
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1299 font-lock-syntactic-keywords)))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1300 ;; If `font-lock-syntactic-keywords' is not compiled, compile it.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1301 (unless (eq (car font-lock-syntactic-keywords) t)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1302 (setq font-lock-syntactic-keywords (font-lock-compile-keywords
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1303 font-lock-syntactic-keywords)))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1304 ;; Get down to business.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1305 (let ((case-fold-search font-lock-keywords-case-fold-search)
56265
da55b7f62f95 (font-lock-fontify-syntactic-keywords-region):
Richard M. Stallman <rms@gnu.org>
parents: 56244
diff changeset
1306 (keywords (cddr font-lock-syntactic-keywords))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1307 keyword matcher highlights)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1308 (while keywords
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1309 ;; Find an occurrence of `matcher' from `start' to `end'.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1310 (setq keyword (car keywords) matcher (car keyword))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1311 (goto-char start)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1312 (while (if (stringp matcher)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1313 (re-search-forward matcher end t)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1314 (funcall matcher end))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1315 ;; Apply each highlight to this instance of `matcher', which may be
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1316 ;; specific highlights or more keywords anchored to `matcher'.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1317 (setq highlights (cdr keyword))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1318 (while highlights
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1319 (if (numberp (car (car highlights)))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1320 (font-lock-apply-syntactic-highlight (car highlights))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1321 (font-lock-fontify-syntactic-anchored-keywords (car highlights)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1322 end))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1323 (setq highlights (cdr highlights))))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1324 (setq keywords (cdr keywords)))))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1325
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1326 ;;; End of Syntactic regexp fontification functions.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1327
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1328 ;;; Syntactic fontification functions.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1329
62362
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1330 (defvar font-lock-comment-start-skip nil
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1331 "If non-nil, Font Lock mode uses this instead of `comment-start-skip'.")
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1332
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1333 (defvar font-lock-comment-end-skip nil
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1334 "If non-nil, Font Lock mode uses this instead of `comment-end'.")
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1335
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1336 (defun font-lock-fontify-syntactically-region (start end &optional loudly ppss)
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1337 "Put proper face on each string and comment between START and END.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1338 START should be at the beginning of a line."
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1339 (let ((comment-end-regexp
62362
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1340 (or font-lock-comment-end-skip
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1341 (regexp-quote
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1342 (replace-regexp-in-string "^ *" "" comment-end))))
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1343 state face beg)
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1344 (if loudly (message "Fontifying %s... (syntactically...)" (buffer-name)))
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1345 (goto-char start)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1346 ;;
58161
5451548f1bd9 (font-lock-fontify-syntactically-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57433
diff changeset
1347 ;; Find the `start' state.
41513
92d06d8cd81d (font-lock-cache-state, font-lock-cache-position)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41226
diff changeset
1348 (setq state (or ppss (syntax-ppss start)))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1349 ;;
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1350 ;; Find each interesting place between here and `end'.
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1351 (while
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1352 (progn
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1353 (when (or (nth 3 state) (nth 4 state))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1354 (setq face (funcall font-lock-syntactic-face-function state))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1355 (setq beg (max (nth 8 state) start))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1356 (setq state (parse-partial-sexp (point) end nil nil state
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1357 'syntax-table))
62235
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1358 (when face (put-text-property beg (point) 'face face))
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1359 (when (and (eq face 'font-lock-comment-face)
62362
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1360 (or font-lock-comment-start-skip
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1361 comment-start-skip))
62235
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1362 ;; Find the comment delimiters
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1363 ;; and use font-lock-comment-delimiter-face for them.
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1364 (save-excursion
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1365 (goto-char beg)
62362
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1366 (if (looking-at (or font-lock-comment-start-skip
ebcb47e6b3f3 (font-lock-comment-start-skip): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 62272
diff changeset
1367 comment-start-skip))
62235
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1368 (put-text-property beg (match-end 0) 'face
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1369 font-lock-comment-delimiter-face)))
62863
3c095150855a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62638
diff changeset
1370 (if (looking-back comment-end-regexp (point-at-bol) t)
62235
cd487105a05a (font-lock-fontify-syntactically-region):
Richard M. Stallman <rms@gnu.org>
parents: 62233
diff changeset
1371 (put-text-property (match-beginning 0) (point) 'face
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1372 font-lock-comment-delimiter-face))))
58203
cd5849662239 (font-lock-fontify-syntactically-region): Fix last fix
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58161
diff changeset
1373 (< (point) end))
cd5849662239 (font-lock-fontify-syntactically-region): Fix last fix
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58161
diff changeset
1374 (setq state (parse-partial-sexp (point) end nil nil state
cd5849662239 (font-lock-fontify-syntactically-region): Fix last fix
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58161
diff changeset
1375 'syntax-table)))))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1376
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1377 ;;; End of Syntactic fontification functions.
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1378
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1379 ;;; Keyword regexp fontification functions.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1380
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1381 (defsubst font-lock-apply-highlight (highlight)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1382 "Apply HIGHLIGHT following a match.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1383 HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-keywords'."
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1384 (let* ((match (nth 0 highlight))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1385 (start (match-beginning match)) (end (match-end match))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1386 (override (nth 2 highlight)))
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1387 (if (not start)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1388 ;; No match but we might not signal an error.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1389 (or (nth 3 highlight)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1390 (error "No match %d in highlight %S" match highlight))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1391 (let ((val (eval (nth 1 highlight))))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1392 (when (eq (car-safe val) 'face)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1393 (add-text-properties start end (cddr val))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1394 (setq val (cadr val)))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1395 (cond
57433
1b88b2a7544f (font-lock-apply-highlight): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57416
diff changeset
1396 ((not (or val (eq override t)))
57416
05afd8f1212e (font-lock-apply-highlight): Explicitly check the case
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56758
diff changeset
1397 ;; If `val' is nil, don't do anything. It is important to do it
05afd8f1212e (font-lock-apply-highlight): Explicitly check the case
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56758
diff changeset
1398 ;; explicitly, because when adding nil via things like
05afd8f1212e (font-lock-apply-highlight): Explicitly check the case
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56758
diff changeset
1399 ;; font-lock-append-text-property, the property is actually
05afd8f1212e (font-lock-apply-highlight): Explicitly check the case
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56758
diff changeset
1400 ;; changed from <face> to (<face>) which is undesirable. --Stef
05afd8f1212e (font-lock-apply-highlight): Explicitly check the case
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56758
diff changeset
1401 nil)
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1402 ((not override)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1403 ;; Cannot override existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1404 (or (text-property-not-all start end 'face nil)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1405 (put-text-property start end 'face val)))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1406 ((eq override t)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1407 ;; Override existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1408 (put-text-property start end 'face val))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1409 ((eq override 'prepend)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1410 ;; Prepend to existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1411 (font-lock-prepend-text-property start end 'face val))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1412 ((eq override 'append)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1413 ;; Append to existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1414 (font-lock-append-text-property start end 'face val))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1415 ((eq override 'keep)
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1416 ;; Keep existing fontification.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1417 (font-lock-fillin-text-property start end 'face val)))))))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1418
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1419 (defsubst font-lock-fontify-anchored-keywords (keywords limit)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1420 "Fontify according to KEYWORDS until LIMIT.
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1421 KEYWORDS should be of the form MATCH-ANCHORED, see `font-lock-keywords',
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1422 LIMIT can be modified by the value of its PRE-MATCH-FORM."
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1423 (let ((matcher (nth 0 keywords)) (lowdarks (nthcdr 3 keywords)) highlights
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1424 (lead-start (match-beginning 0))
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1425 ;; Evaluate PRE-MATCH-FORM.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1426 (pre-match-value (eval (nth 1 keywords))))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1427 ;; Set LIMIT to value of PRE-MATCH-FORM or the end of line.
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1428 (if (not (and (numberp pre-match-value) (> pre-match-value (point))))
27636
161ec77aa308 (font-lock-keywords): Fix doc for multiline matches.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 27414
diff changeset
1429 (setq limit (line-end-position))
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1430 (setq limit pre-match-value)
33163
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1431 (when (and font-lock-multiline (>= limit (line-beginning-position 2)))
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1432 ;; this is a multiline anchored match
33163
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1433 ;; (setq font-lock-multiline t)
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1434 (put-text-property (if (= limit (line-beginning-position 2))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1435 (1- limit)
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1436 (min lead-start (point)))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1437 limit
32216
82e4865603dd (font-lock-defaults-alist): Remove the TeX entries.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31969
diff changeset
1438 'font-lock-multiline t)))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1439 (save-match-data
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1440 ;; Find an occurrence of `matcher' before `limit'.
28087
9ca294cf76c7 (font-lock-keywords): Fix the doc now that regexp-opt-depth is unnecessary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28069
diff changeset
1441 (while (and (< (point) limit)
9ca294cf76c7 (font-lock-keywords): Fix the doc now that regexp-opt-depth is unnecessary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28069
diff changeset
1442 (if (stringp matcher)
9ca294cf76c7 (font-lock-keywords): Fix the doc now that regexp-opt-depth is unnecessary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28069
diff changeset
1443 (re-search-forward matcher limit t)
9ca294cf76c7 (font-lock-keywords): Fix the doc now that regexp-opt-depth is unnecessary.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28069
diff changeset
1444 (funcall matcher limit)))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1445 ;; Apply each highlight to this instance of `matcher'.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1446 (setq highlights lowdarks)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1447 (while highlights
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1448 (font-lock-apply-highlight (car highlights))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1449 (setq highlights (cdr highlights)))))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1450 ;; Evaluate POST-MATCH-FORM.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1451 (eval (nth 2 keywords))))
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1452
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1453 (defun font-lock-fontify-keywords-region (start end &optional loudly)
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1454 "Fontify according to `font-lock-keywords' between START and END.
47611
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1455 START should be at the beginning of a line.
6bc56530304a (fast-lock-mode, lazy-lock-mode, jit-lock-mode): Don't bind them variables.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47121
diff changeset
1456 LOUDLY, if non-nil, allows progress-meter bar."
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1457 (unless (eq (car font-lock-keywords) t)
41226
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1458 (setq font-lock-keywords
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1459 (font-lock-compile-keywords font-lock-keywords t)))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1460 (let ((case-fold-search font-lock-keywords-case-fold-search)
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1461 (keywords (cddr font-lock-keywords))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1462 (bufname (buffer-name)) (count 0)
62233
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1463 (pos (make-marker))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1464 keyword matcher highlights)
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1465 ;;
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1466 ;; Fontify each item in `font-lock-keywords' from `start' to `end'.
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1467 (while keywords
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1468 (if loudly (message "Fontifying %s... (regexps..%s)" bufname
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1469 (make-string (incf count) ?.)))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1470 ;;
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1471 ;; Find an occurrence of `matcher' from `start' to `end'.
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1472 (setq keyword (car keywords) matcher (car keyword))
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1473 (goto-char start)
25048
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
1474 (while (and (< (point) end)
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
1475 (if (stringp matcher)
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
1476 (re-search-forward matcher end t)
6d32371bea44 (top-level): Add jit-lock-mode as new support mode.
Gerd Moellmann <gerd@gnu.org>
parents: 25045
diff changeset
1477 (funcall matcher end)))
26775
ea2b51ce35a7 (font-lock-multiline): New variable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26746
diff changeset
1478 (when (and font-lock-multiline
33163
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1479 (>= (point)
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1480 (save-excursion (goto-char (match-beginning 0))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1481 (forward-line 1) (point))))
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1482 ;; this is a multiline regexp match
33163
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1483 ;; (setq font-lock-multiline t)
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1484 (put-text-property (if (= (point)
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1485 (save-excursion
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1486 (goto-char (match-beginning 0))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1487 (forward-line 1) (point)))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1488 (1- (point))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1489 (match-beginning 0))
aebffd7162d1 (font-lock-buffers): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32573
diff changeset
1490 (point)
25596
359d6e7a6ffc (font-lock-multiline): New text property contains
Richard M. Stallman <rms@gnu.org>
parents: 25331
diff changeset
1491 'font-lock-multiline t))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1492 ;; Apply each highlight to this instance of `matcher', which may be
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1493 ;; specific highlights or more keywords anchored to `matcher'.
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1494 (setq highlights (cdr keyword))
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1495 (while highlights
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1496 (if (numberp (car (car highlights)))
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1497 (font-lock-apply-highlight (car highlights))
62233
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1498 (set-marker pos (point))
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1499 (font-lock-fontify-anchored-keywords (car highlights) end)
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1500 ;; Ensure forward progress. `pos' is a marker because anchored
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1501 ;; keyword may add/delete text (this happens e.g. in grep.el).
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1502 (if (< (point) pos) (goto-char pos)))
13440
e8cd2c9309c8 1. Use local hooks, not local variables.
Simon Marshall <simon@gnu.org>
parents: 13337
diff changeset
1503 (setq highlights (cdr highlights))))
62233
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1504 (setq keywords (cdr keywords)))
5dfcab314a42 (font-lock-fontify-keywords-region): Use a marker
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62208
diff changeset
1505 (set-marker pos nil)))
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1506
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1507 ;;; End of Keyword regexp fontification functions.
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1508
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1509 ;; Various functions.
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1510
41226
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1511 (defun font-lock-compile-keywords (keywords &optional regexp)
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1512 "Compile KEYWORDS into the form (t KEYWORDS COMPILED...)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1513 Here each COMPILED is of the form (MATCHER HIGHLIGHT ...) as shown in the
41226
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1514 `font-lock-keywords' doc string.
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1515 If REGEXP is non-nil, it means these keywords are used for
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1516 `font-lock-keywords' rather than for `font-lock-syntactic-keywords'."
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1517 (if (eq (car-safe keywords) t)
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1518 keywords
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1519 (setq keywords
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1520 (cons t (cons keywords
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1521 (mapcar 'font-lock-compile-keyword keywords))))
41226
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1522 (if (and regexp
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1523 (eq (or syntax-begin-function
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1524 font-lock-beginning-of-syntax-function)
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1525 'beginning-of-defun)
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1526 (not beginning-of-defun-function))
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1527 ;; Try to detect when a string or comment contains something that
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1528 ;; looks like a defun and would thus confuse font-lock.
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1529 (nconc keywords
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1530 `((,(if defun-prompt-regexp
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1531 (concat "^\\(?:" defun-prompt-regexp "\\)?\\s(")
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1532 "^\\s(")
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1533 (0
58564
eea39a81fd89 (font-lock-compile-keywords): Don't complain if the end
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58203
diff changeset
1534 (if (memq (get-text-property (match-beginning 0) 'face)
41226
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1535 '(font-lock-string-face font-lock-doc-face
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1536 font-lock-comment-face))
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1537 font-lock-warning-face)
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1538 prepend)))))
170c7bb7fc74 (font-lock-compile-keywords): New arg `regexp'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40780
diff changeset
1539 keywords))
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1540
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1541 (defun font-lock-compile-keyword (keyword)
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1542 (cond ((nlistp keyword) ; MATCHER
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1543 (list keyword '(0 font-lock-keyword-face)))
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1544 ((eq (car keyword) 'eval) ; (eval . FORM)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1545 (font-lock-compile-keyword (eval (cdr keyword))))
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1546 ((eq (car-safe (cdr keyword)) 'quote) ; (MATCHER . 'FORM)
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1547 ;; If FORM is a FACENAME then quote it. Otherwise ignore the quote.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1548 (if (symbolp (nth 2 keyword))
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1549 (list (car keyword) (list 0 (cdr keyword)))
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1550 (font-lock-compile-keyword (cons (car keyword) (nth 2 keyword)))))
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1551 ((numberp (cdr keyword)) ; (MATCHER . MATCH)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1552 (list (car keyword) (list (cdr keyword) 'font-lock-keyword-face)))
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1553 ((symbolp (cdr keyword)) ; (MATCHER . FACENAME)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1554 (list (car keyword) (list 0 (cdr keyword))))
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1555 ((nlistp (nth 1 keyword)) ; (MATCHER . HIGHLIGHT)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1556 (list (car keyword) (cdr keyword)))
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1557 (t ; (MATCHER HIGHLIGHT ...)
14365
ef148b168aad Support for buffer local fontification functions.
Simon Marshall <simon@gnu.org>
parents: 14266
diff changeset
1558 keyword)))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1559
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1560 (defun font-lock-eval-keywords (keywords)
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1561 "Evalulate KEYWORDS if a function (funcall) or variable (eval) name."
18463
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1562 (if (listp keywords)
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1563 keywords
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1564 (font-lock-eval-keywords (if (fboundp keywords)
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1565 (funcall keywords)
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1566 (eval keywords)))))
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1567
14708
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1568 (defun font-lock-value-in-major-mode (alist)
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1569 "Return value in ALIST for `major-mode', or ALIST if it is not an alist.
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1570 Structure is ((MAJOR-MODE . VALUE) ...) where MAJOR-MODE may be t."
14708
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1571 (if (consp alist)
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1572 (cdr (or (assq major-mode alist) (assq t alist)))
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1573 alist))
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1574
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1575 (defun font-lock-choose-keywords (keywords level)
26620
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1576 "Return LEVELth element of KEYWORDS.
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1577 A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to
ca5397ec67cb Doc fixes.
Dave Love <fx@gnu.org>
parents: 25720
diff changeset
1578 \(1- (length KEYWORDS))."
32306
86a849ccfae1 (font-lock-defaults): Make buffer-local.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32272
diff changeset
1579 (cond ((not (and (listp keywords) (symbolp (car keywords))))
14708
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1580 keywords)
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1581 ((numberp level)
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1582 (or (nth level keywords) (car (reverse keywords))))
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1583 ((eq level t)
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1584 (car (reverse keywords)))
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1585 (t
da278f255507 Make global-font-lock-mode show status messages, and fontification interruptable.
Simon Marshall <simon@gnu.org>
parents: 14516
diff changeset
1586 (car keywords))))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1587
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1588 (defvar font-lock-set-defaults nil) ; Whether we have set up defaults.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1589
63025
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
1590 (defvar font-lock-mode-major-mode)
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1591 (defun font-lock-set-defaults ()
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1592 "Set fontification defaults appropriately for this mode.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1593 Sets various variables using `font-lock-defaults' (or, if nil, using
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1594 `font-lock-defaults-alist') and `font-lock-maximum-decoration'."
63025
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
1595 ;; Set fontification defaults iff not previously set for correct major mode.
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
1596 (unless (and font-lock-set-defaults
36a997bd89f7 (font-lock-add-keywords): Doc fix. Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 62863
diff changeset
1597 (eq font-lock-mode-major-mode major-mode))
63028
6e292941905b (font-lock-set-defaults): Fix omission in last change.
Luc Teirlinck <teirllm@auburn.edu>
parents: 63025
diff changeset
1598 (setq font-lock-mode-major-mode major-mode)
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1599 (set (make-local-variable 'font-lock-set-defaults) t)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1600 (make-local-variable 'font-lock-fontified)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1601 (make-local-variable 'font-lock-multiline)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1602 (let* ((defaults (or font-lock-defaults
56758
7a0ad15724f6 (font-lock-set-defaults): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56553
diff changeset
1603 (cdr (assq major-mode
7a0ad15724f6 (font-lock-set-defaults): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56553
diff changeset
1604 (with-no-warnings
7a0ad15724f6 (font-lock-set-defaults): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56553
diff changeset
1605 font-lock-defaults-alist)))))
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1606 (keywords
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1607 (font-lock-choose-keywords (nth 0 defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1608 (font-lock-value-in-major-mode font-lock-maximum-decoration)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1609 (local (cdr (assq major-mode font-lock-keywords-alist)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1610 (removed-keywords
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1611 (cdr-safe (assq major-mode font-lock-removed-keywords-alist))))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1612 (set (make-local-variable 'font-lock-defaults) defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1613 ;; Syntactic fontification?
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1614 (when (nth 1 defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1615 (set (make-local-variable 'font-lock-keywords-only) t))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1616 ;; Case fold during regexp fontification?
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1617 (when (nth 2 defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1618 (set (make-local-variable 'font-lock-keywords-case-fold-search) t))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1619 ;; Syntax table for regexp and syntactic fontification?
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1620 (when (nth 3 defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1621 (set (make-local-variable 'font-lock-syntax-table)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1622 (copy-syntax-table (syntax-table)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1623 (dolist (selem (nth 3 defaults))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1624 ;; The character to modify may be a single CHAR or a STRING.
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1625 (let ((syntax (cdr selem)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1626 (dolist (char (if (numberp (car selem))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1627 (list (car selem))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1628 (mapcar 'identity (car selem))))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1629 (modify-syntax-entry char syntax font-lock-syntax-table)))))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1630 ;; Syntax function for syntactic fontification?
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1631 (when (nth 4 defaults)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1632 (set (make-local-variable 'font-lock-beginning-of-syntax-function)
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1633 (nth 4 defaults)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1634 ;; Variable alist?
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1635 (dolist (x (nthcdr 5 defaults))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1636 (set (make-local-variable (car x)) (cdr x)))
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1637 ;; Set up `font-lock-keywords' last because its value might depend
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1638 ;; on other settings (e.g. font-lock-compile-keywords uses
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1639 ;; font-lock-beginning-of-syntax-function).
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1640 (set (make-local-variable 'font-lock-keywords)
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1641 (font-lock-eval-keywords keywords))
50594
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1642 ;; Local fontification?
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1643 (while local
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1644 (font-lock-add-keywords nil (car (car local)) (cdr (car local)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1645 (setq local (cdr local)))
09c07c654b23 (font-lock-multiline, font-lock-fontified)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50588
diff changeset
1646 (when removed-keywords
56238
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1647 (font-lock-remove-keywords nil removed-keywords))
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1648 ;; Now compile the keywords.
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1649 (unless (eq (car font-lock-keywords) t)
f186f03b4d6b (font-lock-keywords): Change format of compiled values. Document it.
Richard M. Stallman <rms@gnu.org>
parents: 55856
diff changeset
1650 (set (make-local-variable 'font-lock-keywords)
56244
8b126cc57f70 (font-lock-set-defaults): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 56238
diff changeset
1651 (font-lock-compile-keywords font-lock-keywords t))))))
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1652
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1653 ;;; Colour etc. support.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1654
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1655 ;; Originally face attributes were specified via `font-lock-face-attributes'.
18332
ee997de5b74b Rearrange custom options. Also enable custom control of Global Font Lock mode.
Simon Marshall <simon@gnu.org>
parents: 18025
diff changeset
1656 ;; Users then changed the default face attributes by setting that variable.
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1657 ;; However, we try and be back-compatible and respect its value if set except
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1658 ;; for faces where M-x customize has been used to save changes for the face.
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1659 (when (boundp 'font-lock-face-attributes)
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1660 (let ((face-attributes font-lock-face-attributes))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1661 (while face-attributes
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1662 (let* ((face-attribute (pop face-attributes))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1663 (face (car face-attribute)))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1664 ;; Rustle up a `defface' SPEC from a `font-lock-face-attributes' entry.
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1665 (unless (get face 'saved-face)
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1666 (let ((foreground (nth 1 face-attribute))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1667 (background (nth 2 face-attribute))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1668 (bold-p (nth 3 face-attribute))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1669 (italic-p (nth 4 face-attribute))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1670 (underline-p (nth 5 face-attribute))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1671 face-spec)
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1672 (when foreground
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1673 (setq face-spec (cons ':foreground (cons foreground face-spec))))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1674 (when background
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1675 (setq face-spec (cons ':background (cons background face-spec))))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1676 (when bold-p
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1677 (setq face-spec (append '(:weight bold) face-spec)))
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1678 (when italic-p
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1679 (setq face-spec (append '(:slant italic) face-spec)))
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1680 (when underline-p
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1681 (setq face-spec (append '(:underline t) face-spec)))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1682 (custom-declare-face face (list (list t face-spec)) nil)))))))
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1683
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1684 ;; But now we do it the custom way. Note that `defface' will not overwrite any
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1685 ;; faces declared above via `custom-declare-face'.
61771
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1686 (defface font-lock-comment-face
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1687 '((((class grayscale) (background light))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1688 (:foreground "DimGray" :weight bold :slant italic))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1689 (((class grayscale) (background dark))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1690 (:foreground "LightGray" :weight bold :slant italic))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1691 (((class color) (min-colors 88) (background light))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1692 (:foreground "Firebrick"))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1693 (((class color) (min-colors 88) (background dark))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1694 (:foreground "chocolate1"))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1695 (((class color) (min-colors 16) (background light))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1696 (:foreground "red"))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1697 (((class color) (min-colors 16) (background dark))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1698 (:foreground "red1"))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1699 (((class color) (min-colors 8) (background light))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1700 )
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1701 (((class color) (min-colors 8) (background dark))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1702 )
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1703 (t (:weight bold :slant italic)))
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1704 "Font Lock mode face used to highlight comments."
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1705 :group 'font-lock-highlighting-faces)
024d90514771 (font-lock-comment-face): On terminals with few colors,
Richard M. Stallman <rms@gnu.org>
parents: 61394
diff changeset
1706
62264
01b87ce19664 (font-lock-comment-delimiter-face): Inherit from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62253
diff changeset
1707 (defface font-lock-comment-delimiter-face
62266
8db74faa378a (font-lock-comment-delimiter-face): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62264
diff changeset
1708 '((default :inherit font-lock-comment-face)
62272
f1e03f4e94d2 (font-lock-comment-delimiter-face): Fix up the inheritance.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62266
diff changeset
1709 (((class grayscale)))
f1e03f4e94d2 (font-lock-comment-delimiter-face): Fix up the inheritance.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62266
diff changeset
1710 (((class color) (min-colors 16)))
62266
8db74faa378a (font-lock-comment-delimiter-face): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62264
diff changeset
1711 (((class color) (min-colors 8) (background light))
8db74faa378a (font-lock-comment-delimiter-face): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62264
diff changeset
1712 :foreground "red")
8db74faa378a (font-lock-comment-delimiter-face): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62264
diff changeset
1713 (((class color) (min-colors 8) (background dark))
8db74faa378a (font-lock-comment-delimiter-face): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62264
diff changeset
1714 :foreground "red1"))
62264
01b87ce19664 (font-lock-comment-delimiter-face): Inherit from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62253
diff changeset
1715 "Font Lock mode face used to highlight comment delimiters."
01b87ce19664 (font-lock-comment-delimiter-face): Inherit from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62253
diff changeset
1716 :group 'font-lock-highlighting-faces)
01b87ce19664 (font-lock-comment-delimiter-face): Inherit from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62253
diff changeset
1717
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1718 (defface font-lock-string-face
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1719 '((((class grayscale) (background light)) (:foreground "DimGray" :slant italic))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1720 (((class grayscale) (background dark)) (:foreground "LightGray" :slant italic))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1721 (((class color) (min-colors 88) (background light)) (:foreground "RosyBrown"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1722 (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1723 (((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1724 (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1725 (((class color) (min-colors 8)) (:foreground "green"))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1726 (t (:slant italic)))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1727 "Font Lock mode face used to highlight strings."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1728 :group 'font-lock-highlighting-faces)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
1729
33360
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
1730 (defface font-lock-doc-face
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
1731 '((t :inherit font-lock-string-face))
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
1732 "Font Lock mode face used to highlight documentation."
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
1733 :group 'font-lock-highlighting-faces)
cda8c854bb02 (font-lock-*-face) <defvar>: Move.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33163
diff changeset
1734
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1735 (defface font-lock-keyword-face
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1736 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1737 (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1738 (((class color) (min-colors 88) (background light)) (:foreground "Purple"))
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 61392
diff changeset
1739 (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1"))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1740 (((class color) (min-colors 16) (background light)) (:foreground "Purple"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1741 (((class color) (min-colors 16) (background dark)) (:foreground "Cyan"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1742 (((class color) (min-colors 8)) (:foreground "cyan" :weight bold))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1743 (t (:weight bold)))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1744 "Font Lock mode face used to highlight keywords."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1745 :group 'font-lock-highlighting-faces)
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1746
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1747 (defface font-lock-builtin-face
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1748 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1749 (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1750 (((class color) (min-colors 88) (background light)) (:foreground "Orchid"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1751 (((class color) (min-colors 88) (background dark)) (:foreground "LightSteelBlue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1752 (((class color) (min-colors 16) (background light)) (:foreground "Orchid"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1753 (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1754 (((class color) (min-colors 8)) (:foreground "blue" :weight bold))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1755 (t (:weight bold)))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1756 "Font Lock mode face used to highlight builtins."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1757 :group 'font-lock-highlighting-faces)
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1758
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1759 (defface font-lock-function-name-face
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 61392
diff changeset
1760 '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1761 (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1762 (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1763 (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1764 (((class color) (min-colors 8)) (:foreground "blue" :weight bold))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1765 (t (:inverse-video t :weight bold)))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1766 "Font Lock mode face used to highlight function names."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1767 :group 'font-lock-highlighting-faces)
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
1768
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1769 (defface font-lock-variable-name-face
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1770 '((((class grayscale) (background light))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1771 (:foreground "Gray90" :weight bold :slant italic))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1772 (((class grayscale) (background dark))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1773 (:foreground "DimGray" :weight bold :slant italic))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1774 (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1775 (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1776 (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1777 (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1778 (((class color) (min-colors 8)) (:foreground "yellow" :weight light))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1779 (t (:weight bold :slant italic)))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1780 "Font Lock mode face used to highlight variable names."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1781 :group 'font-lock-highlighting-faces)
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1782
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1783 (defface font-lock-type-face
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1784 '((((class grayscale) (background light)) (:foreground "Gray90" :weight bold))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1785 (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1786 (((class color) (min-colors 88) (background light)) (:foreground "ForestGreen"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1787 (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1788 (((class color) (min-colors 16) (background light)) (:foreground "ForestGreen"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1789 (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1790 (((class color) (min-colors 8)) (:foreground "green"))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1791 (t (:weight bold :underline t)))
20951
ae0c93b9ac1f Renamed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20923
diff changeset
1792 "Font Lock mode face used to highlight type and classes."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1793 :group 'font-lock-highlighting-faces)
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1794
20951
ae0c93b9ac1f Renamed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20923
diff changeset
1795 (defface font-lock-constant-face
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1796 '((((class grayscale) (background light))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1797 (:foreground "LightGray" :weight bold :underline t))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1798 (((class grayscale) (background dark))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1799 (:foreground "Gray50" :weight bold :underline t))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1800 (((class color) (min-colors 88) (background light)) (:foreground "CadetBlue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1801 (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1802 (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1803 (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine"))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1804 (((class color) (min-colors 8)) (:foreground "magenta"))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1805 (t (:weight bold :underline t)))
20951
ae0c93b9ac1f Renamed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20923
diff changeset
1806 "Font Lock mode face used to highlight constants and labels."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1807 :group 'font-lock-highlighting-faces)
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1808
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1809 (defface font-lock-warning-face
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 61392
diff changeset
1810 '((((class color) (min-colors 88) (background light)) (:foreground "Red1" :weight bold))
54153
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1811 (((class color) (min-colors 88) (background dark)) (:foreground "Pink" :weight bold))
efe95a1385e1 (font-lock-comment-face, font-lock-string-face,
Eli Zaretskii <eliz@gnu.org>
parents: 53710
diff changeset
1812 (((class color) (min-colors 16) (background light)) (:foreground "Red" :weight bold))
55062
44fb4d4fdf7b (font-lock-preprocessor-face): Remove spurious quote.
Juanma Barranquero <lekktu@gmail.com>
parents: 54550
diff changeset
1813 (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :weight bold))
44fb4d4fdf7b (font-lock-preprocessor-face): Remove spurious quote.
Juanma Barranquero <lekktu@gmail.com>
parents: 54550
diff changeset
1814 (((class color) (min-colors 8)) (:foreground "red"))
42449
b4510b1b83f3 (initializing from font-lock-face-attributes):
Richard M. Stallman <rms@gnu.org>
parents: 41934
diff changeset
1815 (t (:inverse-video t :weight bold)))
17495
83dabcc0a796 Customise. And a few code cleanups.
Simon Marshall <simon@gnu.org>
parents: 17468
diff changeset
1816 "Font Lock mode face used to highlight warnings."
17543
9b75a01e03e5 Respect font-lock-face-attributes and custom fixes.
Simon Marshall <simon@gnu.org>
parents: 17507
diff changeset
1817 :group 'font-lock-highlighting-faces)
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1818
62078
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
1819 (defface font-lock-negation-char-face
62253
6bbb1e95d2f7 (font-lock-negation-char-face): Default to "off".
Kim F. Storm <storm@cua.dk>
parents: 62239
diff changeset
1820 '((t nil))
62078
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
1821 "Font Lock mode face used to highlight easy to overlook negation."
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
1822 :group 'font-lock-highlighting-faces)
82c979abe63f (font-lock-negation-char-face): New face and variable.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 61910
diff changeset
1823
50588
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
1824 (defface font-lock-preprocessor-face
55062
44fb4d4fdf7b (font-lock-preprocessor-face): Remove spurious quote.
Juanma Barranquero <lekktu@gmail.com>
parents: 54550
diff changeset
1825 '((t :inherit font-lock-builtin-face))
50588
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
1826 "Font Lock mode face used to highlight preprocessor directives."
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
1827 :group 'font-lock-highlighting-faces)
7bfe36160365 (font-lock-preprocessor-face): New var and face.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49615
diff changeset
1828
63049
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1829 (defface font-lock-regexp-backslash
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1830 '((((class color) (min-colors 16)) :inherit escape-glyph)
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1831 (t :inherit bold))
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1832 "Font Lock mode face used to highlight a backslash in Lisp regexps."
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1833 :group 'font-lock-highlighting-faces)
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1834
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1835 (defface font-lock-regexp-backslash-construct
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1836 '((t :inherit bold))
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1837 "Font Lock mode face used to highlight `\' constructs in Lisp regexps."
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1838 :group 'font-lock-highlighting-faces)
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
1839
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1840 ;;; End of Colour etc. support.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
1841
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1842 ;;; Menu support.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1843
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1844 ;; This section of code is commented out because Emacs does not have real menu
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1845 ;; buttons. (We can mimic them by putting "( ) " or "(X) " at the beginning of
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1846 ;; the menu entry text, but with Xt it looks both ugly and embarrassingly
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1847 ;; amateur.) If/When Emacs gets real menus buttons, put in menu-bar.el after
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1848 ;; the entry for "Text Properties" something like:
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1849 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1850 ;; (define-key menu-bar-edit-menu [font-lock]
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
1851 ;; (cons "Syntax Highlighting" font-lock-menu))
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1852 ;;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1853 ;; and remove a single ";" from the beginning of each line in the rest of this
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1854 ;; section. Probably the mechanism for telling the menu code what are menu
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1855 ;; buttons and when they are on or off needs tweaking. I have assumed that the
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1856 ;; mechanism is via `menu-toggle' and `menu-selected' symbol properties. sm.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1857
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1858 ;;;;###autoload
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1859 ;(progn
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1860 ; ;; Make the Font Lock menu.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1861 ; (defvar font-lock-menu (make-sparse-keymap "Syntax Highlighting"))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1862 ; ;; Add the menu items in reverse order.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1863 ; (define-key font-lock-menu [fontify-less]
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1864 ; '("Less In Current Buffer" . font-lock-fontify-less))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1865 ; (define-key font-lock-menu [fontify-more]
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1866 ; '("More In Current Buffer" . font-lock-fontify-more))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1867 ; (define-key font-lock-menu [font-lock-sep]
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1868 ; '("--"))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1869 ; (define-key font-lock-menu [font-lock-mode]
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1870 ; '("In Current Buffer" . font-lock-mode))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1871 ; (define-key font-lock-menu [global-font-lock-mode]
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1872 ; '("In All Buffers" . global-font-lock-mode)))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1873 ;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1874 ;;;;###autoload
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1875 ;(progn
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1876 ; ;; We put the appropriate `menu-enable' etc. symbol property values on when
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1877 ; ;; font-lock.el is loaded, so we don't need to autoload the three variables.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1878 ; (put 'global-font-lock-mode 'menu-toggle t)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1879 ; (put 'font-lock-mode 'menu-toggle t)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1880 ; (put 'font-lock-fontify-more 'menu-enable '(identity))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1881 ; (put 'font-lock-fontify-less 'menu-enable '(identity)))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1882 ;
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1883 ; ;; Put the appropriate symbol property values on now. See above.
20923
c6e733c90ed8 Keyword doc fixes and keyword tweaks.
Simon Marshall <simon@gnu.org>
parents: 20851
diff changeset
1884 ;(put 'global-font-lock-mode 'menu-selected 'global-font-lock-mode)
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1885 ;(put 'font-lock-mode 'menu-selected 'font-lock-mode)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1886 ;(put 'font-lock-fontify-more 'menu-enable '(nth 2 font-lock-fontify-level))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1887 ;(put 'font-lock-fontify-less 'menu-enable '(nth 1 font-lock-fontify-level))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1888 ;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1889 ;(defvar font-lock-fontify-level nil) ; For less/more fontification.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1890 ;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1891 ;(defun font-lock-fontify-level (level)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1892 ; (let ((font-lock-maximum-decoration level))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1893 ; (when font-lock-mode
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1894 ; (font-lock-mode))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1895 ; (font-lock-mode)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1896 ; (when font-lock-verbose
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1897 ; (message "Fontifying %s... level %d" (buffer-name) level))))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1898 ;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1899 ;(defun font-lock-fontify-less ()
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1900 ; "Fontify the current buffer with less decoration.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1901 ;See `font-lock-maximum-decoration'."
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1902 ; (interactive)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1903 ; ;; Check in case we get called interactively.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1904 ; (if (nth 1 font-lock-fontify-level)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1905 ; (font-lock-fontify-level (1- (car font-lock-fontify-level)))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1906 ; (error "No less decoration")))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1907 ;
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1908 ;(defun font-lock-fontify-more ()
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1909 ; "Fontify the current buffer with more decoration.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1910 ;See `font-lock-maximum-decoration'."
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1911 ; (interactive)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1912 ; ;; Check in case we get called interactively.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1913 ; (if (nth 2 font-lock-fontify-level)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1914 ; (font-lock-fontify-level (1+ (car font-lock-fontify-level)))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1915 ; (error "No more decoration")))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1916 ;
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1917 ; ;; This should be called by `font-lock-set-defaults'.
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1918 ;(defun font-lock-set-menu ()
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1919 ; ;; Activate less/more fontification entries if there are multiple levels for
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1920 ; ;; the current buffer. Sets `font-lock-fontify-level' to be of the form
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1921 ; ;; (CURRENT-LEVEL IS-LOWER-LEVEL-P IS-HIGHER-LEVEL-P) for menu activation.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1922 ; (let ((keywords (or (nth 0 font-lock-defaults)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1923 ; (nth 1 (assq major-mode font-lock-defaults-alist))))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1924 ; (level (font-lock-value-in-major-mode font-lock-maximum-decoration)))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1925 ; (make-local-variable 'font-lock-fontify-level)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1926 ; (if (or (symbolp keywords) (= (length keywords) 1))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1927 ; (font-lock-unset-menu)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1928 ; (cond ((eq level t)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1929 ; (setq level (1- (length keywords))))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1930 ; ((or (null level) (zerop level))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1931 ; ;; The default level is usually, but not necessarily, level 1.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1932 ; (setq level (- (length keywords)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1933 ; (length (member (eval (car keywords))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1934 ; (mapcar 'eval (cdr keywords))))))))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1935 ; (setq font-lock-fontify-level (list level (> level 1)
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1936 ; (< level (1- (length keywords))))))))
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1937 ;
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1938 ; ;; This should be called by `font-lock-unset-defaults'.
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1939 ;(defun font-lock-unset-menu ()
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1940 ; ;; Deactivate less/more fontification entries.
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1941 ; (setq font-lock-fontify-level nil))
17161
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1942
a2d3b455c6f4 Allow arbitrary regexps in *-font-lock-extra-types.
Simon Marshall <simon@gnu.org>
parents: 17055
diff changeset
1943 ;;; End of Menu support.
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1944
13299
d6bfe124472c General reorganisation; moving and renaming etc.
Simon Marshall <simon@gnu.org>
parents: 12813
diff changeset
1945 ;;; Various regexp information shared by several modes.
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
1946 ; ;; Information specific to a single mode should go in its load library.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1947
51720
9d8489f40d2c (font-lock-extra-types-widget)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50594
diff changeset
1948 ;; Font Lock support for C, C++, Objective-C and Java modes is now in
9d8489f40d2c (font-lock-extra-types-widget)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50594
diff changeset
1949 ;; cc-fonts.el (and required by cc-mode.el). However, the below function
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
1950 ;; should stay in font-lock.el, since it is used by other libraries. sm.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1951
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1952 (defun font-lock-match-c-style-declaration-item-and-skip-to-next (limit)
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1953 "Match, and move over, any declaration/definition item after point.
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1954 Matches after point, but ignores leading whitespace and `*' characters.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1955 Does not move further than LIMIT.
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1956
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1957 The expected syntax of a declaration/definition item is `word' (preceded by
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1958 optional whitespace and `*' characters and proceeded by optional whitespace)
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1959 optionally followed by a `('. Everything following the item (but belonging to
49569
d8d2b16ffa18 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Andreas Schwab <schwab@suse.de>
parents: 49522
diff changeset
1960 it) is expected to be skip-able by `scan-sexps', and items are expected to be
18025
9f9f522cdc27 Update for syntax-table text properties.
Simon Marshall <simon@gnu.org>
parents: 17543
diff changeset
1961 separated with a `,' and to be terminated with a `;'.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1962
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1963 Thus the regexp matches after point: word (
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1964 ^^^^ ^
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1965 Where the match subexpressions are: 1 2
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1966
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1967 The item is delimited by (match-beginning 1) and (match-end 1).
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1968 If (match-beginning 2) is non-nil, the item is followed by a `('.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1969
16578
c921b60ee783 (a) add font-lock-keywords-alist, (b) fix compilation of quoted conses in keyword form, (c) make simple font-lock-match-c-style-declaration-item-and-skip-to-next and more complex font-lock-match-c++-style-declaration-item-and-skip-to-next.
Simon Marshall <simon@gnu.org>
parents: 16456
diff changeset
1970 This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item."
40780
9639c00722d3 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40540
diff changeset
1971 (when (looking-at "[ \n\t*]*\\(\\sw+\\)[ \t\n]*\\(((?\\)?")
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1972 (when (and (match-end 2) (> (- (match-end 2) (match-beginning 2)) 1))
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1973 ;; If `word' is followed by a double open-paren, it's probably
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1974 ;; a macro used for "int myfun P_ ((int arg1))". Let's go back one
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1975 ;; word to try and match `myfun' rather than `P_'.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1976 (let ((pos (point)))
40780
9639c00722d3 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40540
diff changeset
1977 (skip-chars-backward " \t\n")
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1978 (skip-syntax-backward "w")
49569
d8d2b16ffa18 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Andreas Schwab <schwab@suse.de>
parents: 49522
diff changeset
1979 (unless (looking-at "\\(\\sw+\\)[ \t\n]*\\sw+[ \t\n]*\\(((?\\)?")
40394
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1980 ;; Looks like it was something else, so go back to where we
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1981 ;; were and reset the match data by rematching.
b2fcb3933879 Require `syntax'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40339
diff changeset
1982 (goto-char pos)
40780
9639c00722d3 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40540
diff changeset
1983 (looking-at "[ \n\t*]*\\(\\sw+\\)[ \t\n]*\\(((?\\)?"))))
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1984 (save-match-data
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1985 (condition-case nil
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1986 (save-restriction
40780
9639c00722d3 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40540
diff changeset
1987 ;; Restrict to the LIMIT.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1988 (narrow-to-region (point-min) limit)
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1989 (goto-char (match-end 1))
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1990 ;; Move over any item value, etc., to the next item.
40780
9639c00722d3 (font-lock-match-c-style-declaration-item-and-skip-to-next):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40540
diff changeset
1991 (while (not (looking-at "[ \t\n]*\\(\\(,\\)\\|;\\|\\'\\)"))
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1992 (goto-char (or (scan-sexps (point) 1) (point-max))))
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1993 (goto-char (match-end 2)))
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1994 (error t)))))
18463
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1995
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
1996 ;; Lisp.
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1997
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1998 (defconst lisp-font-lock-keywords-1
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
1999 (eval-when-compile
62413
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2000 `(;; Definitions.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2001 (,(concat "(\\(def\\("
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2002 ;; Function declarations.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2003 "\\(advice\\|varalias\\|alias\\|generic\\|macro\\*?\\|method\\|"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2004 "setf\\|subst\\*?\\|un\\*?\\|"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2005 "ine-\\(condition\\|\\(?:derived\\|minor\\|generic\\)-mode\\|"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2006 "method-combination\\|setf-expander\\|skeleton\\|widget\\|"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2007 "function\\|\\(compiler\\|modify\\|symbol\\)-macro\\)\\)\\|"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2008 ;; Variable declarations.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2009 "\\(const\\(ant\\)?\\|custom\\|face\\|parameter\\|var\\)\\|"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2010 ;; Structure declarations.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2011 "\\(class\\|group\\|theme\\|package\\|struct\\|type\\)"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2012 "\\)\\)\\>"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2013 ;; Any whitespace and defined object.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2014 "[ \t'\(]*"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2015 "\\(setf[ \t]+\\sw+)\\|\\sw+\\)?")
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2016 (1 font-lock-keyword-face)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2017 (9 (cond ((match-beginning 3) font-lock-function-name-face)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2018 ((match-beginning 6) font-lock-variable-name-face)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2019 (t font-lock-type-face))
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2020 nil t))
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2021 ;; Emacs Lisp autoload cookies.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2022 ("^;;;###\\(autoload\\)" 1 font-lock-warning-face prepend)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2023 ;; Regexp negated char group.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2024 ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
17055
f0f8005780cc 1. If PRE-MATCH-FORM returns a suitable number, use that as a value for LIMIT.
Simon Marshall <simon@gnu.org>
parents: 16852
diff changeset
2025 "Subdued level highlighting for Lisp modes.")
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2026
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2027 (defconst lisp-font-lock-keywords-2
10879
73ce8261c2ce Added font-lock-maximum-decoration; use it to set lisp-font-lock-keywords, and
Simon Marshall <simon@gnu.org>
parents: 10545
diff changeset
2028 (append lisp-font-lock-keywords-1
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
2029 (eval-when-compile
62413
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2030 `(;; Control structures. Emacs Lisp forms.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2031 (,(concat
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2032 "(" (regexp-opt
63049
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
2033 '("cond" "if" "while" "while-no-input" "let" "let*"
62413
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2034 "prog" "progn" "progv" "prog1" "prog2" "prog*"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2035 "inline" "lambda" "save-restriction" "save-excursion"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2036 "save-window-excursion" "save-selected-window"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2037 "save-match-data" "save-current-buffer" "unwind-protect"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2038 "condition-case" "track-mouse"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2039 "eval-after-load" "eval-and-compile" "eval-when-compile"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2040 "eval-when"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2041 "with-category-table"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2042 "with-current-buffer" "with-electric-help"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2043 "with-local-quit" "with-no-warnings"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2044 "with-output-to-string" "with-output-to-temp-buffer"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2045 "with-selected-window" "with-syntax-table"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2046 "with-temp-buffer" "with-temp-file" "with-temp-message"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2047 "with-timeout" "with-timeout-handler") t)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2048 "\\>")
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2049 . 1)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2050 ;; Control structures. Common Lisp forms.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2051 (,(concat
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2052 "(" (regexp-opt
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2053 '("when" "unless" "case" "ecase" "typecase" "etypecase"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2054 "ccase" "ctypecase" "handler-case" "handler-bind"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2055 "restart-bind" "restart-case" "in-package"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2056 "break" "ignore-errors"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2057 "loop" "do" "do*" "dotimes" "dolist" "the" "locally"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2058 "proclaim" "declaim" "declare" "symbol-macrolet"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2059 "lexical-let" "lexical-let*" "flet" "labels" "compiler-let"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2060 "destructuring-bind" "macrolet" "tagbody" "block" "go"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2061 "multiple-value-bind" "multiple-value-prog1"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2062 "return" "return-from"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2063 "with-accessors" "with-compilation-unit"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2064 "with-condition-restarts" "with-hash-table-iterator"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2065 "with-input-from-string" "with-open-file"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2066 "with-open-stream" "with-output-to-string"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2067 "with-package-iterator" "with-simple-restart"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2068 "with-slots" "with-standard-io-syntax") t)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2069 "\\>")
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2070 . 1)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2071 ;; Exit/Feature symbols as constants.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2072 (,(concat "(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\>"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2073 "[ \t']*\\(\\sw+\\)?")
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2074 (1 font-lock-keyword-face)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2075 (2 font-lock-constant-face nil t))
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2076 ;; Erroneous structures.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2077 ("(\\(abort\\|assert\\|warn\\|check-type\\|cerror\\|error\\|signal\\)\\>" 1 font-lock-warning-face)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2078 ;; Words inside \\[] tend to be for `substitute-command-keys'.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2079 ("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-constant-face prepend)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2080 ;; Words inside `' tend to be symbol names.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2081 ("`\\(\\sw\\sw+\\)'" 1 font-lock-constant-face prepend)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2082 ;; Constant values.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2083 ("\\<:\\sw+\\>" 0 font-lock-builtin-face)
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2084 ;; ELisp and CLisp `&' keywords as types.
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2085 ("\\&\\sw+\\>" . font-lock-type-face)
62549
744535f6366b (lisp-font-lock-keywords-2): Don't error. Minor regexp-optimization.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62502
diff changeset
2086 ;; Make regexp grouping constructs bold, so they stand out, but only
744535f6366b (lisp-font-lock-keywords-2): Don't error. Minor regexp-optimization.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62502
diff changeset
2087 ;; in strings.
62502
8f934f346603 (lisp-font-lock-keywords-2): Do \\) only in strings, because (eq ... ?\\) is fairly frequent.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62413
diff changeset
2088 ((lambda (bound)
63049
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
2089 (if (re-search-forward "\\(\\\\\\\\\\)\\((\\(?:?:\\)?\\|[|)]\\)" bound t)
62502
8f934f346603 (lisp-font-lock-keywords-2): Do \\) only in strings, because (eq ... ?\\) is fairly frequent.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62413
diff changeset
2090 (let ((face (get-text-property (1- (point)) 'face)))
8f934f346603 (lisp-font-lock-keywords-2): Do \\) only in strings, because (eq ... ?\\) is fairly frequent.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62413
diff changeset
2091 (if (listp face)
8f934f346603 (lisp-font-lock-keywords-2): Do \\) only in strings, because (eq ... ?\\) is fairly frequent.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62413
diff changeset
2092 (memq 'font-lock-string-face face)
8f934f346603 (lisp-font-lock-keywords-2): Do \\) only in strings, because (eq ... ?\\) is fairly frequent.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62413
diff changeset
2093 (eq 'font-lock-string-face face)))))
63049
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
2094 (1 'font-lock-regexp-backslash prepend)
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
2095 (2 'font-lock-regexp-backslash-construct prepend))
2c644f271d4c (font-lock-regexp-backslash)
Juri Linkov <juri@jurta.org>
parents: 63028
diff changeset
2096
62549
744535f6366b (lisp-font-lock-keywords-2): Don't error. Minor regexp-optimization.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62502
diff changeset
2097 ;; Underline innermost grouping, so that you can more easily see what
744535f6366b (lisp-font-lock-keywords-2): Don't error. Minor regexp-optimization.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62502
diff changeset
2098 ;; belongs together. 2005-05-12: Font-lock can go into an
744535f6366b (lisp-font-lock-keywords-2): Don't error. Minor regexp-optimization.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62502
diff changeset
2099 ;; unbreakable endless loop on this -- something's broken.
62413
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2100 ;;("[\\][\\][(]\\(?:\\?:\\)?\\(\\(?:[^\\\"]+\\|[\\]\\(?:[^\\]\\|[\\][^(]\\)\\)+?\\)[\\][\\][)]"
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2101 ;;1 'underline prepend)
62239
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
2102 ;;; This is too general -- rms.
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
2103 ;;; A user complained that he has functions whose names start with `do'
55168ce0d00d (font-lock-fontify-syntactically-region): Don't use comment-end if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 62235
diff changeset
2104 ;;; and that they get the wrong color.
54255
5cf652dfce17 (lisp-font-lock-keywords-2):
Richard M. Stallman <rms@gnu.org>
parents: 54161
diff changeset
2105 ;;; ;; CL `with-' and `do-' constructs
62413
f0e96503b7e0 (lisp-font-lock-keywords-1): Set `font-lock-negation-char-face' for [^...] char group.
Daniel Pfeiffer <occitan@esperanto.org>
parents: 62362
diff changeset
2106 ;;; ("(\\(\\(do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face)
16456
63b6583c9e5c Changes to font-lock-fontify-syntactically-region: (a) the cache position must be a marker, (b) use a loop to look for comment start, some speedups.
Simon Marshall <simon@gnu.org>
parents: 15814
diff changeset
2107 )))
12385
c80966dc0b60 Specify in font-lock-defaults/font-lock-defaults-alist which keywords we can
Simon Marshall <simon@gnu.org>
parents: 12268
diff changeset
2108 "Gaudy level highlighting for Lisp modes.")
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2109
12385
c80966dc0b60 Specify in font-lock-defaults/font-lock-defaults-alist which keywords we can
Simon Marshall <simon@gnu.org>
parents: 12268
diff changeset
2110 (defvar lisp-font-lock-keywords lisp-font-lock-keywords-1
c80966dc0b60 Specify in font-lock-defaults/font-lock-defaults-alist which keywords we can
Simon Marshall <simon@gnu.org>
parents: 12268
diff changeset
2111 "Default expressions to highlight in Lisp modes.")
18463
4f630b3e8f43 split up scheme and tex support; wrap inhibit-point-motion-hooks where nec.
Simon Marshall <simon@gnu.org>
parents: 18332
diff changeset
2112
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2113 (provide 'font-lock)
39146
d1a5ac2a48eb (toplevel): Require `jit-lock' only if
Gerd Moellmann <gerd@gnu.org>
parents: 38491
diff changeset
2114
58161
5451548f1bd9 (font-lock-fontify-syntactically-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57433
diff changeset
2115 ;; arch-tag: 682327e4-64d8-4057-b20b-1fbb9f1fc54c
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2116 ;;; font-lock.el ends here