Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Tree: 5129d6e669
Fetching contributors…

Cannot retrieve contributors at this time

68 lines (61 sloc) 2.593 kB
;(* *)
;(* OCaml *)
;(* *)
;(* Jacques Garrigue and Ian T Zimmerman *)
;(* *)
;(* Copyright 1997 Institut National de Recherche en Informatique et *)
;(* en Automatique. All rights reserved. This file is distributed *)
;(* under the terms of the GNU General Public License. *)
;(* *)
;(* $Id$ *)
; Highlighting patterns for hilit19 under caml-mode
; defined also in caml.el
(defvar caml-quote-char "'"
"*Quote for character constants. \"'\" for OCaml, \"`\" for Caml-Light.")
(defconst caml-mode-patterns
2 comment)
(list 'hilit-string-find (string-to-char caml-quote-char) 'string)
(list (concat caml-quote-char "\\(\\\\\\([ntbr" caml-quote-char "\\]\\|"
"[0-9][0-9][0-9]\\)\\|.\\)" caml-quote-char)
'("\\(\\([~?]\\|\\<\\)[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)
(list (concat
nil 'ForestGreen)
'("\\<\\(object\\|struct\\|sig\\|begin\\|end\\)\\>" 2 include)
(list (concat
nil 'keyword)
'(";" nil struct))
"Hilit19 patterns used for OCaml mode")
(hilit-set-mode-patterns 'caml-mode caml-mode-patterns)
'("^[#-]" nil firebrick))
(provide 'caml-hilit)
Jump to Line
Something went wrong with that request. Please try again.