Mercurial > emacs
comparison src/frame.c @ 13106:22011e724596
(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 | bca5676d8cb9 |
children | b44cc5a62941 |
comparison
equal
deleted
inserted
replaced
13105:a9efbc138c23 | 13106:22011e724596 |
---|---|
78 Lisp_Object Qx; | 78 Lisp_Object Qx; |
79 Lisp_Object Qvisible; | 79 Lisp_Object Qvisible; |
80 Lisp_Object Qbuffer_predicate; | 80 Lisp_Object Qbuffer_predicate; |
81 | 81 |
82 Lisp_Object Vterminal_frame; | 82 Lisp_Object Vterminal_frame; |
83 | |
84 Lisp_Object Qmouse_leave_buffer_hook; | |
83 | 85 |
84 static void | 86 static void |
85 syms_of_frame_1 () | 87 syms_of_frame_1 () |
86 { | 88 { |
87 /*&&& init symbols here &&&*/ | 89 /*&&& init symbols here &&&*/ |
111 staticpro (&Qx); | 113 staticpro (&Qx); |
112 Qvisible = intern ("visible"); | 114 Qvisible = intern ("visible"); |
113 staticpro (&Qvisible); | 115 staticpro (&Qvisible); |
114 Qbuffer_predicate = intern ("buffer-predicate"); | 116 Qbuffer_predicate = intern ("buffer-predicate"); |
115 staticpro (&Qbuffer_predicate); | 117 staticpro (&Qbuffer_predicate); |
118 | |
119 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook"); | |
120 staticpro (&Qmouse_leave_buffer_hook); | |
116 } | 121 } |
117 | 122 |
118 static void | 123 static void |
119 set_menu_bar_lines_1 (window, n) | 124 set_menu_bar_lines_1 (window, n) |
120 Lisp_Object window; | 125 Lisp_Object window; |
600 (frame, no_enter) | 605 (frame, no_enter) |
601 Lisp_Object frame, no_enter; | 606 Lisp_Object frame, no_enter; |
602 { | 607 { |
603 /* Preserve prefix arg that the command loop just cleared. */ | 608 /* Preserve prefix arg that the command loop just cleared. */ |
604 current_kboard->Vprefix_arg = Vcurrent_prefix_arg; | 609 current_kboard->Vprefix_arg = Vcurrent_prefix_arg; |
610 call1 (Vrun_hooks, Qmouse_leave_buffer_hook); | |
605 return do_switch_frame (frame, no_enter, 0); | 611 return do_switch_frame (frame, no_enter, 0); |
606 } | 612 } |
607 | 613 |
608 DEFUN ("ignore-event", Fignore_event, Signore_event, 0, 0, "", | 614 DEFUN ("ignore-event", Fignore_event, Signore_event, 0, 0, "", |
609 "Do nothing, but preserve any prefix argument already specified.\n\ | 615 "Do nothing, but preserve any prefix argument already specified.\n\ |