Add on_bell perl hook that is called on receipt of a bell character.

diff --git a/Changes b/Changes
index 3c7f541ac159bbdaaaeba2a008903f6e8e2cd502..22914897d9893e41ffae6786ab6e2130b908c5e4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 rxvt-unicode changelog <= google-friendly title
 
+       - new on_bell perl hook (Emanuele Giaquinta).       
        - new iso14755 option to disable ISO 14755 at runtime (Emanuele Giaquinta).
 
 9.07 Wed Dec 30 07:07:18 CET 2009

diff --git a/src/hookinc.h b/src/hookinc.h
index 346fc59528369189c89102ffcc20e3eafc81f928..311056e5d7a61e19782e2aaf25db7079d3f83c37 100644 (file)
--- a/src/hookinc.h
+++ b/src/hookinc.h
@@ -52,3 +52,5 @@
 
   def (CUSTOM_REND) // hovering over custom rendition, generate enter/leave maybe?
 
+  def (BELL)
+

diff --git a/src/screen.C b/src/screen.C
index 0d75f14093f852f2516b10a07d722f2e2eeab214..4e7cb07448fc5b95fecd3a4d44a6b7dd48f7f18f 100644 (file)
--- a/src/screen.C
+++ b/src/screen.C
@@ -1935,6 +1935,7 @@ rxvt_term::scr_bell () NOTHROW
     }
   else
     XBell (dpy, 0);
+  HOOK_INVOKE ((this, HOOK_BELL, DT_END));
 #endif
 }
 

diff --git a/src/urxvt.pm b/src/urxvt.pm
index 02e773c5f8a1cd4e30f70c4272aa9efa53b9381e..ac0b46a314ddadd581a6112e4a68bea255845b83 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -711,6 +711,10 @@ subwindow.
 Called when various types of ClientMessage events are received (all with
 format=32, WM_PROTOCOLS or WM_PROTOCOLS:WM_DELETE_WINDOW).
 
+=item on_bell $term
+
+Called on receipt of a bell character.
+
 =back
 
 =cut