Explorar o código

allow to use --display file@0 with ( completion

Nicolas Cannasse %!s(int64=13) %!d(string=hai) anos
pai
achega
11cb2b177b
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      parser.ml

+ 1 - 0
parser.ml

@@ -728,6 +728,7 @@ and expr_next e1 = parser
 	| [< '(POpen,p1); s >] ->
 		if is_resuming p1 then display (EDisplay (e1,true),p1);
 		(match s with parser
+		| [< '(Binop OpOr,p2) when do_resume() >] -> display (EDisplay (e1,false),p1) (* help for debug display mode *)
 		| [< params = parse_call_params e1; '(PClose,p2); s >] -> expr_next (ECall (e1,params) , punion (pos e1) p2) s
 		| [< >] -> serror())
 	| [< '(BkOpen,_); e2 = expr; '(BkClose,p2); s >] ->