--- rxvt-unicode/src/rxvtperl.xs	2006/01/12 02:20:56	1.59
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/12 10:02:20	1.61
@@ -1047,6 +1047,7 @@
 
 int
 rxvt_term::view_start (int newval = -1)
+	PROTOTYPE: $;$
 	CODE:
 {
         RETVAL = THIS->view_start;
@@ -1383,6 +1384,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)