Caml-mode sous Emacs

; tous les modes voulus en autoload

(setq auto-mode-alist
      '(("\\.c$" . c-mode)
        ("\\.h$" . c-mode)
        ("\\.y$" . c-mode)
        ("\\.tex$" . latex-mode)
        ("\\.bib$" . bibtex-mode)
        ("\\.ada$" . ada-mode)
        ("\\.ads$" . ada-mode)
        ("\\.adi$" . ada-mode)
        ("\\.adb$" . ada-mode)
        ("\\.el$" . emacs-lisp-mode)
        ("/\\..*emacs" . emacs-lisp-mode)
        ("\\.ll$" . lisp-mode)
        ("\\.lo$" . lisp-mode)
        ("\\.llm3$" . llm3-mode)
        ("\\.ml$" . caml-mode)
        ("\\.j$" . caml-mode)
        ("\\.iso$" . french-mode)))


(autoload 'caml-mode "~levy/emacs/caml/caml" "Major mode for editing Caml code." t)
(autoload 'run-caml "~levy/emacs/caml/inf-caml" "Run an inferior Caml process." t)

(if window-system
  (progn
      (setq hilit-mode-enable-list  '(not text-mode)
            hilit-background-mode   'light
            hilit-inhibit-hooks     nil
            hilit-inhibit-rebinding nil)
      (require 'hilit19)
      (hilit-set-mode-patterns
       'caml-mode
       '(
         ("(\\*" "\\*)" comment)      ; not nested ...
         ("\"[^\\\"]*\\(\\\\\\(.\\|\n\\)[^\\\"]*\\)*\"" nil string)
         ("\\<\\(and\\|type\\|let\\|rec\\|exception\\|value\\)\\>" nil label)
        
("\\<\\(as\\|begin\\|do\\|done\\|downto\\|else\\|end\\|for\\|fun\\|function\\|if
\\|in\\|match\\|mutable\\|not\\|of\\|or\\|prefix\\|then\\|to\\|try\\|where\\|whi
le\\|with\\)\\>" nil keyword)
         ("#open\\s \"[^\"]*\"" nil include)))))