===================================================================
RCS file: caml.el,v
retrieving revision 1.2
diff -C 3 -r1.2 caml.el
*** caml.el	1996/05/03 05:16:04	1.2
--- caml.el	1996/05/03 05:20:02
***************
*** 178,183 ****
--- 178,197 ----
  you are one. You should probably have this on, though, if you also
  have caml-electric-indent on, which see.")
  
+ (defvar caml-font-lock-keywords 
+   (list
+    ;; Pierre Boulet: Jan 31 1996
+    '("[ \t]*\\<:\\>[ \t]*\\(\\(\\sw\\|_\\)+\\)?"
+      1 font-lock-type-face)
+    '("[^_]\\<\\(let\\( rec\\)?\\|type\\|and\\|value\\)\\>[ \t]*\\(\\(\\sw\\|_\\)+\\|(.*)\\|{.*}\\)"
+      3 font-lock-function-name-face)
+    '("[^_]\\<\\(a\\(nd\\|s\\)\\|begin\\|close\\|do\\(ne\\|wnto\\)*\\|e\\(lse\\|nd\\|xception\\)\\|f\\(or\\|un\\(ction\\)*\\)\\|i[fn]\\|let\\|m\\(atch\\|utable\\)\\|not\\|o\\(f\\|pen\\|r\\)\\|prefix\\|rec\\|then\\|t\\(o\\|ry\\|ype\\)\\|value\\|w\\(h\\(n\\|ile\\)\\|ith\\)\\)\\>[^_]"
+      1 font-lock-keyword-face)
+    '("\\(\".*\"\\)" 1 font-lock-string-face)
+    '("(\\*\\(.*\\)\\*)" 1 font-lock-comment-face)
+    )
+   "Additional expressions to highlight in caml mode.")
+ 
  ;;code
  (defvar caml-mode-map nil
    "Keymap used in Caml mode.")