/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.665 by pj, Sun Mar 24 20:29:38 2002 UTC revision 1.666 by pj, Mon Apr 1 13:42:32 2002 UTC
# Line 544  Lisp_Object Qswitch_frame; Line 544  Lisp_Object Qswitch_frame;
544  Lisp_Object Qdelete_frame;  Lisp_Object Qdelete_frame;
545  Lisp_Object Qiconify_frame;  Lisp_Object Qiconify_frame;
546  Lisp_Object Qmake_frame_visible;  Lisp_Object Qmake_frame_visible;
547    Lisp_Object Qselect_window;
548  Lisp_Object Qhelp_echo;  Lisp_Object Qhelp_echo;
549    
550  /* Symbols to denote kinds of events.  */  /* Symbols to denote kinds of events.  */
# Line 3791  kbd_buffer_get_event (kbp, used_mouse_me Line 3792  kbd_buffer_get_event (kbp, used_mouse_me
3792            internal_last_event_frame = frame;            internal_last_event_frame = frame;
3793            kbd_fetch_ptr = event + 1;            kbd_fetch_ptr = event + 1;
3794          }          }
3795          else if (event->kind == SELECT_WINDOW_EVENT)
3796            {
3797              /* Make an event (select-window (WINDOW)).  */
3798              obj = Fcons (event->frame_or_window, Qnil);
3799              obj = Fcons (Qselect_window, Fcons (obj, Qnil));
3800    
3801              kbd_fetch_ptr = event + 1;
3802            }
3803        else        else
3804          {          {
3805            /* If this event is on a different frame, return a switch-frame this            /* If this event is on a different frame, return a switch-frame this
# Line 10302  struct event_head head_table[] = { Line 10311  struct event_head head_table[] = {
10311    {&Qswitch_frame,        "switch-frame",        &Qswitch_frame},    {&Qswitch_frame,        "switch-frame",        &Qswitch_frame},
10312    {&Qdelete_frame,        "delete-frame",        &Qdelete_frame},    {&Qdelete_frame,        "delete-frame",        &Qdelete_frame},
10313    {&Qiconify_frame,       "iconify-frame",       &Qiconify_frame},    {&Qiconify_frame,       "iconify-frame",       &Qiconify_frame},
10314    {&Qmake_frame_visible,  "make-frame-visible",  &Qmake_frame_visible}    {&Qmake_frame_visible,  "make-frame-visible",  &Qmake_frame_visible},
10315      {&Qselect_window,       "select-window",       &Qselect_window}
10316  };  };
10317    
10318  void  void
# Line 10968  keys_of_keyboard () Line 10978  keys_of_keyboard ()
10978                              "ignore-event");                              "ignore-event");
10979    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",    initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
10980                              "ignore-event");                              "ignore-event");
10981      initial_define_lispy_key (Vspecial_event_map, "select-window",
10982                                "handle-select-window");
10983    initial_define_lispy_key (Vspecial_event_map, "save-session",    initial_define_lispy_key (Vspecial_event_map, "save-session",
10984                              "handle-save-session");                              "handle-save-session");
10985  }  }

Legend:
Removed from v.1.665  
changed lines
  Added in v.1.666

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26