From ee9657df0e9fdb08d1538b7c29ea7bfb80400f75 Mon Sep 17 00:00:00 2001
From: rdaneelolivaw <unknown>
Date: Wed, 14 Dec 2005 11:35:52 +0000
Subject: RBR - slight tightening of OCaml `TAG recognition

---
 src/LexCaml.cxx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/LexCaml.cxx b/src/LexCaml.cxx
index a418ab19c..6c2e83705 100644
--- a/src/LexCaml.cxx
+++ b/src/LexCaml.cxx
@@ -202,13 +202,13 @@ void ColouriseCamlDoc(
 			// it's wide open; what do we have?
 			if (iscamlf(sc.ch))
 				state2 = SCE_CAML_IDENTIFIER;
-			else if (sc.Match('`'))
+			else if (sc.Match('`') && isalpha(sc.chNext))
 				state2 = SCE_CAML_TAGNAME;
 			else if (sc.Match('#') && isdigit(sc.chNext))
 				state2 = SCE_CAML_LINENUM;
 			else if (isdigit(sc.ch)) {
 				state2 = SCE_CAML_NUMBER, chBase = 10;
-				if (sc.ch == '0' && strchr("bBoOxX", sc.chNext))
+				if (sc.Match('0') && strchr("bBoOxX", sc.chNext))
 					chBase = baseT[tolower(sc.chNext) - 'a'], sc.Forward();
 			} else if (sc.Match('\''))	/* (char literal?) */
 				state2 = SCE_CAML_CHAR, chLit = 0;
-- 
cgit v1.2.3