From 2f2b3e9e69904121a424296d278db2d21d3b14c3 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Tue, 24 Nov 2015 03:22:34 +0300
Subject: [PATCH] Disallow link hints when document was rotated

---
 main.ml | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/main.ml b/main.ml
index a2624eb..c8bc6e4 100644
--- a/main.ml
+++ b/main.ml
@@ -4863,16 +4863,21 @@ let viewkeyboard key mask =
       G.postRedisplay "toggle highlightlinks";
 
   | @F ->
-      state.glinks <- true;
-      let mode = state.mode in
-      state.mode <- Textentry (
-        (":", E.s, None, linknentry, linknact gotounder, false),
-        (fun _ ->
-          state.glinks <- false;
-          state.mode <- mode)
-      );
-      state.text <- E.s;
-      G.postRedisplay "view:linkent(F)"
+      if conf.angle mod 360 = 0
+      then (
+        state.glinks <- true;
+        let mode = state.mode in
+        state.mode <-
+          Textentry (
+              (":", E.s, None, linknentry, linknact gotounder, false),
+              (fun _ ->
+                state.glinks <- false;
+                state.mode <- mode)
+            );
+        state.text <- E.s;
+        G.postRedisplay "view:linkent(F)"
+      )
+      else impmsg "hint mode does not work under rotation"
 
   | @y ->
       state.glinks <- true;
-- 
2.11.4.GIT