From 020c75737714022fe21879b1b716f80b8d1a3d90 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sat, 23 Mar 2013 23:39:25 +0400
Subject: [PATCH] Fix settrim

---
 link.c  | 2 +-
 main.ml | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/link.c b/link.c
index 0f3ad28..ce6458c 100644
--- a/link.c
+++ b/link.c
@@ -1901,7 +1901,7 @@ static void * mainloop (void *unused)
             ret = sscanf (p + 7, " %d %d %d %d %d %f",
                           &trimmargins, &fuzz.x0, &fuzz.y0, &fuzz.x1, &fuzz.y1,
                           &zoom);
-            if (ret != 5) {
+            if (ret != 6) {
                 errx (1, "malformed settrim `%.*s' ret=%d", len, p, ret);
             }
             printd ("clear");
diff --git a/main.ml b/main.ml
index 3479dd6..f67d1ab 100644
--- a/main.ml
+++ b/main.ml
@@ -2793,7 +2793,8 @@ let settrim trimmargins trimfuzz =
   let x0, y0, x1, y1 = trimfuzz in
   invalidate "settrim"
     (fun () ->
-      wcmd "settrim %d %d %d %d %d" (btod conf.trimmargins) x0 y0 x1 y1);
+      wcmd "settrim %d %d %d %d %d %f"
+        (btod conf.trimmargins) x0 y0 x1 y1 conf.zoom);
   flushpages ();
 ;;
 
-- 
2.11.4.GIT