浏览代码

minor fix for completion

Nicolas Cannasse 14 年之前
父节点
当前提交
b8cdf2301b
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      typer.ml

+ 4 - 1
typer.ml

@@ -2039,7 +2039,10 @@ let macro_timer ctx path =
 let typing_timer ctx f =
 let typing_timer ctx f =
 	let t = Common.timer "typing" in
 	let t = Common.timer "typing" in
 	let old = ctx.com.error in
 	let old = ctx.com.error in
-	ctx.com.error <- (fun e p -> raise (Error(Custom e,p)));
+	(*
+		disable resumable errors... unless we are in display mode (we want to reach point of completion)
+	*)
+	if not ctx.com.display then ctx.com.error <- (fun e p -> raise (Error(Custom e,p)));
 	try
 	try
 		let r = f() in
 		let r = f() in
 		t();
 		t();