From a697f886b4a69c059bc9340f49c2b2ae335d1385 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 1 Apr 2002 13:42:32 +0000 Subject: [PATCH] (Qselect_window): New symbol. (head_table): Use it. (keys_of_keyboard): Bound select-window event to handle-select-window. (kbd_buffer_get_event): Make a Lisp event from SELECT_WINDOW_EVENT. --- src/keyboard.c | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index 780d76dbb5c..1ec7bfd4aa3 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -544,6 +544,7 @@ Lisp_Object Qswitch_frame; Lisp_Object Qdelete_frame; Lisp_Object Qiconify_frame; Lisp_Object Qmake_frame_visible; +Lisp_Object Qselect_window; Lisp_Object Qhelp_echo; /* Symbols to denote kinds of events. */ @@ -3791,6 +3792,14 @@ kbd_buffer_get_event (kbp, used_mouse_menu) internal_last_event_frame = frame; kbd_fetch_ptr = event + 1; } + else if (event->kind == SELECT_WINDOW_EVENT) + { + /* Make an event (select-window (WINDOW)). */ + obj = Fcons (event->frame_or_window, Qnil); + obj = Fcons (Qselect_window, Fcons (obj, Qnil)); + + kbd_fetch_ptr = event + 1; + } else { /* If this event is on a different frame, return a switch-frame this @@ -10302,7 +10311,8 @@ struct event_head head_table[] = { {&Qswitch_frame, "switch-frame", &Qswitch_frame}, {&Qdelete_frame, "delete-frame", &Qdelete_frame}, {&Qiconify_frame, "iconify-frame", &Qiconify_frame}, - {&Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible} + {&Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible}, + {&Qselect_window, "select-window", &Qselect_window} }; void @@ -10968,6 +10978,8 @@ keys_of_keyboard () "ignore-event"); initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", "ignore-event"); + initial_define_lispy_key (Vspecial_event_map, "select-window", + "handle-select-window"); initial_define_lispy_key (Vspecial_event_map, "save-session", "handle-save-session"); } -- 2.11.4.GIT