haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

only handle Accept when in edition mode 

Ignore-this: dd48ad5ed053979210179d2336ff5d19

darcs-hash:20110804191828-c41ad-5867e30933324360da4a738da02eeb025f11d9d6
This commit is contained in:
Jeremie Dimino 2011-08-04 21:18:28 +02:00
parent c8f68e4c07
commit 65fc1791c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/uTop_console.ml
View File

@ -128,7 +128,7 @@ object(self)
inherit [Zed_utf8.t] LTerm_read_line.term term as super_term
method exec = function
| LTerm_read_line.Accept :: actions when !UTop.smart_accept -> begin
| LTerm_read_line.Accept :: actions when !UTop.smart_accept && S.value self#mode = LTerm_read_line.Edition -> begin
Zed_macro.add self#macro LTerm_read_line.Accept;
let tokens = UTop_lexer.lex_string (pending ^ Zed_rope.to_string (Zed_edit.text self#edit)) in
match last tokens with