--- rxvt-unicode/src/rxvtperl.xs	2006/01/22 00:36:59	1.88
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/22 20:39:47	1.90
@@ -1176,6 +1176,13 @@
 	OUTPUT:
         RETVAL
 
+int
+rxvt_term::pty_fd ()
+	CODE:
+        RETVAL = THIS->pty->pty;
+	OUTPUT:
+        RETVAL
+
 Window
 rxvt_term::parent ()
 	CODE:
@@ -1533,10 +1540,20 @@
             rc.row = SvIV (ST (1));
             rc.col = SvIV (ST (2));
 
-            if (ix == 2 && rc.col == 0)
+            if (ix == 2)
               {
-                rc.row--;
-                rc.col = THIS->ncol;
+                if (rc.col == 0)
+                  {
+                    // col == 0 means end of previous line
+                    rc.row--;
+                    rc.col = THIS->ncol;
+                  }
+                else if (IN_RANGE_EXC (rc.row, THIS->top_row, THIS->nrow)
+                         && rc.col > ROW(rc.row).l)
+                  {
+                    // col >= length means while line and add newline
+                    rc.col = THIS->ncol;
+                  }
               }
 
             clamp_it (rc.col, 0, THIS->ncol);