*** empty log message ***

diff --git a/src/command.C b/src/command.C
index 5806eea81558e73ace5408960ee42bc5a47edf5c..fbb297cd215672f3c952f93828ad044bee25eff7 100644 (file)
--- 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 4816eba5765bfa151953be85dbf5c86e3d40b136..faf8be5739c68498d7c0939eec81fd1de5b3c57c 100644 (file)
--- 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