aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorZandra <[email protected]>2015-10-08 12:09:32 +0200
committerZandra <[email protected]>2015-10-08 12:09:32 +0200
commit2c7e387961251af59f14bca39cbf8fbbe880383e (patch)
tree6b621bfe4032becbc85f048a632d5cc19691f9f3
parentad208aaf06ae82b26e1c30d7d5523daa81b074ca (diff)
parenta3a8d25c8d884fe086d7d8ee3ebdcc732abb0abc (diff)
downloadotp-2c7e387961251af59f14bca39cbf8fbbe880383e.tar.gz
otp-2c7e387961251af59f14bca39cbf8fbbe880383e.tar.bz2
otp-2c7e387961251af59f14bca39cbf8fbbe880383e.zip
Merge branch 'tomszilagyi/shell-support-del-home-end' into maint
OTP-12032 * tomszilagyi/shell-support-del-home-end: Erlang shell: Support keys Del, Home and End
-rw-r--r--lib/stdlib/src/edlin.erl4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/stdlib/src/edlin.erl b/lib/stdlib/src/edlin.erl
index 8c7a984f1c..19444c0502 100644
--- a/lib/stdlib/src/edlin.erl
+++ b/lib/stdlib/src/edlin.erl
@@ -227,6 +227,8 @@ key_map($F, meta_o) -> end_of_line;
key_map($\177, none) -> backward_delete_char;
key_map($\177, meta) -> backward_kill_word;
key_map($[, meta) -> meta_left_sq_bracket;
+key_map($H, meta_left_sq_bracket) -> beginning_of_line;
+key_map($F, meta_left_sq_bracket) -> end_of_line;
key_map($D, meta_left_sq_bracket) -> backward_char;
key_map($C, meta_left_sq_bracket) -> forward_char;
% support a few <CTRL>+<CURSOR LEFT|RIGHT> combinations...
@@ -237,8 +239,10 @@ key_map($[, meta_meta) -> meta_csi;
key_map($C, meta_csi) -> forward_word;
key_map($D, meta_csi) -> backward_word;
key_map($1, meta_left_sq_bracket) -> {csi, "1"};
+key_map($3, meta_left_sq_bracket) -> {csi, "3"};
key_map($5, meta_left_sq_bracket) -> {csi, "5"};
key_map($5, {csi, "1;"}) -> {csi, "1;5"};
+key_map($~, {csi, "3"}) -> forward_delete_char;
key_map($C, {csi, "5"}) -> forward_word;
key_map($C, {csi, "1;5"}) -> forward_word;
key_map($D, {csi, "5"}) -> backward_word;