;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\306 \203z\307\310!\210\311\305!\204]\312\313!\210\314\313\315\"\210\312\316!\210\314\316\317\"\210\312\320!\210\314\320\321\"\210\312\322!\210\314\322\323\"\210\312\324!\210\314\324\325\"\210\312\326!\210\314\326\327\"\210\312\330!\210\314\330\331\"\210\313\316\320\322\324\326\330\312\332!\210\314\332\333\"\210\334\332\335\"\210\312\336!\210\314\336\335\"\210\332 \336!\306\207" [font-lock-comment-face font-lock-string-face font-lock-keyword-face font-lock-function-name-face font-lock-variable-name-face font-lock-type-face x-display-color-p require font-lock boundp make-face Firebrick set-face-foreground "Firebrick" RosyBrown "RosyBrown" Purple "Purple" MidnightBlue "MidnightBlue" DarkGoldenRod "DarkGoldenRod" DarkOliveGreen "DarkOliveGreen4" CadetBlue "CadetBlue" Stop "White" set-face-background "Red" Doc font-lock-reference-face font-lock-stop-face font-lock-doccomment-face] 3) #@68 *Quote for character constants. "'" for OCaml, "`" for Caml-Light. (defvar caml-quote-char "'" (#$ . -1004)) (defconst caml-font-lock-keywords (byte-code "\301\302\303\304\305\306\260\307B\310\311\312B\313\314\315B\316\317\320\257 \207" [caml-quote-char ("\\(^\\|[^\"]\\)\\((\\*\\*/\\*\\*)\\)" 2 font-lock-stop-face) ("\\(^\\|[^\"]\\)\\((\\*\\*[^*]*\\([^)*][^*]*\\*+\\)*)\\)" 2 font-lock-doccomment-face) ("\\(^\\|[^\"]\\)\\((\\*[^*]*\\*+\\([^)*][^*]*\\*+\\)*)\\)" 2 font-lock-comment-face) "\\(\\\\\\([ntbr" "\\]\\|[0-9][0-9][0-9]\\)\\|.\\)" "\\|\"[^\"\\]*\\(\\\\\\(.\\|\n\\)[^\"\\]*\\)*\"" font-lock-string-face ("`?\\<[A-Z][A-Za-z0-9_']*\\>" . font-lock-function-name-face) "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?\\|in\\(herit\\|itializer\\)?\\|let\\|m\\(ethod\\|utable\\|odule\\)\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type\\|v\\(al\\|irtual\\)\\)\\>" font-lock-type-face ("\\<\\(begin\\|end\\|object\\|s\\(ig\\|truct\\)\\)\\>" . font-lock-keyword-face) "\\<\\(do\\(ne\\|wnto\\)?\\|else\\|for\\|i\\(f\\|gnore\\)\\|lazy\\|match\\|new\\|or\\|t\\(hen\\|o\\|ry\\)\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>\\||\\|->\\|&\\|#" font-lock-reference-face ("\\" . font-lock-comment-face) ("\\(\\([~?]\\|\\<\\)[a-z][a-zA-Z0-9_']*:\\)[^:=]" 1 font-lock-variable-name-face) ("\\<\\(assert\\|open\\|include\\)\\>\\|[~?][ (]*[a-z][a-zA-Z0-9_']*" . font-lock-variable-name-face)] 11)) (defconst inferior-caml-font-lock-keywords (byte-code "\301\302C\"\207" [caml-font-lock-keywords append ("^[#-]" . font-lock-comment-face)] 3)) (defalias 'caml-mode-font-hook #[nil "\304\305!\203\306\300!\210\307\202 \306\303!\210\310\311\312!\207" [font-lock-defaults caml-font-lock-keywords font-lock-keywords font-lock-keywords-only fboundp global-font-lock-mode make-local-variable (caml-font-lock-keywords nil nil ((39 . "w") (95 . "w"))) t font-lock-mode 1] 2]) (add-hook 'caml-mode-hook 'caml-mode-font-hook) (defalias 'inferior-caml-mode-font-hook #[nil "\304\305!\203\306\300!\210\307\202 \306\303!\210\310\311\312!\207" [font-lock-defaults inferior-caml-font-lock-keywords font-lock-keywords font-lock-keywords-only fboundp global-font-lock-mode make-local-variable (inferior-caml-font-lock-keywords nil nil ((39 . "w") (95 . "w"))) t font-lock-mode 1] 2]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook inferior-caml-mode-hooks inferior-caml-mode-font-hook provide caml-font] 3)