fix next_key

1 files changed, 11 insertions, 0 deletions

diff --git a/src/term.rs b/src/term.rs
index 02a1306..ec45629 100644
--- a/src/term.rs
+++ b/src/term.rs
@@ -136,6 +136,17 @@ impl Reader {
 
     fn next_key (&mut self) -> Keypress {
         fail_unless!(str::len(self.buf) > 0);
+        for uint::range_rev(str::len(self.buf), 0) |i| {
+            match self.escapes.find(str::slice(self.buf, 0, i)) {
+                &Some(k) => {
+                    for uint::range(0, i) |_| {
+                        str::shift_char(&mut self.buf);
+                    }
+                    return k
+                }
+                &None    => { }
+            }
+        }
         let next = str::shift_char(&mut self.buf);
         return KeyCharacter(next);
     }