From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 24 Aug 1993 16:15:06 +0000 (+0000)
Subject: Separate DELETE key now returns ^D
X-Git-Tag: 20090517-FFI~7993
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36f362072a36ccc34fce7fc97b0e25361af37e46;p=mit-scheme.git

Separate DELETE key now returns ^D
---

diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c
index e900d0a81..ab2ac70e0 100644
--- a/v7/src/microcode/ntscreen.c
+++ b/v7/src/microcode/ntscreen.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntscreen.c,v 1.9 1993/08/24 06:27:19 gjr Exp $
+$Id: ntscreen.c,v 1.10 1993/08/24 16:15:06 adams Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -2940,7 +2940,7 @@ MIT_TranslateMessage (CONST MSG * lpmsg)
 	  return (MIT_post_char_message (lpmsg, ((WPARAM) ASCII_DEL)));
 
 	case VK_DELETE:
-	  return (MIT_post_char_message (lpmsg, ((WPARAM) ASCII_BS)));
+	  return (MIT_post_char_message (lpmsg, ((WPARAM) 'D'-64)));
 	  
 	case VK_SPACE:
 	  if (