From: Chris Hanson Date: Wed, 5 Feb 1997 19:03:58 +0000 (+0000) Subject: Add hack suggested by "amu@mit.edu (Aaron M. Ucko)" to locally bind X-Git-Tag: 20090517-FFI~5263 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fd84357aa581ce935d2f6343a725bed6b2893dfd;p=mit-scheme.git 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 4983b6fd0..793ba73be 100644 --- 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 +#include 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)); } }