From 0891e329b2f7d14c7ae8b8cdbefda513d1d796a7 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 27 Mar 2012 23:07:36 +0200
Subject: [PATCH] readline: force escape row display regardless of visible
 modes

---
 Shiar_Sheet/Keyboard.pm | 1 +
 readline.inc.pl         | 4 ++++
 2 files changed, 5 insertions(+)

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'],
-- 
2.30.0