nano

commit 16eb518dcd46ffe15f1c23f0e098eccc929eddb9
parent 498e13df30e0454d2b3b1d2597861c48b0b38640
Author: David Lawrence Ramsey <pooka109@gmail.com>
Date:   Thu,  3 Jun 2004 20:26:12 +0000

support KEY_A1, KEY_A3, KEY_C1, and KEY_C3 on the numeric keypad


git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@1800 35c25a1d-7b9e-4130-9fde-d3aeb78583b8

Diffstat:
M
ChangeLog
 | 
3
++-
M
src/winio.c
 | 
24
+++++++++++++++++++++---

2 files changed, 23 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
@@ -306,7 +306,8 @@ CVS code -
 	  realloc(). (DLR)
   get_accepted_kbinput()
 	- Add proper support for the keypad values and escape sequences
-	  generated by the NumLock glitch. (DLR)
+	  generated by the NumLock glitch and by certain keys on the
+	  numeric keypad. (DLR)
   get_escape_seq_kbinput()
 	- Add proper support for the keypad values and escape sequences
 	  generated by the NumLock glitch. (DLR)
diff --git a/src/winio.c b/src/winio.c
@@ -283,15 +283,33 @@ int get_translated_kbinput(int kbinput, int *es
 			case KEY_ENTER:
 			    retval = NANO_ENTER_KEY;
 			    break;
+			case KEY_A1:	/* Home (7) on numeric keypad
+					 * with NumLock off. */
+			    retval = NANO_HOME_KEY;
+			    break;
+			case KEY_A3:	/* PageUp (9) on numeric keypad
+					 * with NumLock off. */
+			    retval = NANO_PREVPAGE_KEY;
+			    break;
 			case KEY_B2:	/* Center (5) on numeric keypad
-					 * with NumLock off on xterm. */
+					 * with NumLock off. */
+			    retval = ERR;
+			    break;
+			case KEY_C1:	/* End (1) on numeric keypad
+					 * with NumLock off. */
+			    retval = NANO_END_KEY;
+			    break;
+			case KEY_C3:	/* PageDown (4) on numeric
+					 * keypad with NumLock off. */
+			    retval = NANO_NEXTPAGE_KEY;
+			    break;
 #ifdef KEY_BEG
 			/* Slang doesn't support KEY_BEG. */
 			case KEY_BEG:	/* Center (5) on numeric keypad
-					 * with NumLock off on Eterm. */
-#endif
+					 * with NumLock off. */
 			    retval = ERR;
 			    break;
+#endif
 #ifdef KEY_END
 			/* HP-UX 10 and 11 don't support KEY_END. */
 			case KEY_END: