git-svn-id: svn://svn.savannah.gnu.org/nano/branches/nano_1_0_branch/nano@719
35c25a1d-7b9e-4130-9fde-
d3aeb78583b8
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).
+ - Added Alt-[-7,8 support for home/end keys (Jeff Teunissen).
- THANKS:
- Added some more people.
- po/gl.po:
kbinput = KEY_NPAGE;
wgetch(edit);
break;
+ case '7':
+ kbinput = KEY_HOME;
+ wgetch(edit);
+ break;
+ case '8':
+ kbinput = KEY_END;
+ wgetch(edit);
+ break;
case '[': /* Alt-[-[-[A-E], F1-F5 in linux console */
kbinput = wgetch(edit);
- switch(kbinput) {
- case 'A':
- case 'B':
- case 'C':
- case 'D':
- case 'E':
+ if (kbinput >= 'A' && kbinput <= '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':