--- rxvt-unicode/src/rxvtperl.xs	2006/01/09 00:34:36	1.45
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/09 19:25:57	1.49
@@ -717,6 +717,13 @@
         OUTPUT:
         RETVAL
 
+bool
+safe ()
+	CODE:
+        RETVAL = !rxvt_tainted ();
+        OUTPUT:
+        RETVAL
+
 NV
 NOW ()
 	CODE:
@@ -927,6 +934,20 @@
         OUTPUT:
         RETVAL
 
+char *
+rxvt_term::display_id ()
+	ALIAS:
+           display_id = 0
+           locale     = 1
+	CODE:
+        switch (ix)
+          {
+            case 0: RETVAL = THIS->display->id; break;
+            case 1: RETVAL = THIS->locale;      break;
+          }
+        OUTPUT:
+        RETVAL
+
 U32
 rxvt_term::parent ()
 	CODE:
@@ -1238,7 +1259,7 @@
         RETVAL
 
 void
-rxvt_term::cur (...)
+rxvt_term::screen_cur (...)
 	PROTOTYPE: $;$$
         ALIAS:
            screen_cur     = 0