# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812711694 0
# Node ID 22011e7245960b7cc71bf652349af94912cbf796
# Parent  a9efbc138c2335960a3bf7bf88cfb9a3c951ea63
(Qmouse_leave_buffer_hook): New variable.
(syms_of_frame_1): Initialize it.
(Fhandle_switch_frame): Run the hooks.

diff -r a9efbc138c23 -r 22011e724596 src/frame.c
--- a/src/frame.c	Tue Oct 03 09:13:55 1995 +0000
+++ b/src/frame.c	Tue Oct 03 09:14:54 1995 +0000
@@ -81,6 +81,8 @@
 
 Lisp_Object Vterminal_frame;
 
+Lisp_Object Qmouse_leave_buffer_hook;
+
 static void
 syms_of_frame_1 ()
 {
@@ -113,6 +115,9 @@
   staticpro (&Qvisible);
   Qbuffer_predicate = intern ("buffer-predicate");
   staticpro (&Qbuffer_predicate);
+
+  Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook");
+  staticpro (&Qmouse_leave_buffer_hook);
 }
 
 static void
@@ -602,6 +607,7 @@
 {
   /* Preserve prefix arg that the command loop just cleared.  */
   current_kboard->Vprefix_arg = Vcurrent_prefix_arg;
+  call1 (Vrun_hooks, Qmouse_leave_buffer_hook);
   return do_switch_frame (frame, no_enter, 0);
 }