--- rxvt-unicode/src/rxvtperl.xs	2015/02/17 14:48:59	1.235
+++ rxvt-unicode/src/rxvtperl.xs	2015/06/17 11:59:37	1.237
@@ -1389,7 +1389,7 @@
 #define TERM_OFFSET_top_row     TERM_OFFSET(top_row)
 
 int
-rxvt_term::width ()
+rxvt_term::width (int new_value = NO_INIT)
 	ALIAS:
            width       = TERM_OFFSET_width
            height      = TERM_OFFSET_height
@@ -1409,6 +1409,8 @@
            top_row     = TERM_OFFSET_top_row
 	CODE:
         RETVAL = *(int *)((char *)THIS + ix);
+        if (items > 1)
+          *(int *)((char *)THIS + ix) = new_value;
         OUTPUT:
         RETVAL
 
@@ -1863,6 +1865,16 @@
 }
         OUTPUT:
         RETVAL
+
+SV *
+rxvt_term::lookup_keysym (int keysym, unsigned int state)
+        CODE:
+{
+        keysym_t *key = THIS->keyboard->lookup_keysym (THIS, keysym, state);
+        RETVAL = key ? sv_2mortal (newSVpv (key->str, 0)) : &PL_sv_undef;
+}
+        OUTPUT:
+        RETVAL
 
 bool
 rxvt_term::bind_action (octet_string keysym, octet_string action)