From 66340e92e58bd33f9615e8ca31047d789e4ffae4 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 9 Apr 2012 15:39:54 +0400
Subject: [PATCH] Only disable split link/hint highlighting, not postprocess as
 a whole

---
 main.ml | 41 +++++++++++++++++++++--------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/main.ml b/main.ml
index 1320d98..e34c226 100644
--- a/main.ml
+++ b/main.ml
@@ -5331,27 +5331,28 @@ let drawpage l linkindexbase =
         )
   in
   drawtiles l color;
-  begin match conf.columns with
-  | Csingle | Cmulti _ ->
-      begin match getopaque l.pageno with
-      | Some opaque ->
-          if tileready l l.pagex l.pagey
-          then
-            let x = l.pagedispx - l.pagex
-            and y = l.pagedispy - l.pagey in
-            let hlmask = (if conf.hlinks then 1 else 0)
-              + (if state.glinks && not (isbirdseye state.mode) then 2 else 0)
-            in
-            let s =
-              match state.mode with
-              | Textentry ((_, s, _, _, _, _), _) when state.glinks -> s
-              | _ -> ""
-            in
-            postprocess opaque hlmask x y (linkindexbase, s, conf.hfsize);
-          else 0
+  begin match getopaque l.pageno with
+  | Some opaque ->
+      if tileready l l.pagex l.pagey
+      then
+        let x = l.pagedispx - l.pagex
+        and y = l.pagedispy - l.pagey in
+        let hlmask =
+          match conf.columns with
+          | Csingle | Cmulti _ ->
+              (if conf.hlinks then 1 else 0)
+              + (if state.glinks
+                  && not (isbirdseye state.mode) then 2 else 0)
+          | _ -> 0
+        in
+        let s =
+          match state.mode with
+          | Textentry ((_, s, _, _, _, _), _) when state.glinks -> s
+          | _ -> ""
+        in
+        postprocess opaque hlmask x y (linkindexbase, s, conf.hfsize);
+      else 0
 
-      | _ -> 0
-      end;
   | _ -> 0
   end;
 ;;
-- 
2.11.4.GIT