Cosmetics
authormalc <av1474@comtv.ru>
Sat, 27 Oct 2012 10:52:11 +0000 (27 14:52 +0400)
committermalc <av1474@comtv.ru>
Sat, 27 Oct 2012 10:52:11 +0000 (27 14:52 +0400)
main.ml

diff --git a/main.ml b/main.ml
index b4e8401..4142b29 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -4841,12 +4841,10 @@ let viewkeyboard key mask =
       state.glinks <- true;
       let mode = state.mode in
       state.mode <- Textentry (
-        (
-          ":", "", None, linknentry, linkndone (fun under -> gotounder under),
-          false
-        ),  fun _ ->
+        (":", "", None, linknentry, linkndone gotounder, false),
+        (fun _ ->
           state.glinks <- false;
-          state.mode <- mode
+          state.mode <- mode)
       );
       state.text <- "";
       G.postRedisplay "view:linkent(F)"