--- rxvt-unicode/src/rxvtperl.xs	2006/01/12 02:20:56	1.59
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/12 05:22:47	1.60
@@ -1383,6 +1383,16 @@
 	OUTPUT:
         RETVAL
 
+#void
+#rxvt_term::selection_clear ()
+
+void
+rxvt_term::selection_make (U32 eventtime, bool rect = false)
+	CODE:
+        THIS->selection.op = SELECTION_CONT;
+        THIS->selection.rect = rect;
+        THIS->selection_make (eventtime);
+
 int
 rxvt_term::selection_grab (U32 eventtime)