Mercurial > emacs
changeset 44300:21286349d285
(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.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Mon, 01 Apr 2002 13:42:32 +0000 |
| parents | b7f9e859425a |
| children | 1892db006468 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Mon Apr 01 13:41:03 2002 +0000 +++ b/src/keyboard.c Mon Apr 01 13:42:32 2002 +0000 @@ -544,6 +544,7 @@ 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 @@ 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 @@ {&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 @@ "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"); }