diff options
author | Pavel Janík <[email protected]> | 2002-04-01 13:42:32 +0000 |
---|---|---|
committer | Pavel Janík <[email protected]> | 2002-04-01 13:42:32 +0000 |
commit | a697f886b4a69c059bc9340f49c2b2ae335d1385 (patch) | |
tree | 078b374c1ee6c149eb8ff1810d932f16dbeceb7f /src/keyboard.c | |
parent | 827b15c6aac5cdb72151ba7e57f9795e901fa8b1 (diff) |
(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.
Diffstat (limited to 'src/keyboard.c')
-rw-r--r-- | src/keyboard.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 780d76dbb5..1ec7bfd4aa 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"); } |