From 05d4aa0a41afdab16411b7b782ac3e3afbd59d38 Mon Sep 17 00:00:00 2001 From: malc Date: Thu, 30 Jul 2015 21:02:26 +0300 Subject: [PATCH] '"' confuses caml-mode --- parser.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/parser.ml b/parser.ml index 5685c11..13d08db 100644 --- a/parser.ml +++ b/parser.ml @@ -32,7 +32,7 @@ let enent s pos len = | '<' -> Buffer.add_string b "<" | '>' -> Buffer.add_string b ">" | '\'' -> Buffer.add_string b "'" - | '"' -> Buffer.add_string b """ + | '\"' -> Buffer.add_string b """ | '&' -> Buffer.add_string b "&" | c -> let code = Char.code c in @@ -102,7 +102,7 @@ let unent b s pos len = | "gt" -> Buffer.add_char b '>' | "amp" -> Buffer.add_char b '&' | "apos" -> Buffer.add_char b '\'' - | "quot" -> Buffer.add_char b '"' + | "quot" -> Buffer.add_char b '\"' | _ -> failwith ("unknown amp " ^ String.escaped subs) ); loop (semipos+1) @@ -313,7 +313,7 @@ let parse v s = then parse_error "not enough data for attribute" s pos; let qc = s.[qpos] in - if not (qc = '\'' || qc = '"') + if not (qc = '\'' || qc = '\"') then parse_error "assignment is not followed by a quote" s pos; let closing_q_pos = -- 2.11.4.GIT