From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 23 Nov 2016 20:10:36 +0000 (-0700)
Subject: x11/x11-base.scm (key-event): typo.  Fix Alt-Backspace -> #\M-DEL.
X-Git-Tag: mit-scheme-pucked-9.2.12~252^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62b4da2450a7d52fec8989f18d6ae90084b83d65;p=mit-scheme.git

x11/x11-base.scm (key-event): typo.  Fix Alt-Backspace -> #\M-DEL.
---

diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm
index f99c0ea60..151a52c33 100644
--- a/src/x11/x11-base.scm
+++ b/src/x11/x11-base.scm
@@ -274,7 +274,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 				 (cond ((and (= keysym (C-enum "XK_BackSpace"))
 					     (= nbytes 1)
 					     (= (C-> buffer "char")
-						(char->ascii #\b)))
+						(char->ascii #\backspace)))
 					(char->string #\Delete))
 				       ((> nbytes 0)
 					(let ((s (make-string nbytes)))