--- rxvt-unicode/src/rxvtperl.xs	2006/01/02 21:17:01	1.6
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/02 22:23:26	1.7
@@ -392,6 +392,28 @@
 	OUTPUT:
         RETVAL
 
+int
+rxvt_term::nsaved ()
+	CODE:
+        RETVAL = THIS->nsaved;
+        OUTPUT:
+        RETVAL
+
+int
+rxvt_term::view_start (int newval = -1)
+	CODE:
+{
+        RETVAL = THIS->view_start;
+
+        if (newval >= 0)
+          {
+            THIS->view_start = min (newval, THIS->nsaved);
+            THIS->scr_changeview (RETVAL);
+          }
+}
+        OUTPUT:
+	RETVAL
+
 void
 rxvt_term::_resource (char *name, int index, SV *newval = 0)
 	PPCODE: