(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.

1 files changed, 13 insertions, 1 deletions

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");
 }