diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-10-03 09:14:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-10-03 09:14:54 +0000 |
commit | fdcbd98edd29e07a1646cb86821db2b3ec3f002c (patch) | |
tree | ceaa379f43a0f61011e50c92c6ebe6d6990d5000 | |
parent | 71af2e0d39bf9ad1e8875d729089f060855356df (diff) | |
download | emacs-fdcbd98edd29e07a1646cb86821db2b3ec3f002c.tar.gz |
(Qmouse_leave_buffer_hook): New variable.
(syms_of_frame_1): Initialize it.
(Fhandle_switch_frame): Run the hooks.
-rw-r--r-- | src/frame.c | 6 |
1 files changed, 6 insertions, 0 deletions
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); } |