From 62b4da2450a7d52fec8989f18d6ae90084b83d65 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 23 Nov 2016 13:10:36 -0700
Subject: [PATCH] x11/x11-base.scm (key-event): typo.  Fix Alt-Backspace ->
 #\M-DEL.

---
 src/x11/x11-base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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