case insensitive filename matching for completion

main.ml

@@ -414,7 +414,7 @@ try
 				let pos = try int_of_string pos with _ -> failwith ("Invalid format : "  ^ pos) in
 				Common.display := true;
 				Parser.resume_display := {
-					Ast.pfile = Common.get_full_path file;
+					Ast.pfile = String.lowercase (Common.get_full_path file);
 					Ast.pmin = pos;
 					Ast.pmax = pos;
 				};

parser.ml

@@ -58,7 +58,7 @@ let display e = raise (Display e)
 
 let is_resuming p =
 	let p2 = !resume_display in
-	p.pmax = p2.pmin && Common.get_full_path p.pfile = p2.pfile
+	p.pmax = p2.pmin && String.lowercase (Common.get_full_path p.pfile) = p2.pfile
 
 let priority = function
 	| OpAssign | OpAssignOp _ -> -4