From 84b9dcfc8fcc23f1370cb57d868352db349e8fb5 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 8 Apr 2012 21:30:15 +0400
Subject: [PATCH] Do not post process split columns

---
 main.ml | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

diff --git a/main.ml b/main.ml
index 0ae5860..1320d98 100644
--- a/main.ml
+++ b/main.ml
@@ -5331,23 +5331,27 @@ let drawpage l linkindexbase =
         )
   in
   drawtiles l color;
-  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 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
 
+      | _ -> 0
+      end;
   | _ -> 0
   end;
 ;;
-- 
2.11.4.GIT