From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 11 Aug 1993 20:28:55 +0000 (+0000)
Subject: Hacked in temporary arrow keys and Home (^A) and End (^E) keys.
X-Git-Tag: 20090517-FFI~8091
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67a58fc26f6fc03c4009f017fa819273b961843f;p=mit-scheme.git

Hacked in temporary arrow keys and Home (^A) and End (^E) keys.
---

diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c
index 7b2e30b40..221220b22 100644
--- a/v7/src/microcode/ntscreen.c
+++ b/v7/src/microcode/ntscreen.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntscreen.c,v 1.7 1993/08/07 00:09:39 adams Exp $
+$Id: ntscreen.c,v 1.8 1993/08/11 20:28:55 adams Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -2881,6 +2881,24 @@ MIT_TranslateMessage (CONST MSG * lpmsg)
 
       switch (virtual_key)
       {
+        case VK_LEFT:
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'B'-64)));
+
+        case VK_RIGHT:
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'F'-64)));
+
+        case VK_UP:
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'P'-64)));
+
+        case VK_DOWN:
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'N'-64)));
+
+        case VK_HOME:
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'A'-64)));
+
+        case VK_END:
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'E'-64)));
+
 	case VK_BACK:
 	  return (MIT_post_char_message (lpmsg, ((WPARAM) ASCII_DEL)));