Index: haiku.cpp
===================================================================
RCS file: /sources/qemacs/qemacs/haiku.cpp,v
retrieving revision 1.4
diff -u -r1.4 haiku.cpp
--- haiku.cpp	19 Dec 2013 00:41:22 -0000	1.4
+++ haiku.cpp	9 Jan 2014 10:56:17 -0000
@@ -531,9 +531,9 @@
                     byte = (char)raw_char;
                 switch (byte) {
                 case B_BACKSPACE:
-                    key = KEY_BS;
+                    key = KEY_DEL;
                     if (meta)
-                        key = KEY_META(KEY_BS);
+                        key = KEY_META(KEY_DEL);
                     break;
                 case B_TAB:
                     key = KEY_TAB;