;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Tue Aug 4 23:35:48 1998 ;;; from file /gd/gnu/emacs/lisp/font-lock.el ;;; in Emacs version 20.2.98.3 ;;; with bytecomp version 2.48 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`font-lock.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305\306\307\310 \311&\210\304\312\306\313\n\314 \305&\210\304\315\306\316 \305%\210\304\317\306\320\321 \317 \305& \210\304\322\306\323\324 \322 \305& \207" [:link :group :prefix :load custom-declare-group font-lock nil "Font Lock mode text highlighting package." (custom-manual "(emacs)Font Lock") faces font-lock-highlighting-faces "Faces for highlighting text." "font-lock-" font-lock-extra-types "Extra mode-specific type names for highlighting declarations." fast-lock "Font Lock support mode to cache fontification." (custom-manual "(emacs)Support Modes") lazy-lock "Font Lock support mode to fontify lazily." (custom-manual "(emacs)Support Modes")] 10) #@521 *Maximum size of a buffer for buffer fontification. Only buffers less than this can be fontified when Font Lock mode is turned on. If nil, means size is irrelevant. If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . 256000) (c++-mode . 256000) (rmail-mode . 1048576)) means that the maximum size is 250K for buffers in C or C++ modes, one megabyte for buffers in Rmail mode, and size is irrelevant otherwise. (custom-declare-variable 'font-lock-maximum-size '(* 250 1024) '(#$ . -1289) :type '(choice (const :tag "none" nil) (integer :tag "size") (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Size" (const :tag "none" nil) (integer :tag "size"))))) :group 'font-lock) #@571 *Maximum decoration level for fontification. If nil, use the default decoration (typically the minimum available). If t, use the maximum decoration available. If a number, use that level of decoration (or if not available the maximum). If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . t) (c++-mode . 2) (t . 1)) means use the maximum decoration available for buffers in C mode, level 2 decoration for buffers in C++ mode, and level 1 decoration otherwise. (custom-declare-variable 'font-lock-maximum-decoration 't '(#$ . -2194) :type '(choice (const :tag "default" nil) (const :tag "maximum" t) (integer :tag "level" 1) (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t . t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Decoration" (const :tag "default" nil) (const :tag "maximum" t) (integer :tag "level" 1))))) :group 'font-lock) #@145 *If non-nil, means show status messages for buffer fontification. If a number, only buffers greater than this size have fontification messages. (custom-declare-variable 'font-lock-verbose '(* 0 1024) '(#$ . -3216) :type '(choice (const :tag "never" nil) (integer :tag "size") (other :tag "always" t)) :group 'font-lock) #@4654 A list of the keywords to highlight. Each element should have one of these forms: MATCHER (MATCHER . MATCH) (MATCHER . FACENAME) (MATCHER . HIGHLIGHT) (MATCHER HIGHLIGHT ...) (eval . FORM) where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED. FORM is an expression, whose value should be a keyword element, evaluated when the keyword is (first) used in a buffer. This feature can be used to provide a keyword that can only be generated when Font Lock mode is actually turned on. For highlighting single items, for example each instance of the word "foo", typically only MATCH-HIGHLIGHT is required. However, if an item or (typically) items are to be highlighted following the instance of another item (the anchor), for example each instance of the word "bar" following the word "anchor" then MATCH-ANCHORED may be required. MATCH-HIGHLIGHT should be of the form: (MATCH FACENAME OVERRIDE LAXMATCH) where MATCHER can be either the regexp to search for, or the function name to call to make the search (called with one argument, the limit of the search) and return non-nil if it succeeds (and set `match-data' appropriately). MATCHER regexps can be generated via the function `regexp-opt'. MATCH is the subexpression of MATCHER to be highlighted. MATCH can be calculated via the function `regexp-opt-depth'. FACENAME is an expression whose value is the face name to use. Face default attributes can be modified via \[customize]. OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification can be overwritten. If `keep', only parts not already fontified are highlighted. If `prepend' or `append', existing fontification is merged with the new, in which the new or existing fontification, respectively, takes precedence. If LAXMATCH is non-nil, no error is signaled if there is no MATCH in MATCHER. For example, an element of the form highlights (if not already highlighted): "\\\=" discrete occurrences of "foo" in the value of the variable `font-lock-keyword-face'. ("fu\\(bar\\)" . 1) substring "bar" within all occurrences of "fubar" in the value of `font-lock-keyword-face'. ("fubar" . fubar-face) Occurrences of "fubar" in the value of `fubar-face'. ("foo\\|bar" 0 foo-bar-face t) occurrences of either "foo" or "bar" in the value of `foo-bar-face', even if already highlighted. (fubar-match 1 fubar-face) the first subexpression within all occurrences of whatever the function `fubar-match' finds and matches in the value of `fubar-face'. MATCH-ANCHORED should be of the form: (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...) where MATCHER is a regexp to search for or the function name to call to make the search, as for MATCH-HIGHLIGHT above, but with one exception; see below. PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be used to initialise before, and cleanup after, MATCHER is used. Typically, PRE-MATCH-FORM is used to move to some position relative to the original MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER. For example, an element of the form highlights (if not already highlighted): ("\\\=" (0 anchor-face) ("\\\=" nil nil (0 item-face))) discrete occurrences of "anchor" in the value of `anchor-face', and subsequent discrete occurrences of "item" (on the same line) in the value of `item-face'. (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore "item" is initially searched for starting from the end of the match of "anchor", and searching for subsequent instance of "anchor" resumes from where searching for "item" concluded.) The above-mentioned exception is as follows. The limit of the MATCHER search defaults to the end of the line after PRE-MATCH-FORM is evaluated. However, if PRE-MATCH-FORM returns a position greater than the position after PRE-MATCH-FORM is evaluated, that position is used as the limit of the search. It is generally a bad idea to return a position greater than the end of the line, i.e., cause the MATCHER search to span lines. These regular expressions should not match text which spans lines. While \[font-lock-fontify-buffer] handles multi-line patterns correctly, updating when you edit the buffer does not, since it considers text one line at a time. This variable is set by major modes via the variable `font-lock-defaults'. Be careful when composing regexps for this list; a poorly written pattern can dramatically slow things down! (defvar font-lock-keywords nil (#$ . 3544)) #@2329 Defaults for Font Lock mode specified by the major mode. Defaults should be of the form: (KEYWORDS KEYWORDS-ONLY CASE-FOLD SYNTAX-ALIST SYNTAX-BEGIN ...) KEYWORDS may be a symbol (a variable or function whose value is the keywords to use for fontification) or a list of symbols. If KEYWORDS-ONLY is non-nil, syntactic fontification (strings and comments) is not performed. If CASE-FOLD is non-nil, the case of the keywords is ignored when fontifying. If SYNTAX-ALIST is non-nil, it should be a list of cons pairs of the form (CHAR-OR-STRING . STRING) used to set the local Font Lock syntax table, for keyword and syntactic fontification (see `modify-syntax-entry'). If SYNTAX-BEGIN is non-nil, it should be a function with no args used to move backwards outside any enclosing syntactic block, for syntactic fontification. Typical values are `beginning-of-line' (i.e., the start of the line is known to be outside a syntactic block), or `beginning-of-defun' for programming modes or `backward-paragraph' for textual modes (i.e., the mode-dependent function is known to move outside a syntactic block). If nil, the beginning of the buffer is used as a position outside of a syntactic block, in the worst case. These item elements are used by Font Lock mode to set the variables `font-lock-keywords', `font-lock-keywords-only', `font-lock-keywords-case-fold-search', `font-lock-syntax-table' and `font-lock-beginning-of-syntax-function', respectively. Further item elements are alists of the form (VARIABLE . VALUE) and are in no particular order. Each VARIABLE is made buffer-local before set to VALUE. Currently, appropriate variables include `font-lock-mark-block-function'. If this is non-nil, it should be a function with no args used to mark any enclosing block of text, for fontification via \[font-lock-fontify-block]. Typical values are `mark-defun' for programming modes or `mark-paragraph' for textual modes (i.e., the mode-dependent function is known to put point and mark around a text block relevant to that mode). Other variables include those for buffer-specialised fontification functions, `font-lock-fontify-buffer-function', `font-lock-unfontify-buffer-function', `font-lock-fontify-region-function', `font-lock-unfontify-region-function', `font-lock-inhibit-thing-lock' and `font-lock-maximum-size'. (defvar font-lock-defaults nil (#$ . 8249)) #@280 Alist of fall-back Font Lock defaults for major modes. Each item should be a list of the form: (MAJOR-MODE . FONT-LOCK-DEFAULTS) where MAJOR-MODE is a symbol and FONT-LOCK-DEFAULTS is a list of default settings. See the variable `font-lock-defaults', which takes precedence. (defvar font-lock-defaults-alist (byte-code "\306\307\310\311\312\313\314 B\315\fB\316 B\317\nB\320 B\321B\322 B\323 B\324B\325B\326B\257 .\207" [tex-mode-defaults lisp-mode-defaults java-mode-defaults objc-mode-defaults c++-mode-defaults c-mode-defaults ((c-font-lock-keywords c-font-lock-keywords-1 c-font-lock-keywords-2 c-font-lock-keywords-3) nil nil ((95 . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun)) ((c++-font-lock-keywords c++-font-lock-keywords-1 c++-font-lock-keywords-2 c++-font-lock-keywords-3) nil nil ((95 . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun)) ((objc-font-lock-keywords objc-font-lock-keywords-1 objc-font-lock-keywords-2 objc-font-lock-keywords-3) nil nil ((95 . "w") (36 . "w")) nil (font-lock-mark-block-function . mark-defun)) ((java-font-lock-keywords java-font-lock-keywords-1 java-font-lock-keywords-2 java-font-lock-keywords-3) nil nil ((95 . "w") (36 . "w") (46 . "w")) nil (font-lock-mark-block-function . mark-defun)) ((lisp-font-lock-keywords lisp-font-lock-keywords-1 lisp-font-lock-keywords-2) nil nil (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun)) ((tex-font-lock-keywords tex-font-lock-keywords-1 tex-font-lock-keywords-2) nil nil ((36 . "\"")) nil (font-lock-mark-block-function . mark-paragraph)) c-mode c++-mode objc-mode java-mode emacs-lisp-mode latex-mode lisp-mode lisp-interaction-mode plain-tex-mode slitex-mode tex-mode] 12) (#$ . 10628)) #@108 *Alist of `font-lock-keywords' local to a `major-mode'. This is normally set via `font-lock-add-keywords'. (defvar font-lock-keywords-alist nil (#$ . -12415)) #@113 *Non-nil means Font Lock should not fontify comments or strings. This is normally set via `font-lock-defaults'. (defvar font-lock-keywords-only nil (#$ . -12581)) #@122 *Non-nil means the patterns in `font-lock-keywords' are case-insensitive. This is normally set via `font-lock-defaults'. (defvar font-lock-keywords-case-fold-search nil (#$ . -12751)) #@1475 A list of the syntactic keywords to highlight. Can be the list or the name of a function or variable whose value is the list. See `font-lock-keywords' for a description of the form of this list; the differences are listed below. MATCH-HIGHLIGHT should be of the form: (MATCH SYNTAX OVERRIDE LAXMATCH) where SYNTAX can be of the form (SYNTAX-CODE . MATCHING-CHAR), the name of a syntax table, or an expression whose value is such a form or a syntax table. OVERRIDE cannot be `prepend' or `append'. For example, an element of the form highlights syntactically: ("\\$\\(#\\)" 1 (1 . nil)) a hash character when following a dollar character, with a SYNTAX-CODE of 1 (meaning punctuation syntax). Assuming that the buffer syntax table does specify hash characters to have comment start syntax, the element will only highlight hash characters that do not follow dollar characters as comments syntactically. ("\\('\\).\\('\\)" (1 (7 . ?')) (2 (7 . ?'))) both single quotes which surround a single character, with a SYNTAX-CODE of 7 (meaning string quote syntax) and a MATCHING-CHAR of a single quote (meaning a single quote matches a single quote). Assuming that the buffer syntax table does not specify single quotes to have quote syntax, the element will only highlight single quotes of the form 'c' as strings syntactically. Other forms, such as foo'bar or 'fubar', will not be highlighted as strings. This is normally set via `font-lock-defaults'. (defvar font-lock-syntactic-keywords nil (#$ . 12943)) #@155 Non-nil means use this syntax table for fontifying. If this is nil, the major mode's syntax table is used. This is normally set via `font-lock-defaults'. (defvar font-lock-syntax-table nil (#$ . 14479)) #@295 *Non-nil means use this function to move back outside of a syntactic block. When called with no args it should leave point at the beginning of any enclosing syntactic block. If this is nil, the beginning of the buffer is used (in the worst case). This is normally set via `font-lock-defaults'. (defvar font-lock-beginning-of-syntax-function nil (#$ . -14689)) #@222 *Non-nil means use this function to mark a block of text. When called with no args it should leave point at the beginning of any enclosing textual block and mark at the end. This is normally set via `font-lock-defaults'. (defvar font-lock-mark-block-function nil (#$ . -15056)) #@91 Function to use for fontifying the buffer. This is normally set via `font-lock-defaults'. (defvar font-lock-fontify-buffer-function 'font-lock-default-fontify-buffer (#$ . 15340)) #@139 Function to use for unfontifying the buffer. This is used when turning off Font Lock mode. This is normally set via `font-lock-defaults'. (defvar font-lock-unfontify-buffer-function 'font-lock-default-unfontify-buffer (#$ . 15527)) #@242 Function to use for fontifying a region. It should take two args, the beginning and end of the region, and an optional third arg VERBOSE. If non-nil, the function should print status messages. This is normally set via `font-lock-defaults'. (defvar font-lock-fontify-region-function 'font-lock-default-fontify-region (#$ . 15766)) #@153 Function to use for unfontifying a region. It should take two args, the beginning and end of the region. This is normally set via `font-lock-defaults'. (defvar font-lock-unfontify-region-function 'font-lock-default-unfontify-region (#$ . 16104)) #@185 List of Font Lock mode related modes that should not be turned on. Currently, valid mode names as `fast-lock-mode' and `lazy-lock-mode'. This is normally set via `font-lock-defaults'. (defvar font-lock-inhibit-thing-lock nil (#$ . 16357)) (byte-code "\303\300!\204\304\300 B\303\302!\204\304\302 B\304\207" [font-lock-mode current-load-list font-lock-fontified boundp nil] 2) #@58 Function or functions to run on entry to Font Lock mode. (defvar font-lock-mode-hook nil (#$ . 16747)) #@2295 Toggle Font Lock mode. With arg, turn Font Lock mode on if and only if arg is positive. When Font Lock mode is enabled, text is fontified as you type it: - Comments are displayed in `font-lock-comment-face'; - Strings are displayed in `font-lock-string-face'; - Certain other expressions are displayed in other faces according to the value of the variable `font-lock-keywords'. You can enable Font Lock mode in any major mode automatically by turning on in the major mode's hook. For example, put in your ~/.emacs: (add-hook 'c-mode-hook 'turn-on-font-lock) Alternatively, you can use Global Font Lock mode to automagically turn on Font Lock mode in buffers whose major mode supports it and whose major mode is one of `font-lock-global-modes'. For example, put in your ~/.emacs: (global-font-lock-mode t) There are a number of support modes that may be used to speed up Font Lock mode in various ways, specified via the variable `font-lock-support-mode'. Where major modes support different levels of fontification, you can use the variable `font-lock-maximum-decoration' to specify which level you generally prefer. When you turn Font Lock mode on/off the buffer is fontified/defontified, though fontification occurs only if the buffer is less than `font-lock-maximum-size'. For example, to specify that Font Lock mode use use Lazy Lock mode as a support mode and use maximum levels of fontification, put in your ~/.emacs: (setq font-lock-support-mode 'lazy-lock-mode) (setq font-lock-maximum-decoration t) To add your own highlighting for some major mode, and modify the highlighting selected automatically via the variable `font-lock-maximum-decoration', you can use `font-lock-add-keywords'. To fontify a buffer, without turning on Font Lock mode and regardless of buffer size, you can use \[font-lock-fontify-buffer]. To fontify a block (the function or paragraph containing point, or a number of lines around point), perhaps because modification on the current line caused syntactic change on other lines, you can use \[font-lock-fontify-block]. See the variable `font-lock-defaults-alist' for the Font Lock mode default settings. You can set your own default settings for some mode, by setting a buffer local value for `font-lock-defaults', via its mode hook. (defalias 'font-lock-mode #[(&optional arg) "?\205\306 \307H\310=?\205 \203\311 !\307V\202\n?\312\302! L\210 \203c\313\314!\210\315\314\316\317\320$\210\321 \210\322 \210\323\324!\210\325\f!\204b \203Q \326 V\203W\327 \210\202b \203b\330\331\306 \"\210) \204v\332\314\316\320#\210\333 \210\334 \210\335 \210\336 )\207" [noninteractive arg font-lock-mode on-p font-lock-maximum-size max-size buffer-name 0 32 prefix-numeric-value make-local-variable make-local-hook after-change-functions add-hook font-lock-after-change-function nil t font-lock-set-defaults font-lock-turn-on-thing-lock run-hooks font-lock-mode-hook font-lock-value-in-major-mode buffer-size font-lock-fontify-buffer message "Fontifying %s...buffer too big" remove-hook font-lock-unfontify-buffer font-lock-turn-off-thing-lock font-lock-unset-defaults force-mode-line-update font-lock-fontified font-lock-verbose] 5 (#$ . 16858) "P"]) #@84 Turn on Font Lock mode conditionally. Turn on only if the terminal can display it. (defalias 'turn-on-font-lock #[nil "?\205 \205 \300 \207" [font-lock-mode window-system] 1 (#$ . 20081)]) #@1063 Add highlighting KEYWORDS for MAJOR-MODE. MAJOR-MODE should be a symbol, the major mode command name, such as `c-mode' or nil. If nil, highlighting keywords are added for the current buffer. KEYWORDS should be a list; see the variable `font-lock-keywords'. By default they are added at the beginning of the current highlighting list. If optional argument APPEND is `set', they are used to replace the current highlighting list. If APPEND is any other non-nil value, they are added at the end of the current highlighting list. For example: (font-lock-add-keywords 'c-mode '(("\\\=<\\(FIXME\\):" 1 font-lock-warning-face prepend) ("\\\=<\\(and\\|or\\|not\\)\\\=>" . font-lock-keyword-face))) adds two fontification patterns for C mode, to fontify `FIXME:' words, even in comments, and to fontify `and', `or' and `not' words as keywords. Note that some modes have specialised support for additional patterns, e.g., see the variables `c-font-lock-extra-types', `c++-font-lock-extra-types', `objc-font-lock-extra-types' and `java-font-lock-extra-types'. (defalias 'font-lock-add-keywords #[(major-mode keywords &optional append) "\203& \nB\306 \236\211\203 \302 A\fC\"\241\202$\fD B\211*\207 \205]\n\307=\2036 \211\n\207\n\242\310=\203D\nA\202F\n \n\203T\302 \"\202Y\302  \"\211\n)\207" [major-mode keywords append cell spec font-lock-keywords-alist nil set t font-lock-mode font-lock-keywords old] 4 (#$ . 20282)]) (byte-code "\302\300!\204\303\300 B\303\207" [font-lock-buffers current-load-list boundp nil] 2) #@405 Toggle Global Font Lock mode. With prefix ARG, turn Global Font Lock mode on if and only if ARG is positive. Displays a message saying whether the mode is on or off if MESSAGE is non-nil. Returns the new status of Global Font Lock mode (non-nil means on). When Global Font Lock mode is enabled, Font Lock mode is automagically turned on in a buffer if its major mode is one of `font-lock-global-modes'. (defalias 'global-font-lock-mode #[(&optional arg message) "\203\f\305!\306V\202 ?\211\203#\307\310\311\"\210\307\312\311\"\210\313 \202.\314\310\311\"\210\315\316\313 \"\210\f\203?\304\317\n\203<\320\202=\321\"\210\n\211)\207" [arg global-font-lock-mode on-p font-lock-buffers message prefix-numeric-value 0 add-hook find-file-hooks turn-on-font-lock-if-enabled post-command-hook buffer-list remove-hook mapcar #[(buffer) "rq\210 \205\n\301 )\207" [buffer font-lock-mode] 1] "Global Font Lock mode %s." "enabled" "disabled"] 4 (#$ . 21841) "P\np"]) #@248 Toggle Global Font Lock mode. When Global Font Lock mode is enabled, Font Lock mode is automagically turned on in a buffer if its major mode is one of `font-lock-global-modes'. You must modify via \[customize] for this variable to have an effect. (custom-declare-variable 'global-font-lock-mode 'nil '(#$ . 22817) :set (lambda (symbol value) (global-font-lock-mode (or value 0))) :type 'boolean :group 'font-lock :require 'font-lock) #@570 *Modes for which Font Lock mode is automagically turned on. Global Font Lock mode is controlled by the `global-font-lock-mode' command. If nil, means no modes have Font Lock mode automatically turned on. If t, all modes that support Font Lock mode have it automatically turned on. If a list, it should be a list of `major-mode' symbol names for which Font Lock mode should be automatically turned on. The sense of the list is negated if it begins with `not'. For example: (c-mode c++-mode) means that Font Lock mode is turned on for buffers in C and C++ modes only. (custom-declare-variable 'font-lock-global-modes 't '(#$ . -23258) :type '(choice (const :tag "none" nil) (const :tag "all" t) (set :menu-tag "mode specific" :tag "modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "mode")))) :group 'font-lock) (defalias 'font-lock-change-major-mode #[nil "\203\300 \210 \205\302\303\304\"\210\305\306p\"\207" [font-lock-mode global-font-lock-mode add-hook post-command-hook turn-on-font-lock-if-enabled add-to-list font-lock-buffers] 3]) (defalias 'turn-on-font-lock-if-enabled #[nil "\306\307\310\"\210\205I\311@!\203A\212@q\210 \204\n \236\203@\f\312=\204:\f\242\313=\2034\n\fA>?\2027\n\f>\203@\314\315 \210))A\211\204 \314\207" [font-lock-buffers font-lock-defaults major-mode font-lock-defaults-alist font-lock-global-modes inhibit-quit remove-hook post-command-hook turn-on-font-lock-if-enabled buffer-live-p t not nil turn-on-font-lock] 4]) (add-hook 'change-major-mode-hook 'font-lock-change-major-mode) #@812 *Support mode for Font Lock mode. Support modes speed up Font Lock mode by being choosy about when fontification occurs. Known support modes are Fast Lock mode (symbol `fast-lock-mode') and Lazy Lock mode (symbol `lazy-lock-mode'). See those modes for more info. If nil, means support for Font Lock mode is never performed. If a symbol, use that support mode. If a list, each element should be of the form (MAJOR-MODE . SUPPORT-MODE), where MAJOR-MODE is a symbol or t (meaning the default). For example: ((c-mode . fast-lock-mode) (c++-mode . fast-lock-mode) (t . lazy-lock-mode)) means that Fast Lock mode is used to support Font Lock mode for buffers in C or C++ modes, and Lazy Lock mode is used to support Font Lock mode otherwise. The value of this variable is used when Font Lock mode is turned on. (custom-declare-variable 'font-lock-support-mode 'nil '(#$ . -24827) :type '(choice (const :tag "none" nil) (const :tag "fast lock" fast-lock-mode) (const :tag "lazy lock" lazy-lock-mode) (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t . lazy-lock-mode)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Support" (const :tag "none" nil) (const :tag "fast lock" fast-lock-mode) (const :tag "lazy lock" lazy-lock-mode))))) :group 'font-lock) (byte-code "\303\300!\204\304\300 B\303\302!\204\304\302 B\304\207" [fast-lock-mode current-load-list lazy-lock-mode boundp nil] 2) (defalias 'font-lock-turn-on-thing-lock #[nil "\302!\211\303=\203\303\304!\202 \305=\205\305\304!)\207" [font-lock-support-mode thing-mode font-lock-value-in-major-mode fast-lock-mode t lazy-lock-mode] 3]) (defalias 'font-lock-turn-off-thing-lock #[nil "\203\300\302!\207 \205\301\302!\207" [fast-lock-mode lazy-lock-mode nil] 2]) (defalias 'font-lock-after-fontify-buffer #[nil "\203\302 \207 \205 \303 \207" [fast-lock-mode lazy-lock-mode fast-lock-after-fontify-buffer lazy-lock-after-fontify-buffer] 1]) (defalias 'font-lock-after-unfontify-buffer #[nil "\203\302 \207 \205 \303 \207" [fast-lock-mode lazy-lock-mode fast-lock-after-unfontify-buffer lazy-lock-after-unfontify-buffer] 1]) #@60 Fontify the current buffer the way `font-lock-mode' would. (defalias 'font-lock-fontify-buffer #[nil "\206t )\207" [font-lock-verbose font-lock-fontify-buffer-function] 1 (#$ . 27002) nil]) (defalias 'font-lock-unfontify-buffer #[nil " \207" [font-lock-unfontify-buffer-function] 1]) (defalias 'font-lock-fontify-region #[(beg end &optional loudly) " \n #\207" [font-lock-fontify-region-function beg end loudly] 4]) (defalias 'font-lock-unfontify-region #[(beg end) " \n\"\207" [font-lock-unfontify-region-function beg end] 3]) (defalias 'font-lock-default-fontify-buffer #[nil "\247\203\f\304 V\202 \211\203\305\306\307 \"\210\n\204\310 \210\214~\210\311\312\313\217\210)\n\204/\314 \210 \205A\305\315\307 \203?\316\202@\317#)\207" [font-lock-verbose verbose font-lock-mode font-lock-fontified buffer-size message "Fontifying %s..." buffer-name font-lock-set-defaults nil (byte-code "\212\303 \304\216\305ed #\210\306 \210\307+\303\207" [save-match-data-internal verbose font-lock-fontified match-data ((set-match-data save-match-data-internal)) font-lock-fontify-region font-lock-after-fontify-buffer t] 4) ((quit (font-lock-unfontify-buffer))) font-lock-unset-defaults "Fontifying %s...%s" "done" "quit"] 5]) (defalias 'font-lock-default-unfontify-buffer #[nil "\214~\210\301ed\"\210\302 \210\303\211)\207" [font-lock-fontified font-lock-unfontify-region font-lock-after-unfontify-buffer nil] 3]) (defalias 'font-lock-default-fontify-region #[(beg end loudly) "\306 \307 \310\310\310\311\311\311\311\311\312\216\214~\210\203-\313!\210\314\"\210\203?\315\"\210\204M\316#\210\317#\210* ?\205d\307 \205d\320\311!. \207" [font-lock-syntactic-keywords parse-sexp-lookup-properties old-syntax-table modified buffer-undo-list inhibit-read-only syntax-table buffer-modified-p t nil ((set-syntax-table old-syntax-table)) set-syntax-table font-lock-unfontify-region font-lock-fontify-syntactic-keywords-region font-lock-fontify-syntactically-region font-lock-fontify-keywords-region set-buffer-modified-p inhibit-point-motion-hooks before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename font-lock-syntax-table beg end font-lock-keywords-only loudly] 4]) (defalias 'font-lock-default-unfontify-region #[(beg end) "\306 \307\307\307\310\310\310\f\310 \310\311\312#\210?\205+\306 \205+\313\310!. \207" [modified buffer-undo-list inhibit-read-only inhibit-point-motion-hooks before-change-functions after-change-functions buffer-modified-p t nil remove-text-properties (face nil syntax-table nil) set-buffer-modified-p deactivate-mark buffer-file-name buffer-file-truename beg end] 4]) (defalias 'font-lock-after-change-function #[(beg end old-len) "\304\212\305 \306\216\307\nb\210\310y\210` b\210\311y\210`\",\207" [inhibit-point-motion-hooks save-match-data-internal beg end t match-data ((set-match-data save-match-data-internal)) font-lock-fontify-region 0 1] 3]) #@387 Fontify some lines the way `font-lock-fontify-buffer' would. The lines could be a function or paragraph, or a specified number of lines. If ARG is given, fontify that many lines before and after point, or 16 lines if no ARG is given and `font-lock-mark-block-function' is nil. If `font-lock-mark-block-function' non-nil and no ARG is given, it is used to delimit the region to fontify. (defalias 'font-lock-fontify-block #[(&optional arg) "\305\306\211 \204 \307 \210\212\310 \311\216\312\313\314\217.\207" [deactivate-mark font-lock-beginning-of-syntax-function inhibit-point-motion-hooks font-lock-mode save-match-data-internal t nil font-lock-set-defaults match-data ((set-match-data save-match-data-internal)) error-data (byte-code "\204 \204%\203\303!\202\304\305\212\n[y\210`)\212\ny\210`)\")\207 \210\305`\306 \"\207" [arg font-lock-mark-block-function lines prefix-numeric-value 16 font-lock-fontify-region mark] 3) (((error quit) (message "Fontifying block...%s" error-data)))] 3 (#$ . 30008) "P"]) (define-key facemenu-keymap "\347" 'font-lock-fontify-block) #@273 Prepend to one property of the text from START to END. Arguments PROP and VALUE specify the property and value to prepend to the value already in place. The resulting property values are always lists. Optional argument OBJECT is the string or buffer containing the text. (defalias 'font-lock-prepend-text-property #[(start end prop value &optional object) "<\203 \202 C\306\211\f U?\205E\307\f \f $\310\f \f#\311\f\n \312 <\2038 \202: C\"\f%\210\n\211\202+\207" [value prev next val start end nil next-single-property-change get-text-property put-text-property append prop object] 8 (#$ . 31102)]) #@271 Append to one property of the text from START to END. Arguments PROP and VALUE specify the property and value to append to the value already in place. The resulting property values are always lists. Optional argument OBJECT is the string or buffer containing the text. (defalias 'font-lock-append-text-property #[(start end prop value &optional object) "<\203 \202 C\306\211\f U?\205E\307\f \f $\310\f \f#\311\f\n \312 <\2037 \2029 C \"\f%\210\n\211\202+\207" [value prev next val start end nil next-single-property-change get-text-property put-text-property append prop object] 8 (#$ . 31731)]) #@276 Fill in one property of the text from START to END. Arguments PROP and VALUE specify the property and value to put where none are already in place. Therefore existing property values are not overwritten. Optional argument OBJECT is the string or buffer containing the text. (defalias 'font-lock-fillin-text-property #[(start end prop value &optional object) "\306 \n\307 %\307\211\205*\310\n $\311\f\n %\210\306\f \n\307 %\211\204\307*\207" [start end prop object next value text-property-any nil next-single-property-change put-text-property] 7 (#$ . 32357)]) #@121 Apply HIGHLIGHT following a match. HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-syntactic-keywords'. (defalias 'font-lock-apply-syntactic-highlight #[(highlight) "@\211\224 \225A@\3068\f@\247\204\307\f!\n\204-\3108\206^\311\312 #\202^ \204C\313\n \314\315$\206^\316\n \314\f$\202^ \317=\203R\316\n \314\f$\202^ \320=\205^\321\n \314\f$-\207" [highlight match start end value override 2 eval 3 error "No match %d in highlight %S" text-property-not-all syntax-table nil put-text-property t keep font-lock-fillin-text-property] 6 (#$ . 32938)]) #@175 Fontify according to KEYWORDS until LIMIT. KEYWORDS should be of the form MATCH-ANCHORED, see `font-lock-keywords', LIMIT can be modified by the value of its PRE-MATCH-FORM. (defalias 'font-lock-fontify-syntactic-anchored-keywords #[(keywords limit) "@\306\233\307\310A@! \247\203 `V\203 \202&\212\307\210`)\311 \312\216\f;\2039\313\f \314#\202<\f !\203Q \211\203,\315\n@!\210\nA\211\202B*\310\3168!,\207" [keywords pre-match-value highlights lowdarks matcher limit 3 nil eval match-data ((set-match-data save-match-data-internal)) re-search-forward t font-lock-apply-syntactic-highlight 2 save-match-data-internal] 6 (#$ . 33528)]) #@120 Fontify according to `font-lock-syntactic-keywords' between START and END. START should be at the beginning of a line. (defalias 'font-lock-fontify-syntactic-keywords-region #[(start end) "9\203 \306!@\307=\204\310! A\311\211\211 \205o @\211@b\210 ;\203<\312 \307#\202@ !\203g\fA\211\203.\n@@\247\203Y\313\n@!\210\202`\314\n@\"\210\nA\211\202G A\211\204$\311-\207" [font-lock-syntactic-keywords font-lock-keywords-case-fold-search highlights matcher keyword keywords font-lock-eval-keywords t font-lock-compile-keywords nil re-search-forward font-lock-apply-syntactic-highlight font-lock-fontify-syntactic-anchored-keywords case-fold-search start end] 6 (#$ . 34193)]) (byte-code "\303\300!\204\304\300 B\303\302!\204\304\302 B\304\207" [font-lock-cache-state current-load-list font-lock-cache-position boundp nil] 2) #@111 Put proper face on each string and comment between START and END. START should be at the beginning of a line. (defalias 'font-lock-fontify-syntactically-region #[(start end &optional loudly) "\306!\307\211\211 \203\310\311\312 \"\210b\210\f=\203%\202^\204K\f\2035\fW\203>\313e\"\202U\313\f\307\211%\202U \210\313`\" \307\223\210\314 8\204j\315 8\203\214\314 8`\313`\307\211 \316&\317 `\320\n\203\210\202\212$\210`W\205\321\313`\307\211 \316&\314 8\204\252\315 8\205\321\314 8\321 8\313`\307\211 \316&\317 `\320\n\203\312\202\314$\210\202\214,\207" [font-lock-cache-position beg string state cache loudly marker-position nil message "Fontifying %s... (syntactically...)" buffer-name parse-partial-sexp 3 4 syntax-table put-text-property face 8 start font-lock-cache-state font-lock-beginning-of-syntax-function end font-lock-string-face font-lock-comment-face] 7 (#$ . 35064)]) #@111 Apply HIGHLIGHT following a match. HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-keywords'. (defalias 'font-lock-apply-highlight #[(highlight) "@\211\224 \225\3058\n\204\3068\206\202\307\310 #\202\202\f\2049\311\n \312\313$\206\202\314\n \312\315A@!$\202\202\f\316=\203L\314\n \312\315A@!$\202\202\f\317=\203_\320\n \312\315A@!$\202\202\f\321=\203r\322\n \312\315A@!$\202\202\f\323=\205\202\324\n \312\315A@!$,\207" [highlight match start end override 2 3 error "No match %d in highlight %S" text-property-not-all face nil put-text-property eval t prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property] 7 (#$ . 36027)]) (put 'font-lock-apply-highlight 'byte-optimizer 'byte-compile-inline-expand) #@175 Fontify according to KEYWORDS until LIMIT. KEYWORDS should be of the form MATCH-ANCHORED, see `font-lock-keywords', LIMIT can be modified by the value of its PRE-MATCH-FORM. (defalias 'font-lock-fontify-anchored-keywords #[(keywords limit) "@\306\233\307\310A@! \247\203 `V\203 \202&\212\307\210`)\311 \312\216\f;\2039\313\f \314#\202<\f !\203\365 \211\203,\n@\211@\211\224\225\3158\204r\3068\206\353\316\317#\202\353\204\222\320\321\307$\206\353\322\321\310A@!$\202\353\314=\203\251\322\321\310A@!$\202\353\323=\203\300\324\321\310A@!$\202\353\325=\203\327\326\321\310A@!$\202\353\327=\205\353\330\321\310A@!$,\210)\nA\211\202B*\310\3158!,\207" [keywords pre-match-value highlights lowdarks matcher limit 3 nil eval match-data ((set-match-data save-match-data-internal)) re-search-forward t 2 error "No match %d in highlight %S" text-property-not-all face put-text-property prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property save-match-data-internal highlight match start end override] 8 (#$ . 36836)]) (put 'font-lock-fontify-anchored-keywords 'byte-optimizer 'byte-compile-inline-expand) #@110 Fontify according to `font-lock-keywords' between START and END. START should be at the beginning of a line. (defalias 'font-lock-fontify-keywords-region #[(start end &optional loudly) "@\306=\204 \307! A\310 \311\312\211\211 !\"!\2053#\2035\313\314 \315 T\211\316\"#\210!@\211@$b\210 ;\203N\317 %\306#\202R %!\203)\fA\211\203@\n@@\247\203\n@\211&@\211'\224$'\225%\320&8($\204\220\321&8\206 \322\323'&#\202 (\204\260\324$%\325\312$\206 \326$%\325\327&A@!$\202 (\306=\203\307\326$%\325\327&A@!$\202 (\330=\203\336\331$%\325\327&A@!$\202 (\332=\203\365\333$%\325\327&A@!$\202 (\334=\205 \335$%\325\327&A@!$,\210)\202\"\n@%)\211!@\321!\233\312\327!A@!*+*\247\203>*`V\203>*)\202F\212\312\210`))\336 ,\337\216 ;\203Z\317 )\306#\202^ )!\203+\211\203L\n@\211&@\211'\224$'\225%\320&8($\204\225\321&8\206\322\323'&#\202(\204\265\324$%\325\312$\206\326$%\325\327&A@!$\202(\306=\203\314\326$%\325\327&A@!$\202(\330=\203\343\331$%\325\327&A@!$\202(\332=\203\372\333$%\325\327&A@!$\202(\334=\205\335$%\325\327&A@!$,\210)\nA\211\202e*\327\320!8!,\210*\nA\211\202Y!A\211!\204#\312.\207" [font-lock-keywords font-lock-keywords-case-fold-search highlights matcher keyword count t font-lock-compile-keywords buffer-name 0 nil message "Fontifying %s... (regexps..%s)" make-string 46 re-search-forward 2 3 error "No match %d in highlight %S" text-property-not-all face put-text-property eval prepend font-lock-prepend-text-property append font-lock-append-text-property keep font-lock-fillin-text-property match-data ((set-match-data save-match-data-internal)) bufname keywords case-fold-search loudly start end highlight match override limit pre-match-value lowdarks save-match-data-internal] 9 (#$ . 38101)]) (defalias 'font-lock-compile-keywords #[(keywords) "\242\301=\203 \207\301\302\303\"B\207" [keywords t mapcar font-lock-compile-keyword] 4]) (defalias 'font-lock-compile-keyword #[(keyword) "<\204 \301D\207@\302=\203\303\302A!!\207A\242\304=\2037\30589\203.@\306ADD\207\303@\3058B!\207A\247\203E@A\307DD\207A9\203S@\306ADD\207A@<\204`@AD\207\207" [keyword (0 font-lock-keyword-face) eval font-lock-compile-keyword quote 2 0 font-lock-keyword-face] 4]) (defalias 'font-lock-eval-keywords #[(keywords) "<\203\207\301\302!\203 \202\303!!\207" [keywords font-lock-eval-keywords fboundp eval] 3]) (defalias 'font-lock-value-in-major-mode #[(alist) ":\203 \236\206\302\236A\207\207" [alist major-mode t] 2]) (defalias 'font-lock-choose-keywords #[(keywords level) "9\203\207 \247\203 8\206$\302!@\207 \303=\203\"\302!@\207@\207" [keywords level reverse t] 2]) (byte-code "\302\300!\204\303\300 B\303\207" [font-lock-set-defaults current-load-list boundp nil] 2) #@190 Set fontification defaults appropriately for this mode. Sets various variables using `font-lock-defaults' (or, if nil, using `font-lock-defaults-alist') and `font-lock-maximum-decoration'. (defalias 'font-lock-set-defaults #[nil "\306\307!\210?\205 \306\300!\310L\210\306\311!\312L\210\306\313!\314 L\210 \206$\n \236A\315\f@\316 !\"!\n\"\236A#\306\317!\320\321!!!L\210#\203Z\322\312#@@#@A#\210#A\211#\204E\fA@\203f\306\323!\310L\210\324\f8\203r\306\325!\310L\210\326\f8\203\313\326\f8$\306\327!\330\331 !L\210$\203\312$@@\247\203\233$@@C\202\242\332\333$@@\"$@A%\211&\203\301\334&@%#\210&A\211&\204\256$A$*\202\206)\335\f8\203\331\306\336!\335\f8L\210\337\f\233''\205\f'@@'@A()\340)!\204\373)\312L\210\306)!(L\210'A'*\202\336,\207" [font-lock-set-defaults font-lock-defaults major-mode font-lock-defaults-alist defaults font-lock-maximum-decoration make-local-variable font-lock-fontified t font-lock-cache-state nil font-lock-cache-position make-marker font-lock-choose-keywords font-lock-value-in-major-mode font-lock-keywords font-lock-compile-keywords font-lock-eval-keywords font-lock-add-keywords font-lock-keywords-only 2 font-lock-keywords-case-fold-search 3 font-lock-syntax-table copy-syntax-table syntax-table mapcar identity modify-syntax-entry 4 font-lock-beginning-of-syntax-function 5 boundp keywords font-lock-keywords-alist local slist syntax chars alist value variable] 5 (#$ . 40991)]) #@62 Unset fontification defaults. See `font-lock-set-defaults'. (defalias 'font-lock-unset-defaults #[nil "\306\306\306\306\306\306 \206\n \236A\f\307\f\233\211 \2059 @@\310 @@!L\210 A\211 \204#\306*\207" [font-lock-set-defaults font-lock-keywords font-lock-keywords-only font-lock-keywords-case-fold-search font-lock-syntax-table font-lock-beginning-of-syntax-function nil 5 default-value font-lock-defaults major-mode font-lock-defaults-alist defaults alist] 4 (#$ . 42459)]) #@32 Face name to use for comments. (defvar font-lock-comment-face 'font-lock-comment-face (#$ . 42960)) #@31 Face name to use for strings. (defvar font-lock-string-face 'font-lock-string-face (#$ . 43066)) #@32 Face name to use for keywords. (defvar font-lock-keyword-face 'font-lock-keyword-face (#$ . 43169)) #@32 Face name to use for builtins. (defvar font-lock-builtin-face 'font-lock-builtin-face (#$ . 43275)) #@38 Face name to use for function names. (defvar font-lock-function-name-face 'font-lock-function-name-face (#$ . 43381)) #@38 Face name to use for variable names. (defvar font-lock-variable-name-face 'font-lock-variable-name-face (#$ . 43505)) #@44 Face name to use for type and class names. (defvar font-lock-type-face 'font-lock-type-face (#$ . 43629)) #@48 Face name to use for constant and label names. (defvar font-lock-constant-face 'font-lock-constant-face (#$ . 43741)) #@52 Face name to use for things that should stand out. (defvar font-lock-warning-face 'font-lock-warning-face (#$ . 43865)) #@58 This variable is obsolete. Use font-lock-constant-face. (defvar font-lock-reference-face 'font-lock-constant-face (#$ . 43991)) (byte-code "\306\300!\203y \203x \211A@\211@\211\307N\204t\nA@\310\n8\311\n8\312\n8\313\n8\314123\2114\203@\3154\fBB3\203L\3163\fBB2\203V\317\320\f\"1\203`\317\321\f\" \203i\317\322\f\"\323 \324\fDC\314#\210.*\202)\323\325\326\3275\330%\210\323\331\332\3335\330%\210\323\334\335\3365\330%\210\323\337\340\3415\330%\210\323\342\343\3445\330%\210\323\345\346\3475\330%\210\323\350\351\3525\330%\210\323\353\354\3555\330%\210\323\356\357\3605\330%\207" [font-lock-face-attributes face-attributes face-attribute face face-spec underline-p boundp saved-face 2 3 4 5 nil :foreground :background append (:bold t) (:italic t) (:underline t) custom-declare-face t font-lock-comment-face ((((class grayscale) (background light)) (:foreground "DimGray" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :bold t :italic t)) (((class color) (background light)) (:foreground "Firebrick")) (((class color) (background dark)) (:foreground "OrangeRed")) (t (:bold t :italic t))) "Font Lock mode face used to highlight comments." font-lock-highlighting-faces font-lock-string-face ((((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (((class color) (background light)) (:foreground "RosyBrown")) (((class color) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Font Lock mode face used to highlight strings." font-lock-keyword-face ((((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) (t (:bold t))) "Font Lock mode face used to highlight keywords." font-lock-builtin-face ((((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Orchid")) (((class color) (background dark)) (:foreground "LightSteelBlue")) (t (:bold t))) "Font Lock mode face used to highlight builtins." font-lock-function-name-face ((((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue")) (t (:inverse-video t :bold t))) "Font Lock mode face used to highlight function names." font-lock-variable-name-face ((((class grayscale) (background light)) (:foreground "Gray90" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t :italic t)) (((class color) (background light)) (:foreground "DarkGoldenrod")) (((class color) (background dark)) (:foreground "LightGoldenrod")) (t (:bold t :italic t))) "Font Lock mode face used to highlight variable names." font-lock-type-face ((((class grayscale) (background light)) (:foreground "Gray90" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "ForestGreen")) (((class color) (background dark)) (:foreground "PaleGreen")) (t (:bold t :underline t))) "Font Lock mode face used to highlight type and classes." font-lock-constant-face ((((class grayscale) (background light)) (:foreground "LightGray" :bold t :underline t)) (((class grayscale) (background dark)) (:foreground "Gray50" :bold t :underline t)) (((class color) (background light)) (:foreground "CadetBlue")) (((class color) (background dark)) (:foreground "Aquamarine")) (t (:bold t :underline t))) "Font Lock mode face used to highlight constants and labels." font-lock-warning-face ((((class color) (background light)) (:foreground "Red" :bold t)) (((class color) (background dark)) (:foreground "Pink" :bold t)) (t (:inverse-video t :bold t))) "Font Lock mode face used to highlight warnings." italic-p bold-p background foreground :group] 7) #@849 Match, and move over, any declaration/definition item after point. Matches after point, but ignores leading whitespace and `*' characters. Does not move further than LIMIT. The expected syntax of a declaration/definition item is `word' (preceded by optional whitespace and `*' characters and proceeded by optional whitespace) optionally followed by a `('. Everything following the item (but belonging to it) is expected to by skip-able by `scan-sexps', and items are expected to be separated with a `,' and to be terminated with a `;'. Thus the regexp matches after point: word ( ^^^^ ^ Where the match subexpressions are: 1 2 The item is delimited by (match-beginning 1) and (match-end 1). If (match-beginning 2) is non-nil, the item is followed by a `('. This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item. (defalias 'font-lock-match-c-style-declaration-item-and-skip-to-next #[(limit) "\301\302!\205\303 \304\216\305\306\307\217*\207" [save-match-data-internal looking-at "[ *]*\\(\\sw+\\)[ ]*\\((\\)?" match-data ((set-match-data save-match-data-internal)) nil (byte-code "\214e}\210\301\225b\210\302\303!\204\304`\301\"\206db\210\202 \305\225b)\207" [limit 1 looking-at "[ ]*\\(\\(,\\)\\|;\\|$\\)" scan-sexps 2] 3) ((error t))] 3 (#$ . 48052)]) #@44 Subdued level highlighting for Lisp modes. (defconst lisp-font-lock-keywords-1 '(("(\\(def\\(\\(advice\\|alias\\|generic\\|macro\\*?\\|method\\|setf\\|subst\\*?\\|un\\*?\\|ine-\\(derived-mode\\|function\\|condition\\|skeleton\\|widget\\|setf-expander\\|method-combination\\|\\(symbol\\|compiler\\|modify\\)-macro\\)\\)\\|\\(const\\(ant\\)?\\|custom\\|face\\|var\\|parameter\\)\\|\\(class\\|group\\|package\\|struct\\|type\\)\\)\\)\\>[ '(]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (9 (cond ((match-beginning 3) font-lock-function-name-face) ((match-beginning 6) font-lock-variable-name-face) (t font-lock-type-face)) nil t)) ("^;;;###\\(autoload\\)\\>" 1 font-lock-warning-face prepend)) (#$ . 49359)) #@42 Gaudy level highlighting for Lisp modes. (defconst lisp-font-lock-keywords-2 (append lisp-font-lock-keywords-1 '(("(\\(c\\(atch\\|ond\\(ition-case\\)?\\)\\|eval-\\(a\\(fter-load\\|nd-compile\\)\\|when\\(-compile\\)?\\)\\|i\\(f\\|nline\\)\\|l\\(ambda\\|et\\*?\\)\\|prog[*12nv]?\\|save-\\(current-buffer\\|excursion\\|match-data\\|restriction\\|selected-window\\|window-excursion\\)\\|t\\(hrow\\|rack-mouse\\)\\|unwind-protect\\|w\\(hile\\|ith-\\(current-buffer\\|electric-help\\|output-to-\\(string\\|temp-buffer\\)\\|t\\(emp-\\(buffer\\|file\\)\\|imeout\\)\\)\\)\\)\\>" . 1) ("(\\(a\\(bort\\|ssert\\)\\|b\\(lock\\|reak\\)\\|c\\(ase\\|case\\|error\\|ompiler-let\\|typecase\\)\\|d\\(e\\(cla\\(im\\|re\\)\\|structuring-bind\\)\\|o\\(\\*\\|list\\|times\\)?\\)\\|e\\(case\\|rror\\|typecase\\)\\|flet\\|handler-\\(bind\\|case\\)\\|i\\(gnore-errors\\|n-package\\)\\|l\\(abels\\|exical-let\\*?\\|o\\(cally\\|op\\)\\)\\|macrolet\\|proclaim\\|re\\(start-\\(bind\\|case\\)\\|turn\\(-from\\)?\\)\\|symbol-macrolet\\|t\\(agbody\\|he\\|ypecase\\)\\|unless\\|when\\)\\>" . 1) ("(\\(featurep\\|provide\\|require\\)\\>[ ']*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) ("\\\\\\\\\\[\\(\\sw+\\)]" 1 font-lock-constant-face prepend) ("`\\(\\sw\\sw+\\)'" 1 font-lock-constant-face prepend) ("\\<:\\sw\\sw+\\>" 0 font-lock-builtin-face) ("\\<\\&\\sw+\\>" . font-lock-type-face))) (#$ . 50067)) #@49 Default expressions to highlight in Lisp modes. (defvar lisp-font-lock-keywords lisp-font-lock-keywords-1 (#$ . 51477)) #@48 Subdued expressions to highlight in TeX modes. (defconst tex-font-lock-keywords-1 '(("\\\\\\(begin\\|end\\|title\\){\\([^}]+\\)" 2 font-lock-function-name-face) ("\\\\\\(chapter\\|new\\(command\\*?\\|environment\\*?\\|theorem\\*?\\)\\|par\\(agraph\\*?\\|t\\)\\|renewcommand\\*?\\|s\\(ection\\*?\\|ub\\(paragraph\\*?\\|s\\(ection\\*?\\|ub\\(paragraph\\*?\\|section\\*?\\)\\)\\)\\)\\)\\(\\[[^]]*\\]\\)?{\\([^}]+\\)" 9 font-lock-function-name-face) ("\\\\\\(addto\\(counter\\|length\\)\\|newcounter\\*?\\|set\\(counter\\|length\\|towidth\\)\\){\\([^}]+\\)" 4 font-lock-variable-name-face) ("\\\\\\(bibliography\\|epsf\\(ig\\)?\\|in\\(clude\\(only\\)?\\|put\\)\\|psfig\\){\\([^}]+\\)" 5 font-lock-builtin-face) ("\\\\\\(includegraphics\\*?\\|nofiles\\|usepackage\\)\\(\\[[^]]*\\]\\)?{\\([^}]+\\)" 3 font-lock-builtin-face) ("^[ ]*\\\\def\\\\\\(\\(\\w\\|@\\)+\\)" 1 font-lock-function-name-face)) (#$ . 51603)) #@46 Gaudy expressions to highlight in TeX modes. (defconst tex-font-lock-keywords-2 (append tex-font-lock-keywords-1 '(("\\\\\\(eqref\\|label\\|pageref\\|ref\\|vref\\){\\([^}]+\\)" 2 font-lock-constant-face) ("\\\\\\(c\\(aption\\|ite\\)\\|footnote\\(mark\\|text\\)?\\|glossary\\|index\\)\\(\\[[^]]*\\]\\)?{\\([^}]+\\)" 5 font-lock-constant-face) ("\\\\\\(\\\\\\|allowdisplaybreaks\\|clear\\(doublepage\\|page\\)\\|displaybreak\\|enlargethispage\\|linebreak\\|n\\(ew\\(line\\|page\\)\\|o\\(linebreak\\|pagebreak\\)\\)\\|pagebreak\\)" . font-lock-warning-face) "\\\\\\([a-zA-Z@]+\\**\\|[^ \n]\\)" ("\\\\\\(b\\(f\\|oldsymbol\\)\\|pmb\\|text\\(bf\\|sc\\|up\\)\\){\\([^}]+\\)" 4 'bold keep) ("\\\\\\(emph\\|it\\|text\\(it\\|sl\\)\\){\\([^}]+\\)" 3 'italic keep) ("\\\\\\(text\\(md\\|rm\\|sf\\|tt\\)\\){\\([^}]+\\)" 3 'bold-italic keep) ("\\\\\\(\\(bf\\)\\|em\\|it\\|sl\\)\\>\\(\\([^}&\\]\\|\\\\[^\\]\\)+\\)" 3 (if (match-beginning 2) 'bold 'italic) keep))) (#$ . 52516)) #@48 Default expressions to highlight in TeX modes. (defvar tex-font-lock-keywords tex-font-lock-keywords-1 (#$ . 53485)) (define-widget 'font-lock-extra-types-widget 'radio "Widget `:type' for members of the custom group `font-lock-extra-types'.\nMembers should `:load' the package `font-lock' to use this widget." :args '((const :tag "none" nil) (repeat :tag "types" regexp))) #@293 *List of extra types to fontify in C mode. Each list item should be a regexp not containing word-delimiters. For example, a value of ("FILE" "\\sw+_t") means the word FILE and words ending in _t are treated as type names. The value of this variable is used when Font Lock mode is turned on. (custom-declare-variable 'c-font-lock-extra-types ''("FILE" "\\sw+_t") '(#$ . -53866) :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) #@266 *List of extra types to fontify in C++ mode. Each list item should be a regexp not containing word-delimiters. For example, a value of ("string") means the word string is treated as a type name. The value of this variable is used when Font Lock mode is turned on. (custom-declare-variable 'c++-font-lock-extra-types ''("\\([iof]\\|str\\)+stream\\(buf\\)?" "ios" "string" "rope" "list" "slist" "deque" "vector" "bit_vector" "set" "multiset" "map" "multimap" "hash\\(_\\(m\\(ap\\|ulti\\(map\\|set\\)\\)\\|set\\)\\)?" "stack" "queue" "priority_queue" "iterator" "const_iterator" "reverse_iterator" "const_reverse_iterator") '(#$ . -54318) :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) #@311 *List of extra types to fontify in Objective-C mode. Each list item should be a regexp not containing word-delimiters. For example, a value of ("Class" "BOOL" "IMP" "SEL") means the words Class, BOOL, IMP and SEL are treated as type names. The value of this variable is used when Font Lock mode is turned on. (custom-declare-variable 'objc-font-lock-extra-types ''("Class" "BOOL" "IMP" "SEL") '(#$ . -55029) :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) #@322 *List of extra types to fontify in Java mode. Each list item should be a regexp not containing word-delimiters. For example, a value of ("[A-ZÀ-ÖØ-ß]\\sw+") means capitalised words (and words conforming to the Java id spec) are treated as type names. The value of this variable is used when Font Lock mode is turned on. (custom-declare-variable 'java-font-lock-extra-types ''("[A-Z\300-\326\330-\337]\\sw+") '(#$ . -55512) :type 'font-lock-extra-types-widget :group 'font-lock-extra-types) #@40 Subdued level highlighting for C mode. (defconst c-font-lock-keywords-1 nil (#$ . 56009)) #@75 Medium level highlighting for C mode. See also `c-font-lock-extra-types'. (defconst c-font-lock-keywords-2 nil (#$ . 56105)) #@74 Gaudy level highlighting for C mode. See also `c-font-lock-extra-types'. (defconst c-font-lock-keywords-3 nil (#$ . 56236)) (byte-code "\306\307\310\311\312\313BB\314BBB\315 D\316\317\320\321\322\323\257\324 \325\311\326\327 \330BBB\331BBB\332\333Q\334\335F\"\324\f\325\336\326\327 \337BBB\336\340\336\341\336\342\336\343\344\n\345BBE\346BBBE\347BBBF\350\351E\"+\307\207" [c-keywords c-type-types c-type-depth c-font-lock-keywords-1 c-font-lock-keywords-2 c-font-lock-keywords-3 "\\(break\\|continue\\|do\\|else\\|for\\|if\\|return\\|s\\(izeof\\|witch\\)\\|while\\)" mapconcat 'identity cons "auto\\|c\\(har\\|onst\\)\\|double\\|e\\(num\\|xtern\\)\\|float\\|int\\|long\\|register\\|s\\(hort\\|igned\\|t\\(atic\\|ruct\\)\\)\\|typedef\\|un\\(ion\\|signed\\)\\|vo\\(id\\|latile\\)" (c-font-lock-extra-types) ("\\|") regexp-opt-depth ("^\\(\\sw+\\)[ ]*(" 1 font-lock-function-name-face) ("^#[ ]*error[ ]+\\(.+\\)" 1 font-lock-warning-face prepend) ("^#[ ]*\\(import\\|include\\)[ ]*\\(<[^>\"\n]*>?\\)" 2 font-lock-string-face) ("^#[ ]*define[ ]+\\(\\sw+\\)(" 1 font-lock-function-name-face) ("^#[ ]*\\(elif\\|if\\)\\>" ("\\<\\(defined\\)\\>[ ]*(?\\(\\sw+\\)?" nil nil (1 font-lock-builtin-face) (2 font-lock-variable-name-face nil t))) ("^#[ ]*\\(\\sw+\\)\\>[ !]*\\(\\sw+\\)?" (1 font-lock-builtin-face) (2 font-lock-variable-name-face nil t)) append eval concat "\\<\\(" ("\\)\\>") ('font-lock-type-face) "\\<" "\\>" ("\\<\\(case\\|goto\\)\\>[ ]*\\(-?\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) (":" ("^[ ]*\\(\\sw+\\)[ ]*:" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) list ("\\)\\>" "\\([ *&]+\\sw+\\>\\)*") 'font-lock-match-c-style-declaration-item-and-skip-to-next 'goto-char 'or 'match-beginning + (2) ('(match-end 1)) ('(goto-char (match-end 1)) '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))) ("\\(}\\)[ *]*\\sw" (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) ("^\\(\\sw+\\)\\>\\([ *]+\\sw+\\>\\)*" (1 font-lock-type-face) (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 2) (match-end 1))) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))))] 16) #@81 Default expressions to highlight in C mode. See also `c-font-lock-extra-types'. (defvar c-font-lock-keywords c-font-lock-keywords-1 (#$ . 58622)) #@42 Subdued level highlighting for C++ mode. (defconst c++-font-lock-keywords-1 nil (#$ . 58774)) #@79 Medium level highlighting for C++ mode. See also `c++-font-lock-extra-types'. (defconst c++-font-lock-keywords-2 nil (#$ . 58874)) #@78 Gaudy level highlighting for C++ mode. See also `c++-font-lock-extra-types'. (defconst c++-font-lock-keywords-3 nil (#$ . 59011)) (defalias 'font-lock-match-c++-style-declaration-item-and-skip-to-next #[(limit) "\301\302!\205\303 \304\216\305\306\307\217*\207" [save-match-data-internal looking-at "[ *&]*\\(\\sw+\\)\\([ ]*<\\([^>\n]+\\)[ *&]*>\\)?\\([ ]*::[ *~]*\\(\\sw+\\)\\)*[ ]*\\((\\)?" match-data ((set-match-data save-match-data-internal)) nil (byte-code "\214e}\210\301\225b\210\302\303!\204\304`\301\"\206db\210\202 \305\225b)\207" [limit 1 looking-at "[ ]*\\(\\(,\\)\\|;\\|$\\)" scan-sexps 2] 3) ((error t))] 3]) (byte-code "\306\307\310\311\312\313\314BB\315BBB\316\317 P\320\321\n ED\322\322>\340\354\321\341\n\355 \356\f\357BBBBBBB\354\360\354\361\354\362\354\363\364 \365BBE\366BBBE\367BBBF\370\371\f\372Q\373DE\"?.\310\207" [c++-keywords c++-operators c++-type-types c++-type-suffix c++-type-spec c++-type-depth "\\(asm\\|break\\|c\\(atch\\|on\\(st_cast\\|tinue\\)\\)\\|d\\(elete\\|o\\|ynamic_cast\\)\\|else\\|for\\|if\\|new\\|re\\(interpret_cast\\|turn\\)\\|s\\(izeof\\|tatic_cast\\|witch\\)\\|t\\(h\\(is\\|row\\)\\|ry\\)\\|while\\)" "!=\\|%=\\|&[&=]\\|()\\|\\*=\\|\\+[+=]\\|-\\(>\\*\\|[=>-]\\)\\|/=\\|<\\(<=\\|[<=]\\)\\|==\\|>\\(>=\\|[=>]\\)\\|\\[\\]\\|\\^=\\||[=|]\\|[!%&*+,/<=>|~^-]" mapconcat 'identity cons "auto\\|bool\\|c\\(har\\|o\\(mplex\\|nst\\)\\)\\|double\\|e\\(num\\|x\\(p\\(licit\\|ort\\)\\|tern\\)\\)\\|f\\(loat\\|riend\\)\\|in\\(line\\|t\\)\\|long\\|mutable\\|namespace\\|register\\|s\\(hort\\|igned\\|t\\(atic\\|ruct\\)\\)\\|t\\(emplate\\|ypedef\\)\\|u\\(n\\(ion\\|signed\\)\\|sing\\)\\|v\\(irtual\\|o\\(id\\|latile\\)\\)" (c++-font-lock-extra-types) ("\\|") "\\([ ]*<\\([^>\n]+\\)[ *&]*>\\)?\\([ ]*::[ *~]*\\(\\sw+\\)\\)*" "\\(\\sw+\\)\\>" regexp-opt-depth concat append "\\<\\(class\\|public\\|private\\|protected\\|typename\\)\\>" "[ ]*" "\\(" "\\)?" (1 font-lock-type-face) (3 (if (match-beginning 6) font-lock-type-face font-lock-function-name-face) nil t) (5 font-lock-function-name-face nil t) (7 font-lock-function-name-face nil t) "^" "[ ]*(" (1 (if (or (match-beginning 2) (match-beginning 4)) font-lock-type-face font-lock-function-name-face)) (3 font-lock-function-name-face nil t) (5 font-lock-function-name-face nil t) eval "\\<\\(" ("\\)\\>") ('font-lock-type-face) "\\<\\(operator\\)\\>[ ]*\\(" (1 font-lock-keyword-face) (2 font-lock-builtin-face nil t) ("\\<\\(case\\|goto\\)\\>[ ]*\\(-?\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) (":" ("^[ ]*\\(\\sw+\\)[ ]*:\\($\\|[^:]\\)" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) "\\<" "\\>" ("\\<\\(false\\|true\\)\\>" . font-lock-constant-face) list "\\)\\>" "\\([ *&]+" ("\\)*") 'font-lock-match-c++-style-declaration-item-and-skip-to-next 'goto-char 'or 'match-beginning + (2) ('(match-end 1)) ('(goto-char (match-end 1)) '(1 (cond ((or (match-beginning 2) (match-beginning 4)) font-lock-type-face) ((match-beginning 6) font-lock-function-name-face) (t font-lock-variable-name-face))) '(3 font-lock-function-name-face nil t) '(5 (if (match-beginning 6) font-lock-function-name-face font-lock-variable-name-face) nil t)) ("\\(}\\)[ *]*\\sw" (font-lock-match-c++-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 (if (match-beginning 6) font-lock-function-name-face font-lock-variable-name-face)))) "^\\(" "[ *&]*\\)+" (font-lock-match-c++-style-declaration-item-and-skip-to-next (goto-char (match-beginning 1)) (goto-char (match-end 1)) (1 (cond ((or (match-beginning 2) (match-beginning 4)) font-lock-type-face) ((match-beginning 6) font-lock-function-name-face) (t font-lock-variable-name-face))) (3 font-lock-function-name-face nil t) (5 (if (match-beginning 6) font-lock-function-name-face font-lock-variable-name-face) nil t)) c-font-lock-keywords-1 c++-font-lock-keywords-1 c++-font-lock-keywords-2 c++-font-lock-keywords-3] 16) #@85 Default expressions to highlight in C++ mode. See also `c++-font-lock-extra-types'. (defvar c++-font-lock-keywords c++-font-lock-keywords-1 (#$ . 63119)) #@50 Subdued level highlighting for Objective-C mode. (defconst objc-font-lock-keywords-1 nil (#$ . 63279)) #@88 Medium level highlighting for Objective-C mode. See also `objc-font-lock-extra-types'. (defconst objc-font-lock-keywords-2 nil (#$ . 63388)) #@87 Gaudy level highlighting for Objective-C mode. See also `objc-font-lock-extra-types'. (defconst objc-font-lock-keywords-3 nil (#$ . 63535)) (byte-code "\306\307\310\311\312\313BB\314BBB\315 D\316 A\317\320\321E\"\316\f\322\311\323\324 \325BBB\326BBB\327\330Q\331\332\333\257\"\316 \322\334\323\324 \335BBB\334\336\334\337\334\340\334\341\342\n\343BBE\344BBBE\345BBBF\346\347E\"(+\307\207" [objc-keywords objc-type-types objc-type-depth c-font-lock-keywords-1 objc-font-lock-keywords-1 objc-font-lock-keywords-2 "\\(break\\|continue\\|do\\|else\\|for\\|if\\|return\\|s\\(elf\\|izeof\\|uper\\|witch\\)\\|while\\)" mapconcat 'identity cons "auto\\|by\\(copy\\|ref\\)\\|c\\(har\\|onst\\)\\|double\\|e\\(num\\|xtern\\)\\|float\\|i\\(n\\(out\\|t\\)\\|[dn]\\)\\|long\\|o\\(neway\\|ut\\)\\|register\\|s\\(hort\\|igned\\|t\\(atic\\|ruct\\)\\)\\|typedef\\|un\\(ion\\|signed\\)\\|vo\\(id\\|latile\\)" (objc-font-lock-extra-types) ("\\|") regexp-opt-depth append ("@\\(\\sw+\\)\\>" (1 font-lock-keyword-face) ("\\=[ :<(,]*\\(\\sw+\\)" nil nil (1 font-lock-function-name-face))) ("^[+-][ ]*\\(PRIVATE\\)?[ ]*\\((\\([^)\n]+\\))\\)?[ ]*\\(\\sw+\\)" (1 font-lock-type-face nil t) (3 font-lock-type-face nil t) (4 font-lock-function-name-face) ("\\=[ ]*\\(\\sw+\\)?:[ ]*\\((\\([^)\n]+\\))\\)?[ ]*\\(\\sw+\\)" nil nil (1 font-lock-function-name-face nil t) (3 font-lock-type-face nil t) (4 font-lock-variable-name-face))) (":" ("^[ ]*\\(\\sw+\\)?:[ ]*\\((\\([^)\n]+\\))\\)?[ ]*\\(\\sw+\\)" (beginning-of-line) (end-of-line) (1 font-lock-function-name-face nil t) (3 font-lock-type-face nil t) (4 font-lock-variable-name-face))) eval concat "\\<\\(" ("\\)\\>") ('font-lock-type-face) "\\<" "\\>" ("\\<\\(case\\|goto\\)\\>[ ]*\\(-?\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) (":" ("^[ ]*\\(\\sw+\\)[ ]*:[ ]*$" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) ("\\<[Nn]il\\>" . font-lock-constant-face) list ("\\)\\>" "\\([ *&]+\\sw+\\>\\)*") 'font-lock-match-c-style-declaration-item-and-skip-to-next 'goto-char 'or 'match-beginning + (2) ('(match-end 1)) ('(goto-char (match-end 1)) '(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))) ("\\(}\\)[ *]*\\sw" (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) ("^\\(\\sw+\\)\\>\\([ *]+\\sw+\\>\\)*" (1 font-lock-type-face) (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 2) (match-end 1))) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) objc-font-lock-keywords-3] 16) #@94 Default expressions to highlight in Objective-C mode. See also `objc-font-lock-extra-types'. (defvar objc-font-lock-keywords objc-font-lock-keywords-1 (#$ . 66258)) #@43 Subdued level highlighting for Java mode. (defconst java-font-lock-keywords-1 nil (#$ . 66429)) #@81 Medium level highlighting for Java mode. See also `java-font-lock-extra-types'. (defconst java-font-lock-keywords-2 nil (#$ . 66531)) #@80 Gaudy level highlighting for Java mode. See also `java-font-lock-extra-types'. (defconst java-font-lock-keywords-3 nil (#$ . 66671)) (byte-code "\306\307\310\311\312 D\313\314D\315 \316 \317\n\320\260\321B\322\323Q\324\325\326E\327\330\331\332\333F\334\335\336\257\"6\3156\337\340\341\342 \343BBB\344BBB\337\340\341\316 \345BBB\346BBB\337\340\341\316 \347BBB\340\350\340\351\340\352\353\f\354BBEE\340\355\340\356\353\f\357BBEE\360BBBBF\316 \320\361R\362D\316\n\320\363\361\364\260\365D\257\"7-\312\207" [java-keywords java-minor-types java-major-types java-other-types java-other-depth java-font-lock-keywords-1 "\\(catch\\|do\\|else\\|f\\(inally\\|or\\)\\|i\\(f\\|nterface\\)\\|return\\|s\\(uper\\|witch\\)\\|t\\(h\\(is\\|row\\)\\|ry\\)\\|while\\)" "b\\(oolean\\|yte\\)\\|char\\|double\\|float\\|int\\|long\\|short\\|void" "abstract\\|const\\|final\\|native\\|p\\(r\\(ivate\\|otected\\)\\|ublic\\)\\|s\\(tatic\\|ynchronized\\)\\|transient\\|volatile" (mapconcat 'identity (cons "\\sw+\\.\\sw+" java-font-lock-extra-types) "\\|") regexp-opt-depth ("\\<\\(class\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-type-face) (2 font-lock-function-name-face nil t)) ("\\<\\(import\\|package\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) append "\\<\\(" "\\|" "\\)\\>" font-lock-type-face "\\<" "\\>" "\\<\\(break\\|case\\|continue\\|goto\\)\\>[ ]*\\(-?\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t) (":" ("^[ ]*\\(\\sw+\\)[ ]*:" (beginning-of-line) (end-of-line) (1 font-lock-constant-face))) "\\<\\(implements\\|throws\\|\\(extends\\|instanceof\\|new\\)\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (3 font-lock-type-face nil t) ("\\=[ ]*,[ ]*\\(\\sw+\\)" (if (match-beginning 2) (goto-char (match-end 2))) nil (1 font-lock-type-face)) ("\\<\\(false\\|null\\|true\\)\\>" . font-lock-constant-face) ("@\\(author\\|exception\\|return\\|see\\|version\\)\\>" (1 font-lock-constant-face prepend)) ("@\\(param\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-constant-face prepend) (2 font-lock-variable-name-face prepend t)) eval list concat "(\\(" ("\\))" "[ ]*\\(\\sw\\|[\"(]\\)") ('(1 font-lock-type-face)) ("\\)\\>" "\\([ ]*\\[[ ]*\\]\\)*" "[ ]*\\sw") ('(1 font-lock-type-face)) ("\\)\\>" "\\([ ]*\\[[ ]*\\]\\)*" "\\([ ]*\\sw\\)") 'font-lock-match-c-style-declaration-item-and-skip-to-next 'goto-char 'match-beginning + (3) 'goto-char 'match-beginning (3) ('(1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))) "\\([ ]*\\[[ ]*\\]\\)*" (font-lock-match-c-style-declaration-item-and-skip-to-next nil (goto-char (match-end 0)) (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))) "\\([ ]+\\sw+\\>" "\\)*" (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 5) (match-end 1))) (goto-char (match-end 1)) (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face))) java-font-lock-keywords-2 java-font-lock-keywords-3] 17) #@87 Default expressions to highlight in Java mode. See also `java-font-lock-extra-types'. (defvar java-font-lock-keywords java-font-lock-keywords-1 (#$ . 69701)) (byte-code "\301\236\204\n\302B\303\304!\207" [minor-mode-alist font-lock-mode (font-lock-mode nil) provide font-lock] 2)