From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Jul 1998 07:40:23 +0000 (+0000)
Subject: If the BackSpace keysym is received, and XLookupString has translated
X-Git-Tag: 20090517-FFI~4753
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3941eaf76edf3c3463da86ee65a3410f1861fe12;p=mit-scheme.git

If the BackSpace keysym is received, and XLookupString has translated
it into ASCII backspace, substitute ASCII rubout instead.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 38e4bc28d..2c244fc1a 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.71 1998/01/29 05:48:38 cph Exp $
+$Id: x11base.c,v 1.72 1998/07/31 07:40:23 cph Exp $
 
 Copyright (c) 1989-98 Massachusetts Institute of Technology
 
@@ -996,6 +996,13 @@ DEFUN (key_event, (xw, event, type),
 		    (sizeof (copy_buffer)),
 		    (&keysym),
 		    (&compose_status)));
+  /* If the BackSpace keysym is received, and XLookupString has
+     translated it into ASCII backspace, substitute ASCII rubout
+     instead.  */
+  if ((keysym == XK_BackSpace)
+      && (nbytes == 1)
+      && ((copy_buffer[0]) == '\b'))
+    (copy_buffer[0]) = '\177';
   if (IsModifierKey (keysym))
     return (SHARP_F);
   else