From: root <root>
Date: Wed, 4 Jan 2006 00:09:12 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=82f8306526fdacb1187d5ded918a77dfd79d9527;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/command.C b/src/command.C
index 5806eea8..fbb297cd 100644
--- a/src/command.C
+++ b/src/command.C
@@ -3968,12 +3968,19 @@ rxvt_term::process_xterm_seq (int op, const char *str, unsigned char resp)
         if (lines)
           scr_page (op == URxvt_view_up ? UP : DN, lines);
         else
-          {
-            scr_erase_savelines ();
-          }
+          scr_erase_savelines ();
 
         break;
 #endif
+
+#if ENABLE_PERL
+      case URxvt_perl:
+        if (PERL_INVOKE ((this, HOOK_OSC_SEQ, DT_STRING, str, DT_END)))
+          ; // no responses yet
+        break;
+
+#endif
+
     }
 }
 /*----------------------------------------------------------------------*/
diff --git a/src/urxvt.pm b/src/urxvt.pm
index 4816eba5..faf8be57 100644
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -174,6 +174,14 @@ number of lines that will be in the scrollback buffer.
 
 Called whenever the program(s) running in the urxvt window send output.
 
+=item on_osc_seq $term, $string
+
+Called whenever the B<ESC ] 777 ; string ST> command sequence is
+processed. Cursor position and other state information is up-to-date when
+this happens. For interoperability, the string should start with the
+extension name and a colon, to distinguish it from commands for other
+extensions, and this might be enforced in the future.
+
 =item on_refresh_begin $term
 
 Called just before the screen gets redrawn. Can be used for overlay