[Emacs-diffs] Changes to emacs/src/keyboard.c

[Pavel Janík]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.665 emacs/src/keyboard.c:1.666
*** emacs/src/keyboard.c:1.665  Sun Mar 24 15:29:38 2002
--- emacs/src/keyboard.c        Mon Apr  1 08:42:32 2002
***************
*** 544,549 ****
--- 544,550 ----
  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,3796 ****
--- 3792,3805 ----
          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,10308 ****
    {&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}
  };
  
  void
--- 10311,10318 ----
    {&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},
!   {&Qselect_window,       "select-window",       &Qselect_window}
  };
  
  void
***************
*** 10968,10973 ****
--- 10978,10985 ----
                            "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");
  }