Mercurial > emacs

comparison src/frame.c @ 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 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\