--- rxvt-unicode/src/rxvtperl.xs	2014/04/26 20:51:12	1.218
+++ rxvt-unicode/src/rxvtperl.xs	2014/05/17 15:25:04	1.222
@@ -797,7 +797,7 @@
 #   define const_iv(name) { # name, (IV)name }
     const_iv (HOOK_INIT),
     const_iv (HOOK_DESTROY),
-    const_iv (HOOK_KEYBOARD_DISPATCH),
+    const_iv (HOOK_ACTION),
 
     const_iv (NUM_RESOURCES),
     const_iv (DEFAULT_RSTYLE),
@@ -1833,9 +1833,11 @@
         RETVAL
 
 bool
-rxvt_term::parse_keysym (char *keysym, char *str)
+rxvt_term::bind_action (char *keysym, char *str)
+        ALIAS:
+           parse_keysym = 1
 	CODE:
-        RETVAL = 0 < THIS->parse_keysym (keysym, str);
+        RETVAL = 0 < THIS->bind_action (keysym, str);
         THIS->keyboard->register_done ();
 	OUTPUT:
         RETVAL
@@ -1844,7 +1846,7 @@
 rxvt_term::register_command (int keysym, unsigned int state, SV *str)
         CODE:
         wchar_t *wstr = sv2wcs (str);
-        THIS->keyboard->register_user_translation (keysym, state, wstr);
+        THIS->keyboard->register_action (keysym, state, wstr);
         free (wstr);
 
 void
@@ -1981,6 +1983,14 @@
 }
 
 void
+rxvt_term::tt_write_user_input (SV *octets)
+        INIT:
+          STRLEN len;
+          char *str = SvPVbyte (octets, len);
+	C_ARGS:
+          str, len
+
+void
 rxvt_term::tt_write (SV *octets)
         INIT:
           STRLEN len;