From b3075ba5909f86e931ac0485984446df8661d9ab Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 5 May 2009 20:12:06 +0000
Subject: [PATCH] readline: add emacs C-x mode

---
 readline.inc.pl | 21 +++++++++++++++++++--
 readline.plp    |  2 +-
 2 files changed, 20 insertions(+), 3 deletions(-)

diff --git a/readline.inc.pl b/readline.inc.pl
index f617218..a2931e5 100644
--- a/readline.inc.pl
+++ b/readline.inc.pl
@@ -61,10 +61,27 @@ use utf8;
 	'+u' => ["upcase word", 'mi'],
 	'^v' => ["verbatim char", 'mv'],
 	'^w' => ["delete word", 'mo ring'], # unix
-#	'^xBS' => ["delete till bol", 'mo'],
-	'^x' => ["extend$sign{_}ed", 'me arg'],
+	'^x' => ["extend$sign{_}ed", 'me arg mode^x'],
 	'^y' => ["yank top", 'co'],
 	'+y' => ["rotate yank", 'co ring'],
 	'^+y'=> ["yank arg"],
 },
 
+'^x' => {
+	lead => $ascii ? "'x"  : "x̂",
+	desc => 'emacs ctrl-x bindings',
+
+	'^h' => '^u',
+	'('  => ["start macro", 'mv'],
+	')'  => ["end macro", 'mv'],
+	'e'  => ["run macro", 'mv', 'Execute'],
+	'^e' => ["editor", 'mi ext linkvim'],
+	'^r' => ["reload inputrc", 'mv'],
+	'^u' => '^_',
+	'^x' => ["swap cursor", 'pm', 'eXchange'],
+	'^g' => '^g',
+	'^h' => '^u',
+	'^v' => ["shell version", 'ci ext'],
+	'^?' => '^x^h',
+},
+
diff --git a/readline.plp b/readline.plp
index dd81cbe..c849921 100644
--- a/readline.plp
+++ b/readline.plp
@@ -52,7 +52,7 @@ $header{content_type} = "text/html; charset=$sign{charset}";
 use Shiar_Sheet::Keyboard;
 my $keys = Shiar_Sheet::Keyboard->new({do 'readline.inc.pl'});
 $keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows}, [4,3,2]);
+$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
 :>
 </ul>
 
-- 
2.30.0