From e05169e2ea8280a89a6833c8868a8be081954e6a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Oct 1995 09:14:54 +0000 Subject: [PATCH] (Qmouse_leave_buffer_hook): New variable. (syms_of_frame_1): Initialize it. (Fhandle_switch_frame): Run the hooks. --- src/frame.c | 6 ++++++ 1 file changed, 6 insertions(+) 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); } -- 2.39.2