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

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.127 by root, Sat May 30 08:51:23 2009 UTC vs.
Revision 1.128 by root, Sat Dec 26 09:42:16 2009 UTC

             EXTEND (SP, 2);
             PUSHs (sv_2mortal (newSViv (rc.row)));
             PUSHs (sv_2mortal (newSViv (rc.col)));
           }
-        if (items == 3)
+        if (items >= 3)
           {
             rc.row = SvIV (ST (1));
             rc.col = SvIV (ST (2));
             if (ix == 2)
             clamp_it (rc.col, 0, THIS->ncol);
             clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);
             if (ix)
               {
+                THIS->selection.screen = THIS->current_screen;
                 THIS->want_refresh = 1;
                 THIS->refresh_check ();
               }
           }
 }
-char
+int
-rxvt_term::cur_charset ()
+rxvt_term::selection_screen (int screen = -1)
 	CODE:
-        RETVAL = THIS->charsets [THIS->screen.charset];
+        RETVAL = THIS->selection.screen;
-	OUTPUT:
+        if (screen >= 0)
+          THIS->selection.screen = screen;
+        OUTPUT:
         RETVAL
 void
 rxvt_term::selection_clear ()
             THIS->selection.text = sv2wcs (newtext);
             THIS->selection.len = wcslen (THIS->selection.text);
           }
 }
+char
+rxvt_term::cur_charset ()
+	CODE:
+        RETVAL = THIS->charsets [THIS->screen.charset];
+	OUTPUT:
+        RETVAL
 void
 rxvt_term::scr_xor_rect (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle1 = RS_RVid, U32 rstyle2 = RS_RVid | RS_Uline)
 void

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