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. */ |
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 |
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 |
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 |
} |
} |