From 61ada99aeb636d8c07f34265e31b763b701e70bf Mon Sep 17 00:00:00 2001 From: malc Date: Sun, 17 Feb 2013 14:39:19 +0400 Subject: [PATCH] Make use of x argument to remote goto --- main.ml | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/main.ml b/main.ml index dae723a..9c62bfd 100644 --- a/main.ml +++ b/main.ml @@ -6989,9 +6989,15 @@ let ract cmds = | "reload" :: [] -> reload () | "goto" :: args :: [] -> scan args "%u %f %f" - (fun pageno _ y -> - onpagerect pageno (fun _ h -> + (fun pageno x y -> + onpagerect pageno (fun w h -> let top = y /. h in + let _,w1,_,leftx = getpagedim pageno in + let sw = float w1 /. w in + let x = sw *. x in + let x = leftx + state.x + truncate x in + if x < 0 || x >= state.winw - state.scrollw + then state.x <- state.x - x; gotopage pageno top; ) ) -- 2.11.4.GIT