annotate lisp/font-lock.el @ 10700:f6f235bc26ba

(print-region-new-buffer): Return new start and end. (print-region-1): Use new calling convention.
author Richard M. Stallman <rms@gnu.org>
date Wed, 08 Feb 1995 06:35:50 +0000
parents cbd9cef03245
children 73ce8261c2ce
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;; Electric Font Lock Mode
7298
4fd40bd394fe Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 7018
diff changeset
2 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
4 ;; Author: jwz, then rms and sm (simon.marshall@mail.esrin.esa.it)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Maintainer: FSF
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Keywords: languages, faces
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
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 ;; GNU Emacs is free software; you can redistribute it and/or modify
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; 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
12 ;; the Free Software Foundation; either version 2, or (at your option)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
27 ;; 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
28 ;; 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
29 ;;
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; Comments will be displayed in `font-lock-comment-face'.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;; 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
32 ;; Regexps are used to display selected patterns in other faces.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;;
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;; To make the text you type be fontified, use M-x font-lock-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
35 ;; When this minor mode is on, the faces of the current line are
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; updated with every insertion or deletion.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;;
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
38 ;; 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
39 ;;
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
40 ;; (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
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 ;; On a Sparc2, `font-lock-fontify-buffer' takes about 10 seconds for a 120k
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
43 ;; file of C code using the default configuration, and about 25 seconds using
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
44 ;; the more extensive configuration, though times also depend on file contents.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
45 ;; You can speed this up substantially by removing some of the patterns that
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
46 ;; are highlighted by default. Fontifying Lisp code is significantly faster,
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
47 ;; because Lisp has a more regular syntax than C, so the expressions don't have
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
48 ;; to be as hairy.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
49 ;;
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
50 ;; If you add patterns for a new mode, say foo.el's `foo-mode', say in which
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
51 ;; you don't want syntactic fontification to occur, you can make Font Lock mode
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
52 ;; use your regexps when turning on Font Lock by adding to `foo-mode-hook':
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
53 ;;
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
54 ;; (add-hook 'foo-mode-hook
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
55 ;; '(lambda () (make-local-variable 'font-lock-defaults)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
56 ;; (setq font-lock-defaults '(foo-font-lock-keywords t))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
57 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
58 ;; Nasty regexps of the form "bar\\(\\|lo\\)\\|f\\(oo\\|u\\(\\|bar\\)\\)\\|lo"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
59 ;; are made thusly: (make-regexp '("foo" "fu" "fubar" "bar" "barlo" "lo")) for
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
60 ;; efficiency. See /pub/gnu/emacs/elisp-archive/functions/make-regexp.el.Z on
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
61 ;; archive.cis.ohio-state.edu for this and other functions.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
62
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;;; Code:
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
65 (defvar font-lock-comment-face 'font-lock-comment-face
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 "Face to use for comments.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
68 (defvar font-lock-string-face 'font-lock-string-face
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
69 "Face to use for strings.")
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
71 (defvar font-lock-function-name-face 'font-lock-function-name-face
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 "Face to use for function names.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
74 (defvar font-lock-variable-name-face 'font-lock-variable-name-face
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
75 "Face to use for variable names.")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
76
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
77 (defvar font-lock-keyword-face 'font-lock-keyword-face
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 "Face to use for keywords.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
80 (defvar font-lock-type-face 'font-lock-type-face
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 "Face to use for data types.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
83 (defvar font-lock-reference-face 'font-lock-reference-face
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
84 "Face to use for references.")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
85
7491
621c162a80db (font-lock-no-comments): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
86 (defvar font-lock-no-comments nil
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
87 "Non-nil means Font Lock should not fontify comments or strings.")
7491
621c162a80db (font-lock-no-comments): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
88
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (make-variable-buffer-local 'font-lock-keywords)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (defvar font-lock-keywords nil
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 "*The keywords to highlight.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
92 Elements should be of the form:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
93
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
94 REGEXP
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
95 (REGEXP . MATCH)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
96 (REGEXP . FACENAME)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
97 (REGEXP . HIGHLIGHT)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
98 (REGEXP HIGHLIGHT ...)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
100 where HIGHLIGHT should be of the form (MATCH FACENAME OVERRIDE LAXMATCH).
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
101 REGEXP is the regexp to search for, MATCH is the subexpression of REGEXP to be
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
102 highlighted, FACENAME is an expression whose value is the face name to use.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
103 FACENAME's default attributes may be defined in `font-lock-face-attributes'.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
105 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
106 be overriden. If `keep', only parts not already fontified are highlighted.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
107 If LAXMATCH is non-nil, no error is signalled if there is no MATCH in REGEXP.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
109 These regular expressions should not match text which spans lines. While
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
110 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
111 when you edit the buffer does not, since it considers text one line at a time.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
112
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
113 Be careful composing regexps for this list;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
114 the wrong pattern can dramatically slow things down!")
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
116 (defvar font-lock-defaults nil
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
117 "If set by a major mode, should be the defaults for Font Lock mode.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
118 The value should look like the `cdr' of an item in `font-lock-defaults-alist'.")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
119
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
120 (defvar font-lock-defaults-alist
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
121 '((bibtex-mode . (tex-font-lock-keywords))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
122 (c++-c-mode . (c-font-lock-keywords nil nil ((?\_ . "w"))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
123 (c++-mode . (c++-font-lock-keywords nil nil ((?\_ . "w"))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
124 (c-mode . (c-font-lock-keywords nil nil ((?\_ . "w"))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
125 (emacs-lisp-mode . (lisp-font-lock-keywords))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
126 (latex-mode . (tex-font-lock-keywords))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
127 (lisp-mode . (lisp-font-lock-keywords))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
128 (plain-tex-mode . (tex-font-lock-keywords))
9909
ff043fec9153 Add scheme-mode to font-lock-defaults-alist using lisp-font-lock-keywords.
Simon Marshall <simon@gnu.org>
parents: 9814
diff changeset
129 (scheme-mode . (lisp-font-lock-keywords))
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
130 (slitex-mode . (tex-font-lock-keywords))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
131 (tex-mode . (tex-font-lock-keywords)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
132 "*Alist of default major mode and Font Lock defaults.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
133 Each item should be a list of the form:
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
134 (MAJOR-MODE . (FONT-LOCK-KEYWORDS KEYWORDS-ONLY CASE-FOLD FONT-LOCK-SYNTAX))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
135 where both MAJOR-MODE and FONT-LOCK-KEYWORDS are symbols. If KEYWORDS-ONLY is
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
136 non-nil, syntactic fontification (strings and comments) is not performed.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
137 If CASE-FOLD is non-nil, the case of the keywords is ignored when fontifying.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
138 FONT-LOCK-SYNTAX should be a list of cons pairs of the form (CHAR . STRING), it
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
139 is used to set the local Font Lock syntax table for keyword fontification.")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
140
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
141 (defvar font-lock-maximum-size (* 100 1024)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
142 "*If non-nil, the maximum size for buffers.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
143 Only buffers less than are fontified when Font Lock mode is turned on.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
144 If nil, means size is irrelevant.")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
145
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (defvar font-lock-keywords-case-fold-search nil
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 "*Non-nil means the patterns in `font-lock-keywords' are case-insensitive.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148
8457
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
149 (defvar font-lock-syntax-table nil
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
150 "*Non-nil means use this syntax table for fontifying.
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
151 If this is nil, the major mode's syntax table is used.")
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
152
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (defvar font-lock-verbose t
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 "*Non-nil means `font-lock-fontify-buffer' should print status messages.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155
4054
074035743fc9 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4053
diff changeset
156 ;;;###autoload
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (defvar font-lock-mode-hook nil
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 "Function or functions to run on entry to Font Lock mode.")
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
159
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
160 ;; Colour etc. support.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
162 (defvar font-lock-display-type nil
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
163 "A symbol indicating the display Emacs is running under.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
164 The symbol should be one of `color', `grayscale' or `mono'.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
165 If Emacs guesses this display attribute wrongly, either set this variable in
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
166 your `~/.emacs' or set the resource `Emacs.displayType' in your `~/.Xdefaults'.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
167 See also `font-lock-background-mode' and `font-lock-face-attributes'.")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
168
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
169 (defvar font-lock-background-mode nil
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
170 "A symbol indicating the Emacs background brightness.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
171 The symbol should be one of `light' or `dark'.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
172 If Emacs guesses this frame attribute wrongly, either set this variable in
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
173 your `~/.emacs' or set the resource `Emacs.backgroundMode' in your
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
174 `~/.Xdefaults'.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
175 See also `font-lock-display-type' and `font-lock-face-attributes'.")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
176
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
177 (defvar font-lock-face-attributes nil
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
178 "A list of default attributes to use for face attributes.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
179 Each element of the list should be of the form
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
180
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
181 (FACE FOREGROUND BACKGROUND BOLD-P ITALIC-P UNDERLINE-P)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
182
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
183 where FACE should be one of the face symbols `font-lock-comment-face',
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
184 `font-lock-string-face', `font-lock-keyword-face', `font-lock-type-face',
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
185 `font-lock-function-name-face', `font-lock-variable-name-face', and
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
186 `font-lock-reference-face'. A form for each of these face symbols should be
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
187 provided in the list, but other face symbols and attributes may be given and
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
188 used in highlighting. See `font-lock-keywords'.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
189
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
190 Subsequent element items should be the attributes for the corresponding
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
191 Font Lock mode faces. Attributes FOREGROUND and BACKGROUND should be strings
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
192 \(default if nil), while BOLD-P, ITALIC-P, and UNDERLINE-P should specify the
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
193 corresponding face attributes (yes if non-nil).
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
194
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
195 Emacs uses default attributes based on display type and background brightness.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
196 See variables `font-lock-display-type' and `font-lock-background-mode'.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
197
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
198 Resources can be used to over-ride these face attributes. For example, the
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
199 resource `Emacs.font-lock-comment-face.attributeUnderline' can be used to
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
200 specify the UNDERLINE-P attribute for face `font-lock-comment-face'.")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
201
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
202 (defun font-lock-make-faces ()
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
203 "Make faces from `font-lock-face-attributes'.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
204 A default list is used if this is nil.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
205 See `font-lock-make-face' and `list-faces-display'."
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
206 ;; We don't need to `setq' any of these variables, but the user can see what
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
207 ;; is being used if we do.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
208 (if (null font-lock-display-type)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
209 (setq font-lock-display-type
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
210 (let ((display-resource (x-get-resource ".displayType"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
211 "DisplayType")))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
212 (cond (display-resource (intern (downcase display-resource)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
213 ((x-display-color-p) 'color)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
214 ((x-display-grayscale-p) 'grayscale)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
215 (t 'mono)))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
216 (if (null font-lock-background-mode)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
217 (setq font-lock-background-mode
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
218 (let ((bg-resource (x-get-resource ".backgroundMode"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
219 "BackgroundMode"))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
220 (params (frame-parameters)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
221 (cond (bg-resource (intern (downcase bg-resource)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
222 ((or (string-equal "white"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
223 (downcase (cdr (assq 'foreground-color params))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
224 (string-equal "black"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
225 (downcase (cdr (assq 'background-color params)))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
226 'dark)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
227 (t 'light)))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
228 (if (null font-lock-face-attributes)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
229 (setq font-lock-face-attributes
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
230 (let ((light-bg (eq font-lock-background-mode 'light)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
231 (cond ((memq font-lock-display-type '(mono monochrome))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
232 ;; Emacs 19.25's font-lock defaults:
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
233 ;;'((font-lock-comment-face nil nil nil t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
234 ;; (font-lock-string-face nil nil nil nil t)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
235 ;; (font-lock-keyword-face nil nil t nil nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
236 ;; (font-lock-function-name-face nil nil t t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
237 ;; (font-lock-type-face nil nil nil t nil))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
238 (list '(font-lock-comment-face nil nil t t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
239 '(font-lock-string-face nil nil nil t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
240 '(font-lock-keyword-face nil nil t nil nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
241 (list
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
242 'font-lock-function-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
243 (cdr (assq 'background-color (frame-parameters)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
244 (cdr (assq 'foreground-color (frame-parameters)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
245 t nil nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
246 '(font-lock-variable-name-face nil nil t t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
247 '(font-lock-type-face nil nil t nil t)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
248 '(font-lock-reference-face nil nil t nil t)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
249 ((memq font-lock-display-type '(grayscale greyscale
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
250 grayshade greyshade))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
251 (list
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
252 (list 'font-lock-comment-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
253 (if light-bg "DimGray" "Gray80") nil t t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
254 (list 'font-lock-string-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
255 (if light-bg "Gray50" "LightGray") nil nil t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
256 (list 'font-lock-keyword-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
257 (if light-bg "DimGray" "Gray90") nil t nil nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
258 (list 'font-lock-function-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
259 (cdr (assq 'background-color (frame-parameters)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
260 (cdr (assq 'foreground-color (frame-parameters)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
261 t nil nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
262 (list 'font-lock-variable-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
263 (if light-bg "DimGray" "Gray90") nil t t nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
264 (list 'font-lock-type-face
10099
71e0c3ece2fe Added defaults for grayscale font-lock-reference-face.
Simon Marshall <simon@gnu.org>
parents: 9909
diff changeset
265 (if light-bg "DimGray" "Gray80") nil t nil t)
71e0c3ece2fe Added defaults for grayscale font-lock-reference-face.
Simon Marshall <simon@gnu.org>
parents: 9909
diff changeset
266 (list 'font-lock-reference-face
71e0c3ece2fe Added defaults for grayscale font-lock-reference-face.
Simon Marshall <simon@gnu.org>
parents: 9909
diff changeset
267 (if light-bg "Gray50" "LightGray") nil t nil t)))
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
268 (light-bg ; light colour background
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
269 '((font-lock-comment-face "Firebrick")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
270 (font-lock-string-face "RosyBrown")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
271 (font-lock-keyword-face "Purple")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
272 (font-lock-function-name-face "Blue")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
273 (font-lock-variable-name-face "DarkGoldenrod")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
274 (font-lock-type-face "DarkOliveGreen")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
275 (font-lock-reference-face "CadetBlue")))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
276 (t ; dark colour background
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
277 '((font-lock-comment-face "OrangeRed")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
278 (font-lock-string-face "LightSalmon")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
279 (font-lock-keyword-face "LightSteelBlue")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
280 (font-lock-function-name-face "LightSkyBlue")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
281 (font-lock-variable-name-face "LightGoldenrod")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
282 (font-lock-type-face "PaleGreen")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
283 (font-lock-reference-face "Aquamarine")))))))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
284 (mapcar 'font-lock-make-face font-lock-face-attributes))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
285
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
286 (defun font-lock-make-face (face-attributes)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
287 "Make a face from FACE-ATTRIBUTES.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
288 FACE-ATTRIBUTES should be like an element `font-lock-face-attributes', so that
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
289 the face name is the first item in the list. A variable with the same name as
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
290 the face is also set; its value is the face name."
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
291 (let* ((face (nth 0 face-attributes))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
292 (face-name (symbol-name face))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
293 (set-p (function (lambda (face-name resource)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
294 (x-get-resource (concat face-name ".attribute" resource)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
295 (concat "Face.Attribute" resource)))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
296 (on-p (function (lambda (face-name resource)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
297 (let ((set (funcall set-p face-name resource)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
298 (and set (member (downcase set) '("on" "true"))))))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
299 (make-face face)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
300 ;; Set attributes not set from X resources (and therefore `make-face').
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
301 (or (funcall set-p face-name "Foreground")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
302 (condition-case nil
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
303 (set-face-foreground face (nth 1 face-attributes))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
304 (error nil)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
305 (or (funcall set-p face-name "Background")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
306 (condition-case nil
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
307 (set-face-background face (nth 2 face-attributes))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
308 (error nil)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
309 (if (funcall set-p face-name "Bold")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
310 (and (funcall on-p face-name "Bold") (make-face-bold face nil t))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
311 (and (nth 3 face-attributes) (make-face-bold face nil t)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
312 (if (funcall set-p face-name "Italic")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
313 (and (funcall on-p face-name "Italic") (make-face-italic face nil t))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
314 (and (nth 4 face-attributes) (make-face-italic face nil t)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
315 (or (funcall set-p face-name "Underline")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
316 (set-face-underline-p face (nth 5 face-attributes)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
317 (set face face)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
318
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
319 ;; Fontification.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
320
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
321 ;; These variables record, for each buffer, the parse state at a particular
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
322 ;; position, always the start of a line. Used to make font-lock-fontify-region
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
323 ;; faster.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 (defvar font-lock-cache-position nil)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 (defvar font-lock-cache-state nil)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 (make-variable-buffer-local 'font-lock-cache-position)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 (make-variable-buffer-local 'font-lock-cache-state)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
329 (defun font-lock-fontify-region (start end &optional loudly)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 "Put proper face on each string and comment between START and END."
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (save-excursion
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
332 (save-restriction
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
333 (widen)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
334 (goto-char start)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
335 (beginning-of-line)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
336 (if loudly (message "Fontifying %s... (syntactically...)" (buffer-name)))
10545
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
337 (let ((inhibit-read-only t)
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
338 ;; Prevent warnings if the disk file has been altered.
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
339 (buffer-file-name)
10175
a52d1ab148f5 (font-lock-hack-keywords): Turn off undo generation.
Richard M. Stallman <rms@gnu.org>
parents: 10116
diff changeset
340 ;; Suppress all undo activity.
a52d1ab148f5 (font-lock-hack-keywords): Turn off undo generation.
Richard M. Stallman <rms@gnu.org>
parents: 10116
diff changeset
341 (buffer-undo-list t)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
342 (modified (buffer-modified-p))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
343 (cstart (if comment-start-skip
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
344 (concat "\\s\"\\|" comment-start-skip)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
345 "\\s\""))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
346 (cend (if comment-end
9597
d352bebc9103 (font-lock-after-change-function): If inside a comment,
Richard M. Stallman <rms@gnu.org>
parents: 9513
diff changeset
347 (concat "\\s>\\|"
d352bebc9103 (font-lock-after-change-function): If inside a comment,
Richard M. Stallman <rms@gnu.org>
parents: 9513
diff changeset
348 (regexp-quote
d352bebc9103 (font-lock-after-change-function): If inside a comment,
Richard M. Stallman <rms@gnu.org>
parents: 9513
diff changeset
349 ;; Discard leading spaces from comment-end.
d352bebc9103 (font-lock-after-change-function): If inside a comment,
Richard M. Stallman <rms@gnu.org>
parents: 9513
diff changeset
350 ;; In C mode, it is " */"
d352bebc9103 (font-lock-after-change-function): If inside a comment,
Richard M. Stallman <rms@gnu.org>
parents: 9513
diff changeset
351 ;; and we don't want to fail to notice a */
d352bebc9103 (font-lock-after-change-function): If inside a comment,
Richard M. Stallman <rms@gnu.org>
parents: 9513
diff changeset
352 ;; just because there's no space there.
9814
5ae33de679f6 Wrap font-lock-fontify-region's string-match with save-match-data.
Simon Marshall <simon@gnu.org>
parents: 9597
diff changeset
353 (save-match-data
5ae33de679f6 Wrap font-lock-fontify-region's string-match with save-match-data.
Simon Marshall <simon@gnu.org>
parents: 9597
diff changeset
354 (if (string-match "^ +" comment-end)
5ae33de679f6 Wrap font-lock-fontify-region's string-match with save-match-data.
Simon Marshall <simon@gnu.org>
parents: 9597
diff changeset
355 (substring comment-end (match-end 0))
5ae33de679f6 Wrap font-lock-fontify-region's string-match with save-match-data.
Simon Marshall <simon@gnu.org>
parents: 9597
diff changeset
356 comment-end))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
357 "\\s>"))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
358 (startline (point))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
359 state prev prevstate)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
360 ;; Find the state at the line-beginning before START.
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
361 (if (eq startline font-lock-cache-position)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
362 (setq state font-lock-cache-state)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
363 ;; Find outermost containing sexp.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
364 (beginning-of-defun)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
365 ;; Find the state at STARTLINE.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
366 (while (< (point) startline)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
367 (setq state (parse-partial-sexp (point) startline 0)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
368 (setq font-lock-cache-state state
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
369 font-lock-cache-position (point)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
370 ;; Now find the state precisely at START.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
371 (setq state (parse-partial-sexp (point) start nil nil state))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
372 ;; If the region starts inside a string, show the extent of it.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
373 (if (nth 3 state)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
374 (let ((beg (point)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
375 (while (and (re-search-forward "\\s\"" end 'move)
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
376 (nth 3 (parse-partial-sexp beg (point) nil nil
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
377 state))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
378 (put-text-property beg (point) 'face font-lock-string-face)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
379 (setq state (parse-partial-sexp beg (point) nil nil state))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
380 ;; Likewise for a comment.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
381 (if (or (nth 4 state) (nth 7 state))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
382 (let ((beg (point)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
383 (while (and (re-search-forward cend end 'move)
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
384 (nth 3 (parse-partial-sexp beg (point) nil nil
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
385 state))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
386 (put-text-property beg (point) 'face font-lock-comment-face)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
387 (setq state (parse-partial-sexp beg (point) nil nil state))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
388 ;; Find each interesting place between here and END.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
389 (while (and (< (point) end)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
390 (setq prev (point) prevstate state)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
391 (re-search-forward cstart end t)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
392 (progn
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
393 ;; Clear out the fonts of what we skip over.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
394 (remove-text-properties prev (point) '(face nil))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
395 ;; Verify the state at that place
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
396 ;; so we don't get fooled by \" or \;.
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
397 (setq state (parse-partial-sexp prev (point) nil nil
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
398 state))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
399 (let ((here (point)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
400 (if (or (nth 4 state) (nth 7 state))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
401 ;; We found a real comment start.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (let ((beg (match-beginning 0)))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
403 (goto-char beg)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
404 (save-restriction
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
405 (narrow-to-region (point-min) end)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
406 (condition-case nil
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
407 (progn
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
408 (forward-comment 1)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
409 ;; forward-comment skips all whitespace,
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
410 ;; so go back to the real end of the comment.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
411 (skip-chars-backward " \t"))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
412 (error (goto-char end))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
413 (put-text-property beg (point) 'face font-lock-comment-face)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
414 (setq state (parse-partial-sexp here (point) nil nil state)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
415 (if (nth 3 state)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
416 (let ((beg (match-beginning 0)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
417 (while (and (re-search-forward "\\s\"" end 'move)
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
418 (nth 3 (parse-partial-sexp here (point) nil nil
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
419 state))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
420 (put-text-property beg (point) 'face font-lock-string-face)
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
421 (setq state (parse-partial-sexp here (point) nil nil
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
422 state))))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
423 ;; Make sure PREV is non-nil after the loop
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
424 ;; only if it was set on the very last iteration.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
425 (setq prev nil))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
426 (and prev
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
427 (remove-text-properties prev end '(face nil)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
428 (and (buffer-modified-p)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
429 (not modified)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
430 (set-buffer-modified-p nil))))))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 ;; This code used to be used to show a string on reaching the end of it.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 ;; It is probably not needed due to later changes to handle strings
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 ;; starting before the region in question.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 ;; (if (and (null (nth 3 state))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 ;; (eq (char-syntax (preceding-char)) ?\")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 ;; (save-excursion
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 ;; (nth 3 (parse-partial-sexp prev (1- (point))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 ;; nil nil prevstate))))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 ;; ;; We found the end of a string.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 ;; (save-excursion
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 ;; (setq foo2 (point))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 ;; (let ((ept (point)))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 ;; (forward-sexp -1)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 ;; ;; Highlight the string when we see the end.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 ;; ;; Doing it at the start leads to trouble:
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 ;; ;; either it fails to handle multiline strings
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 ;; ;; or it can run away when an unmatched " is inserted.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 ;; (put-text-property (point) ept 'face
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 ;; (if (= (car state) 1)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 ;; font-lock-doc-string-face
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 ;; font-lock-string-face)))))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 (defun font-lock-unfontify-region (beg end)
4219
24f3ca095be9 (perl-font-lock-keywords): Add a `(... . 1)' to the
Richard M. Stallman <rms@gnu.org>
parents: 4054
diff changeset
455 (let ((modified (buffer-modified-p))
10175
a52d1ab148f5 (font-lock-hack-keywords): Turn off undo generation.
Richard M. Stallman <rms@gnu.org>
parents: 10116
diff changeset
456 (buffer-undo-list t)
10545
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
457 (inhibit-read-only t)
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
458 ;; Prevent warnings if the disk file has been altered.
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
459 (buffer-file-name))
4219
24f3ca095be9 (perl-font-lock-keywords): Add a `(... . 1)' to the
Richard M. Stallman <rms@gnu.org>
parents: 4054
diff changeset
460 (remove-text-properties beg end '(face nil))
24f3ca095be9 (perl-font-lock-keywords): Add a `(... . 1)' to the
Richard M. Stallman <rms@gnu.org>
parents: 4054
diff changeset
461 (set-buffer-modified-p modified)))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 ;; Called when any modification is made to buffer text.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 (defun font-lock-after-change-function (beg end old-len)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 (save-excursion
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (save-match-data
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 ;; Discard the cache info if text before it has changed.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 (and font-lock-cache-position
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (> font-lock-cache-position beg)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 (setq font-lock-cache-position nil))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
471 ;; Rescan between start of line from `beg' and start of line after `end'.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 (goto-char beg)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (beginning-of-line)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (setq beg (point))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
475 (goto-char end)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
476 (forward-line 1)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
477 (setq end (point))
4239
e8cf7a7d0102 (font-lock-after-change-function):
Richard M. Stallman <rms@gnu.org>
parents: 4219
diff changeset
478 ;; First scan for strings and comments.
e8cf7a7d0102 (font-lock-after-change-function):
Richard M. Stallman <rms@gnu.org>
parents: 4219
diff changeset
479 ;; Must scan from line start in case of
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
480 ;; inserting space into `intfoo () {}', and after widened.
7491
621c162a80db (font-lock-no-comments): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
481 (if font-lock-no-comments
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
482 (remove-text-properties beg end '(face nil))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
483 (font-lock-fontify-region beg end))
10116
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
484 (font-lock-hack-keywords beg end))))
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
485
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
486 ; ;; Now scan for keywords, but not if we are inside a comment now.
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
487 ; (or (and (not font-lock-no-comments)
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
488 ; (let ((state (parse-partial-sexp beg end nil nil
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
489 ; font-lock-cache-state)))
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
490 ; (or (nth 4 state) (nth 7 state))))
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
491 ; (font-lock-hack-keywords beg end))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 ;;; Fontifying arbitrary patterns
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 (defun font-lock-hack-keywords (start end &optional loudly)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
496 "Fontify according to `font-lock-keywords' between START and END."
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 (let ((case-fold-search font-lock-keywords-case-fold-search)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
498 (keywords font-lock-keywords)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 (count 0)
10545
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
500 ;; Prevent warnings if the disk file has been altered.
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
501 (buffer-file-name)
cbd9cef03245 (font-lock-fontify-region): Bind inhibit-read-only. Also buffer-file-name.
Richard M. Stallman <rms@gnu.org>
parents: 10175
diff changeset
502 (inhibit-read-only t)
10175
a52d1ab148f5 (font-lock-hack-keywords): Turn off undo generation.
Richard M. Stallman <rms@gnu.org>
parents: 10116
diff changeset
503 (buffer-undo-list t)
4219
24f3ca095be9 (perl-font-lock-keywords): Add a `(... . 1)' to the
Richard M. Stallman <rms@gnu.org>
parents: 4054
diff changeset
504 (modified (buffer-modified-p))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
505 (old-syntax (syntax-table))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
506 (bufname (buffer-name)))
8457
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
507 (unwind-protect
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
508 (let (keyword regexp match highlights hs h s e)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
509 (if loudly (message "Fontifying %s... (regexps...)" bufname))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
510 (if font-lock-syntax-table (set-syntax-table font-lock-syntax-table))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
511 (while keywords
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
512 (setq keyword (car keywords) keywords (cdr keywords)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
513 regexp (if (stringp keyword) keyword (car keyword))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
514 highlights (cond ((stringp keyword)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
515 '((0 font-lock-keyword-face)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
516 ((numberp (cdr keyword))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
517 (list (list (cdr keyword)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
518 'font-lock-keyword-face)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
519 ((symbolp (cdr keyword))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
520 (list (list 0 (cdr keyword))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
521 ((nlistp (nth 1 keyword))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
522 (list (cdr keyword)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
523 (t
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
524 (cdr keyword))))
8457
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
525 (goto-char start)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
526 (while (re-search-forward regexp end t)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
527 (setq hs highlights)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
528 (while hs
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
529 (setq h (car hs) match (nth 0 h)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
530 s (match-beginning match) e (match-end match)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
531 hs (cdr hs))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
532 (cond ((not s)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
533 ;; No match but we might not signal an error
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
534 (or (nth 3 h)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
535 (error "No subexpression %d in expression %d"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
536 match (1+ count))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
537 ((and (not (nth 2 h))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
538 (text-property-not-all s e 'face nil))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
539 ;; Can't override and already fontified
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
540 nil)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
541 ((not (eq (nth 2 h) 'keep))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
542 ;; Can override but need not keep existing fontification
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
543 (put-text-property s e 'face (eval (nth 1 h))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
544 (t
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
545 ;; Can override but must keep existing fontification
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
546 ;; (Does anyone use this? sm.)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
547 (let ((p (text-property-any s e 'face nil)) n
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
548 (face (eval (nth 1 h))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
549 (while p
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
550 (setq n (next-single-property-change p 'face nil e))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
551 (put-text-property p n 'face face)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
552 (setq p (text-property-any n e 'face nil))))))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
553 ;; the above form was:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
554 ; (save-excursion
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
555 ; (goto-char s)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
556 ; (while (< (point) e)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
557 ; (let ((next (next-single-property-change (point) 'face
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
558 ; nil e)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
559 ; (if (or (null next) (> next e))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
560 ; (setq next e))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
561 ; (if (not (get-text-property (point) 'face))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
562 ; (put-text-property (point) next 'face face))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
563 ; (goto-char next))))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
564
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
565 (if loudly (message "Fontifying %s... (regexps...%s)" bufname
8457
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
566 (make-string (setq count (1+ count)) ?.)))))
c0492d7043b2 (font-lock-syntax-table): New syntax table.
Richard M. Stallman <rms@gnu.org>
parents: 7915
diff changeset
567 (set-syntax-table old-syntax))
7915
970912d4f413 Don't alter the underline face.
Richard M. Stallman <rms@gnu.org>
parents: 7847
diff changeset
568 (and (buffer-modified-p)
970912d4f413 Don't alter the underline face.
Richard M. Stallman <rms@gnu.org>
parents: 7847
diff changeset
569 (not modified)
970912d4f413 Don't alter the underline face.
Richard M. Stallman <rms@gnu.org>
parents: 7847
diff changeset
570 (set-buffer-modified-p nil))))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 ;; The user level functions
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 (defvar font-lock-mode nil) ; for modeline
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 (defvar font-lock-fontified nil) ; whether we have hacked this buffer
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 (put 'font-lock-fontified 'permanent-local t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 ;;;###autoload
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 (defun font-lock-mode (&optional arg)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 "Toggle Font Lock mode.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 With arg, turn Font Lock mode on if and only if arg is positive.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 When Font Lock mode is enabled, text is fontified as you type it:
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
586 - Comments are displayed in `font-lock-comment-face';
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
587 - Strings are displayed in `font-lock-string-face';
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
588 - Certain other expressions are displayed in other faces according to the
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
589 value of the variable `font-lock-keywords'.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
590
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
591 You can enable Font Lock mode in any major mode automatically by turning on in
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
592 the major mode's hook. For example, put in your ~/.emacs:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
593
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
594 (add-hook 'c-mode-hook 'turn-on-font-lock)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
595
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
596 Or for any visited file with the following in your ~/.emacs:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
597
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
598 (add-hook 'find-file-hooks 'turn-on-font-lock)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
599
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
600 The default Font Lock mode faces and their attributes are defined in the
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
601 variable `font-lock-face-attributes', and Font Lock mode default settings in
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
602 the variable `font-lock-defaults-alist'.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
604 When you turn Font Lock mode on/off the buffer is fontified/defontified, though
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
605 fontification occurs only if the buffer is less than `font-lock-maximum-size'.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
606 To fontify a buffer without turning on Font Lock mode, and regardless of buffer
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
607 size, you can use \\[font-lock-fontify-buffer]."
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 (interactive "P")
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
609 (let ((on-p (if arg (> (prefix-numeric-value arg) 0) (not font-lock-mode))))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 (if (equal (buffer-name) " *Compiler Input*") ; hack for bytecomp...
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 (setq on-p nil))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
612 (if (not on-p)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
613 (remove-hook 'after-change-functions 'font-lock-after-change-function)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
614 (make-local-variable 'after-change-functions)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
615 (add-hook 'after-change-functions 'font-lock-after-change-function))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 (set (make-local-variable 'font-lock-mode) on-p)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 (cond (on-p
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 (font-lock-set-defaults)
5717
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
619 (make-local-variable 'before-revert-hook)
5625
24f92f49a07f (font-lock-mode): Set after-revert-hook
Richard M. Stallman <rms@gnu.org>
parents: 5360
diff changeset
620 (make-local-variable 'after-revert-hook)
5717
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
621 ;; If buffer is reverted, must clean up the state.
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
622 (add-hook 'before-revert-hook 'font-lock-revert-setup)
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
623 (add-hook 'after-revert-hook 'font-lock-revert-cleanup)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 (run-hooks 'font-lock-mode-hook)
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
625 (cond (font-lock-fontified
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
626 nil)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
627 ((or (null font-lock-maximum-size)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
628 (> font-lock-maximum-size (buffer-size)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
629 (font-lock-fontify-buffer))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
630 (font-lock-verbose
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
631 (message "Fontifying %s... buffer too big." (buffer-name)))))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 (font-lock-fontified
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 (setq font-lock-fontified nil)
5717
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
634 (remove-hook 'before-revert-hook 'font-lock-revert-setup)
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
635 (remove-hook 'after-revert-hook 'font-lock-revert-cleanup)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 (font-lock-unfontify-region (point-min) (point-max))))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 (force-mode-line-update)))
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
639 ;;;###autoload
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
640 (defun turn-on-font-lock ()
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
641 "Unconditionally turn on Font Lock mode."
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
642 (font-lock-mode 1))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
643
5717
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
644 ;; If the buffer is about to be reverted, it won't be fontified.
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
645 (defun font-lock-revert-setup ()
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
646 (setq font-lock-fontified nil))
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
647
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
648 ;; If the buffer has just been reverted, we might not even be in font-lock
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
649 ;; mode anymore, and if we are, the buffer may or may not have already been
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
650 ;; refontified. Refontify here if it looks like we need to.
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
651 (defun font-lock-revert-cleanup ()
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
652 (and font-lock-mode
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
653 (not font-lock-fontified)
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
654 (font-lock-mode 1)))
24e1180b507d (font-lock-mode): Use the new hooks to get proper behavior on a revert.
Karl Heuer <kwzh@gnu.org>
parents: 5625
diff changeset
655
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
656 ;;;###autoload
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 (defun font-lock-fontify-buffer ()
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
658 "Fontify the current buffer the way `font-lock-mode' would."
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 (interactive)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 (let ((was-on font-lock-mode)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
661 (verbose (or font-lock-verbose (interactive-p)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
662 (modified (buffer-modified-p)))
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
663 (set (make-local-variable 'font-lock-fontified) nil)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
664 (if verbose (message "Fontifying %s..." (buffer-name)))
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
665 ;; Turn it on to run hooks and get the right `font-lock-keywords' etc.
4897
c3db6fd69f1f (font-lock-fontify-buffer): Don't turn
Richard M. Stallman <rms@gnu.org>
parents: 4727
diff changeset
666 (or was-on (font-lock-set-defaults))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
667 (condition-case nil
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
668 (save-excursion
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
669 (font-lock-unfontify-region (point-min) (point-max))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
670 (if (not font-lock-no-comments)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
671 (font-lock-fontify-region (point-min) (point-max) verbose))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
672 (font-lock-hack-keywords (point-min) (point-max) verbose)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
673 (setq font-lock-fontified t))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
674 ;; We don't restore the old fontification, so it's best to unfontify.
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
675 (quit (font-lock-unfontify-region (point-min) (point-max))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
676 (if verbose (message "Fontifying %s... %s." (buffer-name)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
677 (if font-lock-fontified "done" "aborted")))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
678 (and (buffer-modified-p)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
679 (not modified)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
680 (set-buffer-modified-p nil))))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
683 ;;; Various information shared by several modes.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
684 ;;; 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
685
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 (defconst lisp-font-lock-keywords-1
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
687 (list
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 ;; highlight defining forms. This doesn't work too nicely for
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 ;; (defun (setf foo) ...) but it does work for (defvar foo) which
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 ;; is more important.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
691 (list (concat "^(\\(def\\(const\\|ine-key\\(\\|-after\\)\\|var\\)\\)\\>"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
692 "\\s *\\([^ \t\n\)]+\\)?")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
693 '(1 font-lock-keyword-face) '(4 font-lock-variable-name-face nil t))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
694 (list (concat "^(\\(def\\(a\\(dvice\\|lias\\)\\|macro\\|subst\\|un\\)\\)\\>"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
695 "\\s *\\([^ \t\n\)]+\\)?")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
696 '(1 font-lock-keyword-face) '(4 font-lock-function-name-face nil t))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 ;;
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 ;; this is highlights things like (def* (setf foo) (bar baz)), but may
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 ;; be slower (I haven't really thought about it)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 ; ("^(def[-a-z]+\\s +\\(\\s(\\S)*\\s)\\|\\S(\\S *\\)"
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 ; 1 font-lock-function-name-face)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 )
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 "For consideration as a value of `lisp-font-lock-keywords'.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 This does fairly subdued highlighting.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 (defconst lisp-font-lock-keywords-2
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 (append
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 lisp-font-lock-keywords-1
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
709 (list
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
710 ;;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
711 ;; Control structures.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
712 ;; ELisp:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
713 ; ("cond" "if" "while" "let\\*?" "prog[nv12*]?" "catch" "throw"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
714 ; "save-restriction" "save-excursion"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
715 ; "save-window-excursion" "save-match-data" "unwind-protect"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
716 ; "condition-case" "track-mouse")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
717 (cons
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
718 (concat "(\\("
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
719 "c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|if\\|let\\*?\\|prog[nv12*]?\\|"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
720 "save-\\(excursion\\|match-data\\|restriction\\|window-excursion\\)\\|"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
721 "t\\(hrow\\|rack-mouse\\)\\|unwind-protect\\|while"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
722 "\\)[ \t\n]") 1)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
723 ;; CLisp:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
724 ; ("when" "unless" "do" "flet" "labels" "return" "return-from")
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
725 '("(\\(do\\|flet\\|labels\\|return\\(\\|-from\\)\\|unless\\|when\\)[ \t\n]"
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
726 . 1)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
727 ;;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
728 ;; Fontify CLisp keywords.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
729 '("\\s :\\([-a-zA-Z0-9]+\\)\\>" . 1)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
730 ;;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
731 ;; Function names in emacs-lisp docstrings (in the syntax that
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
732 ;; substitute-command-keys understands.)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
733 '("\\\\\\\\\\[\\([^]\\\n]+\\)]" 1 font-lock-reference-face t)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
734 ;;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
735 ;; Words inside `' which tend to be function names
10116
a8cdb7630b1c Comment out Oct 18 change to font-lock-after-change-function
Simon Marshall <simon@gnu.org>
parents: 10099
diff changeset
736 (let ((word-char "[-+a-zA-Z0-9_:*]"))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
737 (list (concat "`\\(" word-char word-char "+\\)'")
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
738 1 'font-lock-reference-face t))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
739 ;;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
740 ;; & keywords as types
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
741 '("\\&\\(optional\\|rest\\)\\>" . font-lock-type-face)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
742 ))
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 "For consideration as a value of `lisp-font-lock-keywords'.
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 This does a lot more highlighting.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 ;; default to the gaudier variety?
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 ;(defvar lisp-font-lock-keywords lisp-font-lock-keywords-2
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 ; "Additional expressions to highlight in Lisp modes.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 (defvar lisp-font-lock-keywords lisp-font-lock-keywords-1
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 "Additional expressions to highlight in Lisp modes.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 (defconst c-font-lock-keywords-1 nil
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
754 "For consideration as a value of `c-font-lock-keywords'.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 This does fairly subdued highlighting.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 (defconst c-font-lock-keywords-2 nil
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
758 "For consideration as a value of `c-font-lock-keywords'.
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 This does a lot more highlighting.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760
6219
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
761 (defconst c++-font-lock-keywords-1 nil
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
762 "For consideration as a value of `c++-font-lock-keywords'.
6219
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
763 This does fairly subdued highlighting.")
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
764
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
765 (defconst c++-font-lock-keywords-2 nil
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
766 "For consideration as a value of `c++-font-lock-keywords'.
6219
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
767 This does a lot more highlighting.")
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
768
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
769 (let ((c-keywords
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
770 ; ("break" "continue" "do" "else" "for" "if" "return" "switch" "while")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
771 "break\\|continue\\|do\\|else\\|for\\|if\\|return\\|switch\\|while")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
772 (c-type-types
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
773 ; ("auto" "extern" "register" "static" "typedef" "struct" "union" "enum"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
774 ; "signed" "unsigned" "short" "long" "int" "char" "float" "double"
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
775 ; "void" "volatile" "const")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
776 (concat "auto\\|c\\(har\\|onst\\)\\|double\\|e\\(num\\|xtern\\)\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
777 "float\\|int\\|long\\|register\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
778 "s\\(hort\\|igned\\|t\\(atic\\|ruct\\)\\)\\|typedef\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
779 "un\\(ion\\|signed\\)\\|vo\\(id\\|latile\\)")) ; 6 ()s deep.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
780 (c++-keywords
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
781 ; ("break" "continue" "do" "else" "for" "if" "return" "switch" "while"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
782 ; "asm" "catch" "delete" "new" "operator" "sizeof" "this" "throw" "try"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
783 ; "protected" "private" "public")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
784 (concat "asm\\|break\\|c\\(atch\\|ontinue\\)\\|d\\(elete\\|o\\)\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
785 "else\\|for\\|if\\|new\\|operator\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
786 "p\\(r\\(ivate\\|otected\\)\\|ublic\\)\\|return\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
787 "s\\(izeof\\|witch\\)\\|t\\(h\\(is\\|row\\)\\|ry\\)\\|while"))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
788 (c++-type-types
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
789 ; ("auto" "extern" "register" "static" "typedef" "struct" "union" "enum"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
790 ; "signed" "unsigned" "short" "long" "int" "char" "float" "double"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
791 ; "void" "volatile" "const" "class" "inline" "friend" "bool"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
792 ; "virtual" "complex" "template")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
793 (concat "auto\\|bool\\|c\\(har\\|lass\\|o\\(mplex\\|nst\\)\\)\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
794 "double\\|e\\(num\\|xtern\\)\\|f\\(loat\\|riend\\)\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
795 "in\\(line\\|t\\)\\|long\\|register\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
796 "s\\(hort\\|igned\\|t\\(atic\\|ruct\\)\\)\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
797 "t\\(emplate\\|ypedef\\)\\|un\\(ion\\|signed\\)\\|"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
798 "v\\(irtual\\|o\\(id\\|latile\\)\\)")) ; 11 ()s deep.
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
799 (ctoken "[a-zA-Z0-9_:~]+"))
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
800 (setq c-font-lock-keywords-1
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
801 (list
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
802 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
803 ;; Fontify filenames in #include <...> preprocessor directives.
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
804 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
805 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
806 ;; Fontify function macro names.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
807 '("^#[ \t]*define[ \t]+\\(\\(\\sw+\\)(\\)" 2 font-lock-function-name-face)
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
808 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
809 ;; Fontify otherwise as symbol names, and the preprocessor directive names.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
810 '("^\\(#[ \t]*[a-z]+\\)\\>[ \t]*\\(\\sw+\\)?"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
811 (1 font-lock-reference-face) (2 font-lock-variable-name-face nil t))
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
812 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
813 ;; Fontify function name definitions (without type on line).
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
814 (list (concat "^\\(" ctoken "\\)[ \t]*(") 1 'font-lock-function-name-face)
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
815 ))
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
816
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
817 (setq c-font-lock-keywords-2
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
818 (append c-font-lock-keywords-1
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 (list
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
821 ;; Fontify all storage classes and type specifiers (before declarations).
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
822 (cons (concat "\\<\\(" c-type-types "\\)\\>") 'font-lock-type-face)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 ;;
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
824 ;; Fontify variable/structure name declarations and definitions, or
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
825 ;; function name declarations (plus definitions with type on same line).
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
826 (list (concat "\\<\\(" c-type-types "\\)[ \t*]+"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
827 "\\(" ctoken "[ \t*]+\\)*"
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
828 "\\(" ctoken "\\)[ \t]*\\((\\)?")
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
829 9
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
830 '(if (match-beginning 10)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
831 font-lock-function-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
832 font-lock-variable-name-face))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
833 ;;
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
834 ;; Fontify function/variable name declarations at the start of the line.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
835 ;; (Not everyone follows the GNU convention of function name at the start.)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
836 (list (concat "^" ctoken "[ \t*]+"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
837 "\\(" ctoken "[ \t*]+\\)*"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
838 "\\(" ctoken "\\)[ \t]*\\((\\)?")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
839 2
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
840 '(if (match-beginning 3)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
841 font-lock-function-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
842 font-lock-variable-name-face))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
843 ;;
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
844 ;; Fontify variable names declared with structures, or typedef names.
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
845 '("}[ \t*]*\\(\\sw+\\)[ \t]*[;,[]" 1 font-lock-variable-name-face)
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
846 ;;
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
847 ;; Fontify all builtin keywords (except case, default and goto; see below).
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
848 (concat "\\<\\(" c-keywords "\\)\\>")
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
849 ;;
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
850 ;; Fontify case/goto keywords and targets, and goto tags (incl "default:").
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
851 '("\\<\\(case\\|goto\\)\\>[ \t]*\\([^ \t\n:;]+\\)?"
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
852 (1 font-lock-keyword-face) (2 font-lock-reference-face nil t))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
853 '("^[ \t]*\\(\\sw+\\)[ \t]*:" 1 font-lock-reference-face)
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
854 )))
6219
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
855
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
856 (setq c++-font-lock-keywords-1 c-font-lock-keywords-1)
6219
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
857 (setq c++-font-lock-keywords-2
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
858 (append c++-font-lock-keywords-1
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
859 (list
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
860 ;; We don't just add to the C keywords for subtle differences and speed.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
861 ;; See the above comments for `c-font-lock-keywords-2'.
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
862 (cons (concat "\\<\\(" c++-type-types "\\)\\>") 'font-lock-type-face)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
863 (list (concat "\\<\\(" c++-type-types "\\)[ \t*&]+"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
864 "\\(" ctoken "[ \t*&]+\\)*"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
865 "\\(" ctoken "\\)[ \t]*\\((\\)?")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
866 14
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
867 '(if (match-beginning 15)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
868 font-lock-function-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
869 font-lock-variable-name-face))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
870 (list (concat "^" ctoken "[ \t*]+"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
871 "\\(" ctoken "[ \t*]+\\)*"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
872 "\\(" ctoken "\\)[ \t]*\\((\\)?")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
873 2
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
874 '(if (match-beginning 3)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
875 font-lock-function-name-face
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
876 font-lock-variable-name-face))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
877 '("}[ \t*]*\\(\\sw+\\)[ \t]*[;,[]" 1 font-lock-variable-name-face)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
878 (concat "\\<\\(" c++-keywords "\\)\\>")
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
879 '("\\<\\(case\\|goto\\)\\>[ \t]*\\([^ \t\n:;]+\\)?"
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
880 (1 font-lock-keyword-face) (2 font-lock-reference-face nil t))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
881 '("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-reference-face))))
6093
00cee8387866 Clean up c-font-lock-keywords; now slightly more consistent about highlighting
Karl Heuer <kwzh@gnu.org>
parents: 5878
diff changeset
882 )
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 ; default to the gaudier variety?
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 (defvar c-font-lock-keywords c-font-lock-keywords-1
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 "Additional expressions to highlight in C mode.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887
6219
d960f0463014 (c++-font-lock-keywords-1, c++-font-lock-keywords-2): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 6093
diff changeset
888 (defvar c++-font-lock-keywords c++-font-lock-keywords-1
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 "Additional expressions to highlight in C++ mode.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 (defvar tex-font-lock-keywords
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 (list
7847
43045a12cb34 (tex-font-lock-keywords): Make the pattern for
Richard M. Stallman <rms@gnu.org>
parents: 7751
diff changeset
893 '("\\(\\\\\\([a-zA-Z@]+\\|.\\)\\)" 1 font-lock-keyword-face t)
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 '("{\\\\em\\([^}]+\\)}" 1 font-lock-comment-face t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 '("{\\\\bf\\([^}]+\\)}" 1 font-lock-keyword-face t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 '("^[ \t\n]*\\\\def[\\\\@]\\(\\w+\\)" 1 font-lock-function-name-face t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 '("\\\\\\(begin\\|end\\){\\([a-zA-Z0-9\\*]+\\)}"
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 2 font-lock-function-name-face t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 '("[^\\\\]\\$\\([^$]*\\)\\$" 1 font-lock-string-face t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 ; '("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 )
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 "Additional expressions to highlight in TeX mode.")
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
904 ;; There is no html-mode.el shipped with Emacs; `font-lock-defaults' entry
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
905 ; would be: (html-font-lock-keywords nil t)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
906 ;(defconst html-font-lock-keywords
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
907 ; '(("<!--[^>]*>" 0 font-lock-comment-face t) ; Comment.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
908 ; ("</?\\sw+" . font-lock-type-face) ; Normal tag start.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
909 ; (">" . font-lock-type-face) ; Normal tag end.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
910 ; ("<\\(/?\\(a\\|form\\|img\\|input\\)\\)\\>" ; Special tag name.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
911 ; 1 font-lock-function-name-face t)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
912 ; ("\\<\\(\\sw+\\)[>=]" 1 font-lock-keyword-face)) ; Tag attribute.
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
913 ; "Additional expressions to highlight in HTML mode.")
5726
781af712e68c (font-lock-set-defaults): Handle shell mode.
Richard M. Stallman <rms@gnu.org>
parents: 5717
diff changeset
914
7491
621c162a80db (font-lock-no-comments): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
915 (defun font-lock-set-defaults ()
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
916 "Set fontification defaults appropriately for this 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
917 Sets `font-lock-keywords', `font-lock-no-comments', `font-lock-syntax-table'
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
918 and `font-lock-keywords-case-fold-search' using `font-lock-defaults-alist'."
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
919 (or font-lock-keywords ; if not already set.
9444
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
920 (let ((defaults (or font-lock-defaults
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
921 (cdr (assq major-mode font-lock-defaults-alist)))))
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
922 ;; Keywords?
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
923 (setq font-lock-keywords (eval (nth 0 defaults)))
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
924 ;; Syntactic?
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
925 (if (nth 1 defaults)
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
926 (set (make-local-variable 'font-lock-no-comments) t))
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
927 ;; Case fold?
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
928 (if (nth 2 defaults)
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
929 (set (make-local-variable 'font-lock-keywords-case-fold-search) t))
e21d4ebc3160 (font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil.
Richard M. Stallman <rms@gnu.org>
parents: 9390
diff changeset
930 ;; Syntax table?
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
931 (if (nth 3 defaults)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
932 (let ((slist (nth 3 defaults)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
933 (make-local-variable 'font-lock-syntax-table)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
934 (setq font-lock-syntax-table (copy-syntax-table (syntax-table)))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
935 (while slist
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
936 (modify-syntax-entry (car (car slist)) (cdr (car slist))
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
937 font-lock-syntax-table)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
938 (setq slist (cdr slist))))))))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
939
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
940 ;; Install ourselves:
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
941
9513
76ce1230257f Use purify-flag not noninteractive.
Simon Marshall <simon@gnu.org>
parents: 9487
diff changeset
942 (if purify-flag
9487
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
943 (add-hook 'after-init-hook 'font-lock-make-faces)
f80b2a33df03 * font-lock.el: To make font-lock.el dumpable: (font-lock-display-type,
Simon Marshall <simon@gnu.org>
parents: 9444
diff changeset
944 (font-lock-make-faces))
9389
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
945
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
946 (or (assq 'font-lock-mode minor-mode-alist)
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
947 (setq minor-mode-alist (cons '(font-lock-mode " Font") minor-mode-alist)))
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
948
fec6bd86e836 (compilation-mode-font-lock-keywords,
Richard M. Stallman <rms@gnu.org>
parents: 9350
diff changeset
949 ;; Provide ourselves:
7491
621c162a80db (font-lock-no-comments): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
950
4053
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 (provide 'font-lock)
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952
c142db721726 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 ;;; font-lock.el ends here