diff options
Diffstat (limited to 'src/keyboard.c')
-rw-r--r-- | src/keyboard.c | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 55486c6d9ab..3442b18409a 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -39,6 +39,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #include "intervals.h" #include "keymap.h" #include "blockinput.h" +#include "sysstdio.h" #include "systime.h" #include "atimer.h" #include "process.h" @@ -3290,7 +3291,7 @@ record_char (Lisp_Object c) if (INTEGERP (c)) { if (XUINT (c) < 0x100) - putc (XUINT (c), dribble); + putc_unlocked (XUINT (c), dribble); else fprintf (dribble, " 0x%"pI"x", XUINT (c)); } @@ -3303,15 +3304,15 @@ record_char (Lisp_Object c) if (SYMBOLP (dribblee)) { - putc ('<', dribble); - fwrite (SDATA (SYMBOL_NAME (dribblee)), sizeof (char), - SBYTES (SYMBOL_NAME (dribblee)), - dribble); - putc ('>', dribble); + putc_unlocked ('<', dribble); + fwrite_unlocked (SDATA (SYMBOL_NAME (dribblee)), sizeof (char), + SBYTES (SYMBOL_NAME (dribblee)), + dribble); + putc_unlocked ('>', dribble); } } - fflush (dribble); + fflush_unlocked (dribble); unblock_input (); } } @@ -3769,7 +3770,7 @@ kbd_buffer_get_event (KBOARD **kbp, detaching from the terminal. */ || (IS_DAEMON && DAEMON_RUNNING)) { - int c = getchar (); + int c = getchar_unlocked (); XSETINT (obj, c); *kbp = current_kboard; return obj; @@ -10377,7 +10378,7 @@ handle_interrupt (bool in_signal_handler) sigemptyset (&blocked); sigaddset (&blocked, SIGINT); pthread_sigmask (SIG_BLOCK, &blocked, 0); - fflush (stdout); + fflush_unlocked (stdout); } reset_all_sys_modes (); |