From 00907c2587256ac09cc35ee4b9c26d6311a4dadb Mon Sep 17 00:00:00 2001 From: Chris Allegretta Date: Wed, 4 Jul 2001 16:06:21 +0000 Subject: [PATCH] main() - Added Alt-[-[-7,8 support for home/end keys (Jeff Teunissen). git-svn-id: svn://svn.savannah.gnu.org/nano/branches/nano_1_0_branch/nano@718 35c25a1d-7b9e-4130-9fde-d3aeb78583b8 --- ChangeLog | 3 +++ nano.c | 21 ++++++++++++++++++++- 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0559e170..bff1d91a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -3,6 +3,9 @@ CVS code - do_browser() - More Picoish keystrokes for the browser, ^P, ^N, etc, for up, down, etc, and add the consistent ^C to exit (Jim Knoble). +- nano.c: + main() + - Added Alt-[-[-7,8 support for home/end keys (Jeff Teunissen). - THANKS: - Added some more people. - po/gl.po: diff --git a/nano.c b/nano.c index a495a4c0..058b71d6 100644 --- a/nano.c +++ b/nano.c @@ -2535,8 +2535,27 @@ int main(int argc, char *argv[]) break; case '[': /* Alt-[-[-[A-E], F1-F5 in linux console */ kbinput = wgetch(edit); - if (kbinput >= 'A' && kbinput <= 'E') + switch(kbinput) { + case 'A': + case 'B': + case 'C': + case 'D': + case 'E': kbinput = KEY_F(kbinput - 64); + break; + case 7: + kbinput = KEY_HOME; + break; + case 8: + kbinput = KEY_END; + break; +#ifdef DEBUG + default: + fprintf(stderr, _("I got Alt-[-[-%c! (%d)\n"), + kbinput, kbinput); + break; +#endif + } break; case 'A': case 'B': -- 2.39.5