Mercurial > emacs
comparison src/keyboard.c @ 7502:30ce667c8026
(bind_polling_period): Never decrease polling_period.
(echo): Don't echo motion events.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 14 May 1994 22:23:38 +0000 |
parents | 6088846b51d3 |
children | 996928472982 |
comparison
equal
deleted
inserted
replaced
7501:7196bd4f57d4 | 7502:30ce667c8026 |
---|---|
582 { | 582 { |
583 int i; | 583 int i; |
584 immediate_echo = 1; | 584 immediate_echo = 1; |
585 | 585 |
586 for (i = 0; i < this_command_key_count; i++) | 586 for (i = 0; i < this_command_key_count; i++) |
587 echo_char (XVECTOR (this_command_keys)->contents[i]); | 587 { |
588 Lisp_Object c; | |
589 c = XVECTOR (this_command_keys)->contents[i]; | |
590 if (! (EVENT_HAS_PARAMETERS (c) | |
591 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement))) | |
592 echo_char (c); | |
593 } | |
588 echo_dash (); | 594 echo_dash (); |
589 } | 595 } |
590 | 596 |
591 echoing = 1; | 597 echoing = 1; |
592 message1 (echobuf); | 598 message1 (echobuf); |
1307 } | 1313 } |
1308 poll_suppress_count = count; | 1314 poll_suppress_count = count; |
1309 #endif | 1315 #endif |
1310 } | 1316 } |
1311 | 1317 |
1318 /* Bind polling_period to a value at least N. | |
1319 But don't decrease it. */ | |
1320 | |
1312 bind_polling_period (n) | 1321 bind_polling_period (n) |
1313 int n; | 1322 int n; |
1314 { | 1323 { |
1315 #ifdef POLL_FOR_INPUT | 1324 #ifdef POLL_FOR_INPUT |
1325 int new = polling_period; | |
1326 | |
1327 if (n > new) | |
1328 new = n; | |
1329 | |
1316 stop_polling (); | 1330 stop_polling (); |
1317 specbind (Qpolling_period, make_number (n)); | 1331 specbind (Qpolling_period, make_number (new)); |
1332 /* Start a new alarm with the new period. */ | |
1318 start_polling (); | 1333 start_polling (); |
1319 #endif | 1334 #endif |
1320 } | 1335 } |
1321 | 1336 |
1322 /* Applying the control modifier to CHARACTER. */ | 1337 /* Applying the control modifier to CHARACTER. */ |