[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.88 by root, Sun Jan 22 00:36:59 2006 UTC vs.
Revision 1.90 by root, Sun Jan 22 20:39:47 2006 UTC

         if (events != EVENT_UNDEF)
           THIS->pty_ev.set (events);
 	OUTPUT:
         RETVAL
+int
+rxvt_term::pty_fd ()
+	CODE:
+        RETVAL = THIS->pty->pty;
+	OUTPUT:
+        RETVAL
 Window
 rxvt_term::parent ()
 	CODE:
         RETVAL = THIS->parent [0];
         OUTPUT:
         if (items == 3)
           {
             rc.row = SvIV (ST (1));
             rc.col = SvIV (ST (2));
-            if (ix == 2 && rc.col == 0)
+            if (ix == 2)
               {
+                if (rc.col == 0)
+                  {
+                    // col == 0 means end of previous line
-                rc.row--;
+                    rc.row--;
-                rc.col = THIS->ncol;
+                    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);
             clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines