From 00deca4e6e338eacde615815b76cb25276341928 Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Fri, 24 Oct 2014 14:58:29 +0100
Subject: [PATCH] Don't jump out of text bounds with moveTo

---
 yi/src/library/Yi/Buffer/Misc.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/yi/src/library/Yi/Buffer/Misc.hs b/yi/src/library/Yi/Buffer/Misc.hs
index e1e7afc8a..b4678bbe4 100644
--- a/yi/src/library/Yi/Buffer/Misc.hs
+++ b/yi/src/library/Yi/Buffer/Misc.hs
@@ -601,7 +601,12 @@ strokesRangesB regex r = do
 moveTo :: Point -> BufferM ()
 moveTo x = do
   forgetPreferCol
-  (.= x) . markPointA =<< getInsMark
+  maxP <- sizeB
+  let p = case () of
+        _ | x < 0 -> Point 0
+          | x > maxP -> maxP
+          | otherwise -> x
+  (.= p) . markPointA =<< getInsMark
 
 ------------------------------------------------------------------------