Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a8015ab5
Commit
a8015ab5
authored
Apr 08, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(kbd_buffer_get_event): Make buffer_switch_event lispy.
(record_asynch_buffer_change): New function. Enqueue the event.
parent
d72534ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
0 deletions
+14
-0
src/keyboard.c
src/keyboard.c
+14
-0
No files found.
src/keyboard.c
View file @
a8015ab5
...
@@ -2008,6 +2008,12 @@ kbd_buffer_get_event ()
...
@@ -2008,6 +2008,12 @@ kbd_buffer_get_event ()
kbd_fetch_ptr
=
event
+
1
;
kbd_fetch_ptr
=
event
+
1
;
}
}
#endif
#endif
else
if
(
event
->
kind
==
buffer_switch_event
)
{
/* The value doesn't matter here; only the type is tested. */
XSET
(
obj
,
Lisp_Buffer
,
current_buffer
);
kbd_fetch_ptr
=
event
+
1
;
}
/* Just discard these, by returning nil.
/* Just discard these, by returning nil.
(They shouldn't be found in the buffer,
(They shouldn't be found in the buffer,
but on some machines it appears they do show up.) */
but on some machines it appears they do show up.) */
...
@@ -3250,6 +3256,14 @@ gobble_input (expected)
...
@@ -3250,6 +3256,14 @@ gobble_input (expected)
read_avail_input
(
expected
);
read_avail_input
(
expected
);
#endif
#endif
}
}
record_asynch_buffer_change
()
{
struct
input_event
event
;
event
.
kind
=
buffer_switch_event
;
event
.
frame_or_window
=
Qnil
;
kbd_buffer_store_event
(
&
event
);
}
#ifndef VMS
#ifndef VMS
...
...
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