From 3941eaf76edf3c3463da86ee65a3410f1861fe12 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Jul 1998 07:40:23 +0000
Subject: [PATCH] If the BackSpace keysym is received, and XLookupString has
 translated it into ASCII backspace, substitute ASCII rubout instead.

---
 v7/src/microcode/x11base.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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
-- 
2.25.1