From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Oct 1995 09:14:54 +0000 (+0000)
Subject: (Qmouse_leave_buffer_hook): New variable.
X-Git-Tag: emacs-19.34~2754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e05169e2ea8280a89a6833c8868a8be081954e6a;p=emacs.git

(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 304fe8a879a..857f0eb1332 100644
--- 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);
 }
 
 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);
 }