gotounder already adds nav point
authormalc <av1474@comtv.ru>
Wed, 24 Oct 2012 22:28:34 +0000 (25 02:28 +0400)
committermalc <av1474@comtv.ru>
Wed, 24 Oct 2012 22:28:34 +0000 (25 02:28 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 3c95e78..0529c56 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -4856,11 +4856,10 @@ let viewkeyboard key mask =
       state.glinks <- true;
       let mode = state.mode in
       state.mode <- Textentry (
-        (":", "", None, linknentry, linkndone (fun under ->
-          addnav ();
-          gotounder under
-        ), false
-        ), fun _ ->
+        (
+          ":", "", None, linknentry, linkndone (fun under -> gotounder under),
+          false
+        ),  fun _ ->
           state.glinks <- false;
           state.mode <- mode
       );