diff options
| author | Zandra <[email protected]> | 2015-10-08 12:09:32 +0200 |
|---|---|---|
| committer | Zandra <[email protected]> | 2015-10-08 12:09:32 +0200 |
| commit | 2c7e387961251af59f14bca39cbf8fbbe880383e (patch) | |
| tree | 6b621bfe4032becbc85f048a632d5cc19691f9f3 | |
| parent | ad208aaf06ae82b26e1c30d7d5523daa81b074ca (diff) | |
| parent | a3a8d25c8d884fe086d7d8ee3ebdcc732abb0abc (diff) | |
| download | otp-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.erl | 4 |
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; |