Mercurial > emacs

changeset 13106:22011e724596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qmouse_leave_buffer_hook): New variable. (syms_of_frame_1): Initialize it. (Fhandle_switch_frame): Run the hooks.
author Richard M. Stallman <rms@gnu.org>
date Tue, 03 Oct 1995 09:14:54 +0000
parents a9efbc138c23
children fab67884f69a
files src/frame.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }