From 10ae670b57ee17903820333860b4f11be7a544a6 Mon Sep 17 00:00:00 2001
From: wmorgan <wmorgan@5c8cc53c-5e98-4d25-b20a-d8db53a31250>
Date: Sun, 3 Dec 2006 08:59:49 +0000
Subject: [PATCH] jump to left with '['

git-svn-id: svn://rubyforge.org/var/svn/sup/trunk@60 5c8cc53c-5e98-4d25-b20a-d8db53a31250
---
 lib/sup/modes/scroll-mode.rb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/sup/modes/scroll-mode.rb b/lib/sup/modes/scroll-mode.rb
index 32693a0..ed8c7e7 100644
--- a/lib/sup/modes/scroll-mode.rb
+++ b/lib/sup/modes/scroll-mode.rb
@@ -14,6 +14,7 @@ class ScrollMode < Mode
     k.add :page_up, "Up one page", :page_up, 'p', :backspace
     k.add :jump_to_home, "Jump to top", :home, '^', '1'
     k.add :jump_to_end, "Jump to bottom", :end, '$', '0'
+    k.add :jump_to_left, "Jump to the left", '['
   end
 
   def initialize opts={}
@@ -48,6 +49,11 @@ class ScrollMode < Mode
     buffer.mark_dirty
   end
 
+  def jump_to_left
+    buffer.mark_dirty unless @leftcol == 0
+    @leftcol = 0
+  end
+
   ## set top line to l
   def jump_to_line l
     l = l.clamp 0, lines - 1
@@ -64,6 +70,7 @@ class ScrollMode < Mode
   def jump_to_home; jump_to_line 0; end
   def jump_to_end; jump_to_line lines - buffer.content_height; end
 
+
   def ensure_mode_validity
     @topline = @topline.clamp 0, lines - 1
     @topline = 0 if @topline < 0 # empty 
-- 
2.45.2