Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c51c7093
Commit
c51c7093
authored
Jun 08, 2000
by
Gerd Moellmann
Browse files
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
generating a switch-frame event if necessary.
parent
eb72635f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
2 deletions
+20
-2
src/keyboard.c
src/keyboard.c
+20
-2
No files found.
src/keyboard.c
View file @
c51c7093
...
...
@@ -3315,10 +3315,28 @@ kbd_buffer_get_event (kbp, used_mouse_menu)
obj = Fcons (Qhelp_echo, event->frame_or_window);
kbd_fetch_ptr = event + 1;
}
/* If this event is on a different frame, return a switch-frame this
time, and leave the event in the queue for next time. */
else if (event->kind == FOCUS_IN_EVENT)
{
/* Notification of a FocusIn event. The frame receiving the
focus is in event->frame_or_window. Generate a
switch-frame event if necessary. */
Lisp_Object frame, focus;
frame = event->frame_or_window;
focus = FRAME_FOCUS_FRAME (XFRAME (frame));
if (FRAMEP (focus))
frame = focus;
if (!EQ (frame, internal_last_event_frame)
&& !EQ (frame, selected_frame))
obj = make_lispy_switch_frame (frame);
internal_last_event_frame = frame;
kbd_fetch_ptr = event + 1;
}
else
{
/* If this event is on a different frame, return a switch-frame this
time, and leave the event in the queue for next time. */
Lisp_Object frame;
Lisp_Object focus;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment