diff options
| -rw-r--r-- | camlp4/Camlp4/Struct/Camlp4Ast.mlast | 12 | ||||
| -rw-r--r-- | emacs/caml-font.el | 4 | ||||
| -rw-r--r-- | emacs/caml-hilit.el | 2 |
3 files changed, 9 insertions, 9 deletions
diff --git a/camlp4/Camlp4/Struct/Camlp4Ast.mlast b/camlp4/Camlp4/Struct/Camlp4Ast.mlast index cb8dd4a40b..6c4ea3bc8a 100644 --- a/camlp4/Camlp4/Struct/Camlp4Ast.mlast +++ b/camlp4/Camlp4/Struct/Camlp4Ast.mlast @@ -518,26 +518,26 @@ module Make (Loc : Sig.Loc) value map_expr f = object inherit map as super; - method override expr x = f (super#expr x); + method expr x = f (super#expr x); end; value map_patt f = object inherit map as super; - method override patt x = f (super#patt x); + method patt x = f (super#patt x); end; value map_ctyp f = object inherit map as super; - method override ctyp x = f (super#ctyp x); + method ctyp x = f (super#ctyp x); end; value map_str_item f = object inherit map as super; - method override str_item x = f (super#str_item x); + method str_item x = f (super#str_item x); end; value map_sig_item f = object inherit map as super; - method override sig_item x = f (super#sig_item x); + method sig_item x = f (super#sig_item x); end; value map_loc f = object inherit map as super; - method override loc x = f (super#loc x); + method loc x = f (super#loc x); end; end; diff --git a/emacs/caml-font.el b/emacs/caml-font.el index 41c730c663..e796abdcb7 100644 --- a/emacs/caml-font.el +++ b/emacs/caml-font.el @@ -45,8 +45,8 @@ (,(regexp-opt '("and" "as" "constraint" "class" "exception" "external" "fun" "function" "functor" "in" "inherit" "initializer" "let" - "method" "mutable" "module" "of" "override" "private" - "rec" "type" "val" "virtual") + "method" "mutable" "module" "of" "private" "rec" + "type" "val" "virtual") 'words) . font-lock-type-face) ;blocking diff --git a/emacs/caml-hilit.el b/emacs/caml-hilit.el index 37043bc0af..697e58173d 100644 --- a/emacs/caml-hilit.el +++ b/emacs/caml-hilit.el @@ -40,7 +40,7 @@ "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)" "\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?" "\\|in\\(herit\\)?\\|let\\|m\\(ethod\\|utable\\|odule\\)" - "\\|o\\(f\\|verride\\)\\|p\\(arser\\|rivate\\)\\|rec\\|type" + "\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type" "\\|v\\(al\\|irtual\\)\\)\\>") nil 'ForestGreen) ;blocking |