From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 27 Mar 2012 21:07:36 +0000 (+0200)
Subject: readline: force escape row display regardless of visible modes
X-Git-Tag: v1.5~38
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0891e329b2f7d14c7ae8b8cdbefda513d1d796a7?ds=sidebyside

readline: force escape row display regardless of visible modes
---

diff --git a/Shiar_Sheet/Keyboard.pm b/Shiar_Sheet/Keyboard.pm
index 8f436a6..6819236 100644
--- a/Shiar_Sheet/Keyboard.pm
+++ b/Shiar_Sheet/Keyboard.pm
@@ -134,6 +134,7 @@ sub print_rows {
 		printf qq{<li class="row row%d"><ul>\n}, $row+1;
 		for my $basemode (@modes) {
 			my @moderows = split /\s+/,
+				$row < 0 ? "0" :
 				defined $moderows{$basemode} ? $moderows{$basemode} : $moderows{-DEFAULT};
 
 		for my $submode (@moderows ? @moderows : '') {
diff --git a/readline.inc.pl b/readline.inc.pl
index ea94799..598d652 100644
--- a/readline.inc.pl
+++ b/readline.inc.pl
@@ -2,6 +2,8 @@ use utf8;
 {
 
 '' => {
+	"\e" => ['mv', '+'],
+
 	'+<' => ['co'],
 	'+=' => '+?', #TODO: new # emacs, not in v2.0
 	'+>' => ['co'],
@@ -80,6 +82,8 @@ use utf8;
 '^x' => {
 	lead => $ascii ? "'x"  : "x̂",
 
+	"\e" => ['mv mode', '+'],
+
 	'('  => ['mv'],
 	')'  => ['mv'],
 	'e'  => ['mv'],