readline: mark keys setting the kill ring

[sheet.git] / readline.inc.pl

diff --git a/readline.inc.pl b/readline.inc.pl
index 288885fdc86b4877261d89b3becda6e3eb8d42dd..9253532d91f90488fe57ffa9c777cc243004c2bc 100644 (file)
--- a/readline.inc.pl
+++ b/readline.inc.pl
@@ -25,7 +25,7 @@ use utf8;
        '+b' => ["word back$sign{_}w$sign{_}ard$sign{_}s", 'pm'],
        '+c' => ["capital$sign{_}ise word", 'mi'],
        '^d' => ["delete char", 'mo'],
-       '+d' => ["delete word rem$sign{_}ain$sign{_}der", 'mo'],
+       '+d' => ["delete word rem$sign{_}ain$sign{_}der", 'mo ring'],
 #      '^e' => ["emacs mode", 'me'],
        '^e' => ["end of line", 'pm'],
        '^f' => ["char forward", 'pm'],
@@ -35,7 +35,7 @@ use utf8;
        '^i' => ["complete", 'mi', '(tab)'],
        '^j' => '^m',
        '^+j'=> ["vim mode", 'me'],
-       '^k' => ["delete till eol", 'mo'],
+       '^k' => ["delete till eol", 'mo ring'],
        '^l' => ["clear screen", 'ci'],
        '+l' => ["lowcase word", 'mi'],
        '^m' => ["enter line", 'co', '(enter)'],
@@ -49,10 +49,10 @@ use utf8;
        '^s' => ["search history", 'co'],
        '^t' => ["move char forw$sign{_}ard", 'mi', 'Transpose char'],
        '+t' => ["move word forw$sign{_}ard", 'mi', 'Transpose word'],
-       '^u' => ["delete till bol", 'mo'], # unix
+       '^u' => ["delete till bol", 'mo ring'], # unix
        '+u' => ["upcase word", 'mi'],
        '^v' => ["verbatim char", 'mv'],
-       '^w' => ["delete word", 'mo'], # unix
+       '^w' => ["delete word", 'mo ring'], # unix
 #      '^xBS' => ["delete till bol", 'mo'],
        '^x' => ["extend$sign{_}ed", 'me arg'],
        '^y' => ["yank top", 'co'],