(Qmouse_leave_buffer_hook): New variable.

(syms_of_frame_1): Initialize it.
(Fhandle_switch_frame): Run the hooks.

diff --git a/src/frame.c b/src/frame.c
index 304fe8a879a18576397571a2028a9f1776855938..857f0eb1332de0814a8cdc3156c9907dcbba71c7 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -81,6 +81,8 @@ Lisp_Object Qbuffer_predicate;
 
 Lisp_Object Vterminal_frame;
 
+Lisp_Object Qmouse_leave_buffer_hook;
+
 static void
 syms_of_frame_1 ()
 {
@@ -113,6 +115,9 @@ syms_of_frame_1 ()
   staticpro (&Qvisible);
   Qbuffer_predicate = intern ("buffer-predicate");
   staticpro (&Qbuffer_predicate);
+
+  Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook");
+  staticpro (&Qmouse_leave_buffer_hook);
 }
 \f
 static void
@@ -602,6 +607,7 @@ to that frame.")
 {
   /* 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);
 }