فهرست منبع

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 t = Common.timer "typing" 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
 		let r = f() in
 		t();