;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


#@68 *Quote for character constants. "'" for OCaml, "`" for Caml-Light.
(defvar caml-quote-char "'" (#$ . -87))
#@38 Hilit19 patterns used for OCaml mode
(defconst caml-mode-patterns (byte-code "\301\302\303!\304E\305\306\260\307\304E\310\311\312\313\314\307\315E\316\317\307\320E\321\257\207" [caml-quote-char ("\\(^\\|[^\"]\\)\\((\\*[^*]*\\*+\\([^)*][^*]*\\*+\\)*)\\)" 2 comment) hilit-string-find string-to-char string "\\(\\\\\\([ntbr" "\\]\\|[0-9][0-9][0-9]\\)\\|.\\)" nil ("\\(\\([~?]\\|\\<\\)[a-z][a-zA-Z0-9_']*:\\)[^:=]" 1 brown) ("[~?][ (]*[a-z][a-zA-Z0-9_']*" nil brown) ("\\<\\(assert\\|open\\|include\\)\\>" nil brown) ("`?\\<[A-Z][A-Za-z0-9_']*\\>" nil MidnightBlue) "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?\\|in\\(herit\\)?\\|let\\|m\\(ethod\\|utable\\|odule\\)\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type\\|v\\(al\\|irtual\\)\\)\\>" ForestGreen ("\\<\\(object\\|struct\\|sig\\|begin\\|end\\)\\>" 2 include) "\\<\\(do\\(ne\\|wnto\\)?\\|else\\|for\\|i\\(f\\|gnore\\)\\|lazy\\|match\\|new\\|or\\|t\\(hen\\|o\\|ry\\)\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>\\||\\|->\\|&\\|#" keyword (";" nil struct)] 12) (#$ . 200))
(byte-code "\301\302\"\210\301\303\304\305C\"\"\210\306\307!\207" [caml-mode-patterns hilit-set-mode-patterns caml-mode inferior-caml-mode append ("^[#-]" nil firebrick) provide caml-hilit] 5)