repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 45774ca738c0ee2af2270bf5cf3e06e5d4bda634:
path_to: 
revision_to: 
git.thebackupbox.net
rxvt-unicode-sixel
git clone git://git.thebackupbox.net/rxvt-unicode-sixel
commit 45774ca738c0ee2af2270bf5cf3e06e5d4bda634
Author: Emanuele Giaquinta 
Date:   Wed Jan 6 17:52:43 2010 +0000

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

diff --git a/Changes b/Changes
index 3c7f541ac159bbdaaaeba2a008903f6e8e2cd502..
index ..22914897d9893e41ffae6786ab6e2130b908c5e4 100644
--- 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..
index ..311056e5d7a61e19782e2aaf25db7079d3f83c37 100644
--- 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..
index ..4e7cb07448fc5b95fecd3a4d44a6b7dd48f7f18f 100644
--- 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..
index ..ac0b46a314ddadd581a6112e4a68bea255845b83 100644
--- 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

-----END OF PAGE-----