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 f99c0ea60cc84ab026c8fb21e3214c5104445063..151a52c333e59ee0d29e467c62ce52c02870fd48 100644 (file)
--- 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)))