Add hack suggested by "amu@mit.edu (Aaron M. Ucko)" to locally bind

the BackSpace key to DEL.

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 4983b6fd038c68ad3271a658ab0ce9c605c5e5be..793ba73be8d56426ef0b13f327bf6600e046b7c4 100644 (file)
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.69 1996/12/11 07:23:10 cph Exp $
+$Id: x11base.c,v 1.70 1997/02/05 19:03:58 cph Exp $
 
-Copyright (c) 1989-96 Massachusetts Institute of Technology
+Copyright (c) 1989-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -41,6 +41,7 @@ MIT in each case. */
 #include "osio.h"
 #include "x11.h"
 #include <X11/Xmd.h>
+#include <X11/keysym.h>
 
 extern void EXFUN (block_signals, (void));
 extern void EXFUN (unblock_signals, (void));
@@ -1432,6 +1433,7 @@ DEFINE_PRIMITIVE ("X-OPEN-DISPLAY", Prim_x_open_display, 1, 1, 0)
     (XD_WM_TAKE_FOCUS (xd)) =
       (XInternAtom ((XD_DISPLAY (xd)), "WM_TAKE_FOCUS", False));
     (XD_CACHED_EVENT_P (xd)) = 0;
+    XRebindKeysym ((XD_DISPLAY (xd)), XK_BackSpace, 0, 0, "\177", 1);
     PRIMITIVE_RETURN (XD_TO_OBJECT (xd));
   }
 }