|
@@ -78,7 +78,7 @@ let macro_timer ctx l =
|
|
|
|
|
|
let typing_timer ctx need_type f =
|
|
let typing_timer ctx need_type f =
|
|
let t = Common.timer ["typing"] in
|
|
let t = Common.timer ["typing"] in
|
|
- let old = ctx.com.error and oldp = ctx.pass in
|
|
|
|
|
|
+ let old = ctx.com.error and oldp = ctx.pass and oldlocals = ctx.locals in
|
|
(*
|
|
(*
|
|
disable resumable errors... unless we are in display mode (we want to reach point of completion)
|
|
disable resumable errors... unless we are in display mode (we want to reach point of completion)
|
|
*)
|
|
*)
|
|
@@ -89,6 +89,7 @@ let typing_timer ctx need_type f =
|
|
t();
|
|
t();
|
|
ctx.com.error <- old;
|
|
ctx.com.error <- old;
|
|
ctx.pass <- oldp;
|
|
ctx.pass <- oldp;
|
|
|
|
+ ctx.locals <- oldlocals;
|
|
in
|
|
in
|
|
try
|
|
try
|
|
let r = f() in
|
|
let r = f() in
|