;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Jun 16 13:02:38 1995 ;;; from file /home/fsf/rms/e19/lisp/font-lock.el ;;; emacs version 19.28.95.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`font-lock.el' was compiled for Emacs 19.29 or later")) #@27 Face to use for comments. (defvar font-lock-comment-face (quote font-lock-comment-face) (#$ . 479)) #@26 Face to use for strings. (defvar font-lock-string-face (quote font-lock-string-face) (#$ . 585)) #@33 Face to use for function names. (defvar font-lock-function-name-face (quote font-lock-function-name-face) (#$ . 688)) #@33 Face to use for variable names. (defvar font-lock-variable-name-face (quote font-lock-variable-name-face) (#$ . 812)) #@27 Face to use for keywords. (defvar font-lock-keyword-face (quote font-lock-keyword-face) (#$ . 936)) #@29 Face to use for data types. (defvar font-lock-type-face (quote font-lock-type-face) (#$ . 1042)) #@29 Face to use for references. (defvar font-lock-reference-face (quote font-lock-reference-face) (#$ . 1145)) #@65 Non-nil means Font Lock should not fontify comments or strings. (defvar font-lock-no-comments nil (#$ . 1258)) (byte-code "\"!" [make-obsolete-variable font-lock-doc-string-face font-lock-string-face make-variable-buffer-local font-lock-keywords] 3) #@1147 *The keywords to highlight. Elements should be of the form: MATCHER (MATCHER . MATCH) (MATCHER . FACENAME) (MATCHER . HIGHLIGHT) (MATCHER HIGHLIGHT ...) where HIGHLIGHT should be of the form (MATCH FACENAME OVERRIDE LAXMATCH). 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). MATCH is the subexpression of MATCHER to be highlighted. FACENAME is an expression whose value is the face name to use. FACENAME's default attributes may be defined in `font-lock-face-attributes'. OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may be overriden. If `keep', only parts not already fontified are highlighted. If LAXMATCH is non-nil, no error is signalled if there is no MATCH in MATCHER. 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. Be careful composing regexps for this list; the wrong pattern can dramatically slow things down! (defvar font-lock-keywords nil (#$ . -1523)) #@147 If set by a major mode, should be the defaults for Font Lock mode. The value should look like the `cdr' of an item in `font-lock-defaults-alist'. (defvar font-lock-defaults nil (#$ . 2721)) #@558 *Alist of default major mode and Font Lock defaults. Each item should be a list of the form: (MAJOR-MODE . (FONT-LOCK-KEYWORDS KEYWORDS-ONLY CASE-FOLD FONT-LOCK-SYNTAX)) where both MAJOR-MODE and FONT-LOCK-KEYWORDS are 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. FONT-LOCK-SYNTAX should be a list of cons pairs of the form (CHAR . STRING), it is used to set the local Font Lock syntax table for keyword fontification. (defvar font-lock-defaults-alist (byte-code " B\nB B\nB B\nB B B *" [(tex-font-lock-keywords nil nil ((36 . "\""))) (lisp-font-lock-keywords nil nil ((58 . "w") (45 . "w") (42 . "w"))) lisp-mode-defaults tex-mode-defaults bibtex-mode (c++-c-mode c-font-lock-keywords nil nil ((95 . "w"))) (c++-mode c++-font-lock-keywords nil nil ((95 . "w"))) (c-mode c-font-lock-keywords nil nil ((95 . "w"))) emacs-lisp-mode latex-mode lisp-mode plain-tex-mode scheme-mode slitex-mode tex-mode] 12) (#$ . -2918)) #@75 *Non-nil means the patterns in `font-lock-keywords' are case-insensitive. (defvar font-lock-keywords-case-fold-search nil (#$ . -3997)) #@108 Non-nil means use this syntax table for fontifying. If this is nil, the major mode's syntax table is used. (defvar font-lock-syntax-table nil (#$ . 4140)) #@73 *Non-nil means `font-lock-fontify-buffer' should print status messages. (defvar font-lock-verbose t (#$ . -4301)) #@272 Non-nil means use the maximum decoration for fontifying. If a number, means use that level of decoration (or, if that is not available, the maximum). If t, use the maximum decoration available. It is up to packages defining Font Lock keywords to respect this variable. (defvar font-lock-maximum-decoration nil (#$ . 4422)) #@157 *If non-nil, the maximum size for buffers. Only buffers less than this can be fontified when Font Lock mode is turned on. If nil, means size is irrelevant. (defvar font-lock-maximum-size (byte-code "‡" [font-lock-maximum-decoration 153600 307200] 1) (#$ . -4754)) #@58 Function or functions to run on entry to Font Lock mode. (defvar font-lock-mode-hook nil (#$ . 5031)) #@344 A symbol indicating the display Emacs is running under. The symbol should be one of `color', `grayscale' or `mono'. If Emacs guesses this display attribute wrongly, either set this variable in your `~/.emacs' or set the resource `Emacs.displayType' in your `~/.Xdefaults'. See also `font-lock-background-mode' and `font-lock-face-attributes'. (defvar font-lock-display-type nil (#$ . 5140)) #@326 A symbol indicating the Emacs background brightness. The symbol should be one of `light' or `dark'. If Emacs guesses this frame attribute wrongly, either set this variable in your `~/.emacs' or set the resource `Emacs.backgroundMode' in your `~/.Xdefaults'. See also `font-lock-display-type' and `font-lock-face-attributes'. (defvar font-lock-background-mode nil (#$ . 5538)) #@1229 A list of default attributes to use for face attributes. Each element of the list should be of the form (FACE FOREGROUND BACKGROUND BOLD-P ITALIC-P UNDERLINE-P) where FACE should be one of the face symbols `font-lock-comment-face', `font-lock-string-face', `font-lock-keyword-face', `font-lock-type-face', `font-lock-function-name-face', `font-lock-variable-name-face', and `font-lock-reference-face'. A form for each of these face symbols should be provided in the list, but other face symbols and attributes may be given and used in highlighting. See `font-lock-keywords'. Subsequent element items should be the attributes for the corresponding Font Lock mode faces. Attributes FOREGROUND and BACKGROUND should be strings (default if nil), while BOLD-P, ITALIC-P, and UNDERLINE-P should specify the corresponding face attributes (yes if non-nil). Emacs uses default attributes based on display type and background brightness. See variables `font-lock-display-type' and `font-lock-background-mode'. Resources can be used to over-ride these face attributes. For example, the resource `Emacs.font-lock-comment-face.attributeUnderline' can be used to specify the UNDERLINE-P attribute for face `font-lock-comment-face'. (defvar font-lock-face-attributes nil (#$ . 5922)) #@206 Make faces from `font-lock-face-attributes'. A default list is used if this is nil. If optional OVERRIDE is non-nil, faces that already exist are reset. See `font-lock-make-face' and `list-faces-display'. (defalias 'font-lock-make-faces #[(&optional override) ")\"\f!' ǂ' &ɂ') b\" D!_A!\"!\"֥W^ׂ_*  => A A≯>肟낰≯ A A≯)\"" [font-lock-display-type x-get-resource ".displayType" "DisplayType" display-resource intern x-display-color-p color x-display-grayscale-p grayscale mono font-lock-background-mode ".backgroundMode" "BackgroundMode" frame-parameters params bg-resource apply + x-color-values background-color "white" 3 dark light font-lock-face-attributes light-bg (mono monochrome) (font-lock-comment-face nil nil t t nil) (font-lock-string-face nil nil nil t nil) (font-lock-keyword-face nil nil t nil nil) font-lock-function-name-face foreground-color t nil (font-lock-variable-name-face nil nil t t nil) (font-lock-type-face nil nil t nil t) (font-lock-reference-face nil nil t nil t) (grayscale greyscale grayshade greyshade) font-lock-comment-face "DimGray" "Gray80" font-lock-string-face "Gray50" "LightGray" font-lock-keyword-face "Gray90" font-lock-variable-name-face font-lock-type-face font-lock-reference-face ((font-lock-comment-face "Firebrick") (font-lock-string-face "RosyBrown") (font-lock-keyword-face "Purple") (font-lock-function-name-face "Blue") (font-lock-variable-name-face "DarkGoldenrod") (font-lock-type-face "DarkOliveGreen") (font-lock-reference-face "CadetBlue")) ((font-lock-comment-face "OrangeRed") (font-lock-string-face "LightSalmon") (font-lock-keyword-face "LightSteelBlue") (font-lock-function-name-face "LightSkyBlue") (font-lock-variable-name-face "LightGoldenrod") (font-lock-type-face "PaleGreen") (font-lock-reference-face "Aquamarine")) mapcar #[(face-attributes) "@\n ! ! J! L!!)" [face-attributes face override facep boundp font-lock-make-face] 2]] 13 (#$ . 7208)]) #@243 Make a face from FACE-ATTRIBUTES. FACE-ATTRIBUTES should be like an element `font-lock-face-attributes', so that the face name is the first item in the list. A variable with the same name as the face is also set; its value is the face name. (defalias 'font-lock-make-face #[(face-attributes) "@ ! ! \"̏ \"(Ϗ \"@ \"L #L8L # \"d \"p #p8p # \"~ 8\" L," [face-attributes face symbol-name face-name #[(face-name resource) " Q P\"" [x-get-resource face-name ".attribute" resource "Face.Attribute"] 4] set-p #[(face-name resource) " \n\" ĝ)" [set-p face-name resource set ("on" "true")] 4] on-p make-face "Foreground" nil (byte-code " \nA@\"" [set-face-foreground face face-attributes] 3) ((error)) "Background" (byte-code " 8\"" [set-face-background face 2 face-attributes] 4) ((error)) "Bold" make-face-bold t 3 "Italic" make-face-italic 4 "Underline" set-face-underline-p 5] 4 (#$ . 9388)]) (byte-code "! B! B!!" [boundp font-lock-cache-position nil current-load-list font-lock-cache-state make-variable-buffer-local] 2) #@67 Put proper face on each string and comment between START and END. (defalias 'font-lock-fontify-region #[(start end &optional loudly) "~by\n \"Ɖ \n'\nP(\n4\nP5`ljڎ[!=j `W`#m``lj%8`\"$#\"`lj%8\"`($\"`lj%)88`\"e$}쏈)\"`-$\"`lj%)`$W`$#`#`lj%`08;8f\"be$})\"`-$0`lj%)8\"$#0`lj%8q\"`($0`lj%)))$# ?!. " [start 0 loudly message "Fontifying %s... (syntactically...)" buffer-name t nil buffer-modified-p syntax-table comment-start-skip "\\s\"\\|" "\\s\"" "\\s<\\|" "\\s<" prevstate prev state startline comstart synstart old-syntax modified buffer-file-name buffer-undo-list inhibit-read-only ((set-syntax-table old-syntax)) font-lock-syntax-table set-syntax-table font-lock-cache-position font-lock-cache-state beginning-of-defun parse-partial-sexp 3 beg re-search-forward end move put-text-property face font-lock-string-face 4 7 (byte-code " e#!x" [re-search-backward comstart move forward-comment 1 " " nil] 4) ((error (goto-char end))) font-lock-comment-face remove-text-properties (face nil) here (byte-code "!x" [forward-comment 1 " " nil] 2) ((error (goto-char end))) (face nil) set-buffer-modified-p] 12 (#$ . 10540)]) (defalias 'font-lock-unfontify-region #[(beg end) "  # ? !," [buffer-modified-p t nil buffer-file-name inhibit-read-only buffer-undo-list modified remove-text-properties beg end (face nil) set-buffer-modified-p] 4]) (defalias 'font-lock-after-change-function #[(beg end old-len) " Ž  \fV\fby`by` 2\f\"8\f\"\f\"+" [match-data match-data ((store-match-data match-data)) font-lock-cache-position beg nil 0 end 1 font-lock-no-comments font-lock-unfontify-region font-lock-fontify-region font-lock-hack-keywords] 3]) (defalias 'font-lock-compile-keywords #[(&optional keywords) " =\"B)" [keywords font-lock-keywords t mapcar #[(item) "< DA@ADDA9%@ADDA@<2@AD" [item (0 font-lock-keyword-face) font-lock-keyword-face 0] 3]] 5]) #@63 Apply HIGHLIGHT following a match. See `font-lock-keywords'. (defalias 'font-lock-apply-highlight #[(highlight) "@ 8\n8z\"z /\n $/˂z =B\n A@!$z\n $A@!\ny $\n$ $X+," [highlight match beg end 2 override 3 error "Highlight %S failed" text-property-not-all face nil keep put-text-property eval text-property-any next pos next-single-property-change] 7 (#$ . 12828)]) (put (quote font-lock-apply-highlight) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@66 Fontify according to `font-lock-keywords' between START and END. (defalias 'font-lock-hack-keywords #[(start end &optional loudly) " =\f  A‰  \n \f ҎʼnA \"K!@A@Ab;x#}!\"hK T\"#K,  ?!. " [font-lock-keywords-case-fold-search font-lock-keywords t font-lock-compile-keywords 0 nil buffer-modified-p syntax-table buffer-name bufname old-syntax modified buffer-file-name buffer-undo-list inhibit-read-only count keywords case-fold-search ((set-syntax-table old-syntax)) highlights matcher keyword loudly message "Fontifying %s... (regexps...)" font-lock-syntax-table set-syntax-table start re-search-forward end mapcar font-lock-apply-highlight "Fontifying %s... (regexps...%s)" make-string 46 set-buffer-modified-p] 9 (#$ . 13377)]) (byte-code "! B! B#" [boundp font-lock-mode nil current-load-list font-lock-fontified put permanent-local t] 4) #@1311 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) Or for any visited file with the following in your ~/.emacs: (add-hook 'find-file-hooks 'turn-on-font-lock) The default Font Lock mode faces and their attributes are defined in the variable `font-lock-face-attributes', and Font Lock mode default settings in the variable `font-lock-defaults-alist'. Where modes support different levels of fontification, you can use the variable `font-lock-maximum-decoration' to specify which 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'. To fontify a buffer without turning on Font Lock mode, and regardless of buffer size, you can use \[font-lock-fontify-buffer]. (defalias 'font-lock-mode #[(&optional arg) "\f!V ? ƚ\f$\"-!\"!\fL\fv !!\"\"!b Vh  \"\"\"ed\" \"\" )" [arg prefix-numeric-value 0 font-lock-mode on-p buffer-name " *Compiler Input*" nil remove-hook after-change-functions font-lock-after-change-function make-local-variable add-hook font-lock-set-defaults before-revert-hook after-revert-hook font-lock-revert-setup font-lock-revert-cleanup run-hooks font-lock-mode-hook font-lock-fontified font-lock-maximum-size buffer-size font-lock-fontify-buffer font-lock-verbose message "Fontifying %s... buffer too big." font-lock-unfontify-region font-lock-thing-lock-cleanup force-mode-line-update] 3 (#$ . 14380) "P"]) #@41 Unconditionally turn on Font Lock mode. (defalias 'turn-on-font-lock #[nil "!" [font-lock-mode 1] 2 (#$ . 16481)]) (defalias 'font-lock-thing-lock-cleanup #[nil "! !! !" [boundp fast-lock-mode -1 lazy-lock-mode] 2]) (defalias 'font-lock-after-fontify-buffer #[nil "! !  " [boundp fast-lock-mode fast-lock-after-fontify-buffer lazy-lock-mode lazy-lock-after-fontify-buffer] 2]) (defalias 'font-lock-revert-setup #[nil "" [nil font-lock-fontified] 2]) (defalias 'font-lock-revert-cleanup #[nil "!" [font-lock-mode 1] 2]) #@60 Fontify the current buffer the way `font-lock-mode' would. (defalias 'font-lock-fontify-buffer #[nil " t U? !L& \". ЏH  E҂F# U U! +" [font-lock-mode font-lock-verbose buffer-size 0 buffer-modified-p modified verbose was-on make-local-variable font-lock-fontified nil message "Fontifying %s..." buffer-name font-lock-set-defaults (byte-code " ed\"ed #ed #)" [font-lock-no-comments font-lock-unfontify-region font-lock-fontify-region verbose font-lock-hack-keywords t font-lock-fontified] 4) ((quit (byte-code "ed\"" [font-lock-unfontify-region] 3))) "Fontifying %s... %s." "done" "aborted" set-buffer-modified-p font-lock-after-fontify-buffer] 4 (#$ . 17059) nil]) #@99 For consideration as a value of `lisp-font-lock-keywords'. This does fairly subdued highlighting. (defconst lisp-font-lock-keywords-1 (byte-code "PEQED" ["^(\\(def\\(const\\|ine-key\\(\\|-after\\)\\|var\\)\\)\\>" "[ ']*\\([^ \n()]+\\)?" (1 font-lock-keyword-face) (4 font-lock-variable-name-face nil t) "^(\\(def[^ \n()]+\\|eval-" "\\(a\\(fter-load\\|nd-compile\\)\\|when-compile\\)\\)\\>" (1 font-lock-keyword-face) (4 font-lock-function-name-face nil t)] 4) (#$ . 17810)) #@95 For consideration as a value of `lisp-font-lock-keywords'. This does a lot more highlighting. (defconst lisp-font-lock-keywords-2 (byte-code " ȰB Q QF RFӯ)\"" [append lisp-font-lock-keywords-1 "[-+a-zA-Z0-9_:*]" word-char "(\\(" "c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|if\\|let\\*?\\|prog[nv12*]?\\|" "save-\\(excursion\\|match-data\\|restriction\\|window-excursion\\)\\|" "t\\(hrow\\|rack-mouse\\)\\|unwind-protect\\|while" "\\)\\>" 1 ("(\\(do\\|flet\\|labels\\|return\\(\\|-from\\)\\|unless\\|when\\)\\>" . 1) "\\<:" "+\\>" "\\\\\\\\\\[\\(" "+\\)]" font-lock-reference-face t "`\\(" "+\\)'" ("\\&\\(optional\\|rest\\|whole\\)\\>" . font-lock-type-face)] 10) (#$ . 18303)) #@52 Additional expressions to highlight in Lisp modes. (defvar lisp-font-lock-keywords (byte-code " \n" [font-lock-maximum-decoration lisp-font-lock-keywords-2 lisp-font-lock-keywords-1] 1) (#$ . 19011)) #@96 For consideration as a value of `c-font-lock-keywords'. This does fairly subdued highlighting. (defconst c-font-lock-keywords-1 nil (#$ . 19223)) #@92 For consideration as a value of `c-font-lock-keywords'. This does a lot more highlighting. (defconst c-font-lock-keywords-2 nil (#$ . 19375)) #@98 For consideration as a value of `c++-font-lock-keywords'. This does fairly subdued highlighting. (defconst c++-font-lock-keywords-1 nil (#$ . 19523)) #@94 For consideration as a value of `c++-font-lock-keywords'. This does a lot more highlighting. (defconst c++-font-lock-keywords-2 nil (#$ . 19679)) (byte-code "RRΰQEFQB E EQ\".//QB E EQ\"8-ڇ" ["break\\|continue\\|do\\|else\\|for\\|if\\|return\\|switch\\|while" "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\\)" "asm\\|break\\|c\\(atch\\|ontinue\\)\\|d\\(elete\\|o\\)\\|" "else\\|for\\|if\\|new\\|operator\\|" "p\\(r\\(ivate\\|otected\\)\\|ublic\\)\\|return\\|" "s\\(izeof\\|witch\\)\\|t\\(h\\(is\\|row\\)\\|ry\\)\\|while" "auto\\|bool\\|c\\(har\\|lass\\|o\\(mplex\\|nst\\)\\)\\|" "double\\|e\\(num\\|xtern\\)\\|f\\(loat\\|riend\\)\\|" "in\\(line\\|t\\)\\|long\\|register\\|" "s\\(hort\\|igned\\|t\\(atic\\|ruct\\)\\)\\|" "t\\(emplate\\|ypedef\\)\\|un\\(ion\\|signed\\)\\|" "v\\(irtual\\|o\\(id\\|latile\\)\\)" "[a-zA-Z0-9_:~]+" ctoken c++-type-types c++-keywords c-type-types c-keywords ("^#[ ]*include[ ]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face) ("^#[ ]*define[ ]+\\(\\(\\sw+\\)(\\)" 2 font-lock-function-name-face) ("^\\(#[ ]*[a-z]+\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-reference-face) (2 font-lock-variable-name-face nil t)) "^\\(" "\\)[ ]*(" 1 font-lock-function-name-face c-font-lock-keywords-1 append "\\<\\(" "\\)\\>" font-lock-type-face "\\)[ *]+" "\\(" "[ *]+\\)*" "\\)[ ]*\\((\\)?" 9 (if (match-beginning 10) font-lock-function-name-face font-lock-variable-name-face) "^" "[ *]+" 2 (if (match-beginning 3) font-lock-function-name-face font-lock-variable-name-face) ("}[ *]*\\(\\sw+\\)[ ]*[;,[]" 1 font-lock-variable-name-face) ("\\<\\(case\\|goto\\)\\>[ ]*\\([^ \n:;]+\\)?" (1 font-lock-keyword-face) (2 font-lock-reference-face nil t)) ("^[ ]*\\(\\sw+\\)[ ]*:" 1 font-lock-reference-face) c-font-lock-keywords-2 c++-font-lock-keywords-1 "\\)[ *&]+" "[ *&]+\\)*" 14 (if (match-beginning 15) font-lock-function-name-face font-lock-variable-name-face) (if (match-beginning 3) font-lock-function-name-face font-lock-variable-name-face) ("}[ *]*\\(\\sw+\\)[ ]*[;,[]" 1 font-lock-variable-name-face) ("\\<\\(case\\|goto\\)\\>[ ]*\\([^ \n:;]+\\)?" (1 font-lock-keyword-face) (2 font-lock-reference-face nil t)) ("^[ ]*\\(\\sw+\\)[ ]*:[^:]" 1 font-lock-reference-face) c++-font-lock-keywords-2] 13) #@48 Additional expressions to highlight in C mode. (defvar c-font-lock-keywords (byte-code " \n" [font-lock-maximum-decoration c-font-lock-keywords-2 c-font-lock-keywords-1] 1) (#$ . 22195)) #@50 Additional expressions to highlight in C++ mode. (defvar c++-font-lock-keywords (byte-code " \n" [font-lock-maximum-decoration c++-font-lock-keywords-2 c++-font-lock-keywords-1] 1) (#$ . 22394)) #@50 Additional expressions to highlight in TeX mode. (defvar tex-font-lock-keywords (quote (("\\\\\\(begin\\|end\\|newcommand\\){\\([a-zA-Z0-9\\*]+\\)}" 2 font-lock-function-name-face) ("\\\\\\(cite\\|label\\|pageref\\|ref\\){\\([^} \n]+\\)}" 2 font-lock-reference-face) ("{\\\\bf\\([^}]+\\)}" 1 (quote bold) keep) ("{\\\\\\(em\\|it\\|sl\\)\\([^}]+\\)}" 2 (quote italic) keep) ("\\\\\\([a-zA-Z@]+\\|.\\)" . font-lock-keyword-face) ("^[ \n]*\\\\def[\\\\@]\\(\\w+\\)" 1 font-lock-function-name-face keep))) (#$ . 22601)) #@210 Set fontification defaults appropriately for this mode. Sets `font-lock-keywords', `font-lock-no-comments', `font-lock-syntax-table' and `font-lock-keywords-case-fold-search' using `font-lock-defaults-alist'. (defalias 'font-lock-set-defaults #[nil " `\n \fA @! A@!!L 8-!L 8_ 8 ! ! ^ @@ @A# A G))" [font-lock-make-faces font-lock-keywords font-lock-defaults major-mode font-lock-defaults-alist defaults eval make-local-variable font-lock-no-comments t 2 font-lock-keywords-case-fold-search 3 slist font-lock-syntax-table copy-syntax-table syntax-table modify-syntax-entry nil] 5 (#$ . 23125)]) (byte-code " \n B!" [font-lock-mode minor-mode-alist (font-lock-mode " Font") provide font-lock] 2)