# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1017668552 0
# Node ID 21286349d285d3bcf8d18e787c33fff62cca0082
# Parent  b7f9e859425aa7ffbfeaede72c1e6707474703de
(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.

diff -r b7f9e859425a -r 21286349d285 src/keyboard.c
--- 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");
 }