--- rxvt-unicode/src/keyboard.C	2014/04/29 13:17:54	1.65
+++ rxvt-unicode/src/keyboard.C	2014/05/17 15:25:04	1.68
@@ -91,7 +91,7 @@
 }
 
 void
-keyboard_manager::register_user_translation (KeySym keysym, unsigned int state, const wchar_t *ws)
+keyboard_manager::register_action (KeySym keysym, unsigned int state, const wchar_t *ws)
 {
   char *translation = rxvt_wcstoutf8 (ws);
 
@@ -152,10 +152,10 @@
                 term->cmdbuf_append (str + 8, strlen (str) - 8);
               else if (strncmp (str, "string:", 7) == 0)
                 term->tt_write_user_input (colon + 1, strlen (colon + 1));
-              else if (strncmp (str, "perl:", 8) == 0)
+              else if (strncmp (str, "perl:", 5) == 0)
                 HOOK_INVOKE ((term, HOOK_USER_COMMAND, DT_STR, colon + 1, DT_END));
               else
-                HOOK_INVOKE ((term, HOOK_KEYBOARD_DISPATCH, DT_STR_LEN, str, colon - str, DT_STR, colon + 1, DT_END));
+                HOOK_INVOKE ((term, HOOK_ACTION, DT_STR_LEN, str, colon - str, DT_STR, colon + 1, DT_INT, 0, DT_STR_LEN, kbuf, len, DT_END));
             }
           else
             term->tt_write_user_input (str, strlen (str));