4002 |
internal_last_event_frame = frame; |
internal_last_event_frame = frame; |
4003 |
kbd_fetch_ptr = event + 1; |
kbd_fetch_ptr = event + 1; |
4004 |
} |
} |
|
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; |
|
|
} |
|
4005 |
else |
else |
4006 |
{ |
{ |
4007 |
/* 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 |
5650 |
return event->arg; |
return event->arg; |
5651 |
#endif |
#endif |
5652 |
|
|
5653 |
|
case SELECT_WINDOW_EVENT: |
5654 |
|
/* Make an event (select-window (WINDOW)). */ |
5655 |
|
return Fcons (Qselect_window, |
5656 |
|
Fcons (Fcons (event->frame_or_window, Qnil), |
5657 |
|
Qnil)); |
5658 |
|
|
5659 |
case TOOL_BAR_EVENT: |
case TOOL_BAR_EVENT: |
5660 |
if (EQ (event->arg, event->frame_or_window)) |
if (EQ (event->arg, event->frame_or_window)) |
5661 |
/* This is the prefix key. We translate this to |
/* This is the prefix key. We translate this to |
11274 |
"ignore-event"); |
"ignore-event"); |
11275 |
initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", |
initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", |
11276 |
"ignore-event"); |
"ignore-event"); |
11277 |
initial_define_lispy_key (Vspecial_event_map, "select-window", |
/* Handling it at such a low-level causes read_key_sequence to get |
11278 |
"handle-select-window"); |
* confused because it doesn't realize that the current_buffer was |
11279 |
|
* changed by read_char. |
11280 |
|
* |
11281 |
|
* initial_define_lispy_key (Vspecial_event_map, "select-window", |
11282 |
|
* "handle-select-window"); */ |
11283 |
initial_define_lispy_key (Vspecial_event_map, "save-session", |
initial_define_lispy_key (Vspecial_event_map, "save-session", |
11284 |
"handle-save-session"); |
"handle-save-session"); |
11285 |
} |
} |