--- rxvt-unicode/src/rxvtperl.xs	2006/01/10 04:23:39	1.52
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/10 04:49:54	1.53
@@ -1320,6 +1320,13 @@
           }
 }
 
+char
+rxvt_term::cur_charset ()
+	CODE:
+        RETVAL = THIS->charsets [THIS->screen.charset];
+	OUTPUT:
+        RETVAL
+
 int
 rxvt_term::selection_grab (U32 eventtime)