Don't jump out of text bounds with moveTo

yi-editor · Oct 24, 2014 · 00deca4 · 00deca4
1 parent 2c6f1f0
commit 00deca4
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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
 
 ------------------------------------------------------------------------