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
d0a57728
Commit
d0a57728
authored
May 14, 1994
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(bind_polling_period): Never decrease polling_period.
(echo): Don't echo motion events.
parent
9b07615b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
2 deletions
+17
-2
src/keyboard.c
src/keyboard.c
+17
-2
No files found.
src/keyboard.c
View file @
d0a57728
...
...
@@ -584,7 +584,13 @@ echo ()
immediate_echo
=
1
;
for
(
i
=
0
;
i
<
this_command_key_count
;
i
++
)
echo_char
(
XVECTOR
(
this_command_keys
)
->
contents
[
i
]);
{
Lisp_Object
c
;
c
=
XVECTOR
(
this_command_keys
)
->
contents
[
i
];
if
(
!
(
EVENT_HAS_PARAMETERS
(
c
)
&&
EQ
(
EVENT_HEAD_KIND
(
EVENT_HEAD
(
c
)),
Qmouse_movement
)))
echo_char
(
c
);
}
echo_dash
();
}
...
...
@@ -1309,12 +1315,21 @@ set_poll_suppress_count (count)
#endif
}
/* Bind polling_period to a value at least N.
But don't decrease it. */
bind_polling_period
(
n
)
int
n
;
{
#ifdef POLL_FOR_INPUT
int
new
=
polling_period
;
if
(
n
>
new
)
new
=
n
;
stop_polling
();
specbind
(
Qpolling_period
,
make_number
(
n
));
specbind
(
Qpolling_period
,
make_number
(
new
));
/* Start a new alarm with the new period. */
start_polling
();
#endif
}
...
...
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