diff options
| author | Zandra <[email protected]> | 2015-10-08 12:09:51 +0200 |
|---|---|---|
| committer | Zandra <[email protected]> | 2015-10-08 12:09:51 +0200 |
| commit | 2e3490364359254d68c45bae7d920e70c895c9de (patch) | |
| tree | 9bcd52279cc0fe1f0b5df2c85487797aee7696c2 | |
| parent | 5472eb516e969f7f9ac50ab57b195e5b043e1d79 (diff) | |
| parent | 2c7e387961251af59f14bca39cbf8fbbe880383e (diff) | |
| download | otp-2e3490364359254d68c45bae7d920e70c895c9de.tar.gz otp-2e3490364359254d68c45bae7d920e70c895c9de.tar.bz2 otp-2e3490364359254d68c45bae7d920e70c895c9de.zip | |
Merge branch 'maint'
| -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; |