mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-28 00:01:33 -08:00
908589fd28
* alloc.c (xpalloc, Fgarbage_collect): Reorder conditions that are written backwards. * blockinput.h (input_blocked_p): Likewise. * bytecode.c (exec_byte_code): Likewise. * callproc.c (call_process_kill, call_process_cleanup) (Fcall_process): Likewise. * ccl.c (ccl_driver, resolve_symbol_ccl_program) (Fccl_execute_on_string): Likewise. * character.c (string_escape_byte8): Likewise. * charset.c (read_hex): Likewise. * cm.c (calccost): Likewise. * data.c (cons_to_unsigned): Likewise. * dired.c (directory_files_internal, file_name_completion): Likewise. * dispnew.c (scrolling_window, update_frame_1, Fsleep_for) (sit_for): Likewise. * doc.c (Fsubstitute_command_keys): Likewise. * doprnt.c (doprnt): Likewise. * editfns.c (hi_time, decode_time_components, Fformat): Likewise. * emacsgtkfixed.c: Likewise. * fileio.c (file_offset, Fwrite_region): Likewise. * floatfns.c (Fexpt, fmod_float): Likewise. * fns.c (larger_vector, make_hash_table, Fmake_hash_table): Likewise. * font.c (font_intern_prop): Likewise. * frame.c (x_set_alpha): Likewise. * gtkutil.c (get_utf8_string): Likewise. * indent.c (check_display_width): Likewise. * intervals.c (create_root_interval, rotate_right, rotate_left) (split_interval_right, split_interval_left) (adjust_intervals_for_insertion, delete_node) (interval_deletion_adjustment, adjust_intervals_for_deletion) (merge_interval_right, merge_interval_left, copy_intervals) (set_intervals_multibyte_1): Likewise. * keyboard.c (gobble_input, append_tool_bar_item): Likewise. * keymap.c (Fkey_description): Likewise. * lisp.h (FIXNUM_OVERFLOW_P, vcopy): Likewise. * lread.c (openp, read_integer, read1, string_to_number): Likewise. * menu.c (ensure_menu_items): Likewise. * minibuf.c (read_minibuf_noninteractive): Likewise. * print.c (printchar, strout): Likewise. * process.c (create_process, Faccept_process_output) (wait_reading_process_output, read_process_output, send_process) (wait_reading_process_output): Likewise. * profiler.c (make_log, handle_profiler_signal): Likewise. * regex.c (re_exec): Likewise. * regex.h: Likewise. * search.c (looking_at_1, Freplace_match): Likewise. * sysdep.c (get_child_status, procfs_ttyname) (procfs_get_total_memory): Likewise. * systime.h (EMACS_TIME_VALID_P): Likewise. * term.c (dissociate_if_controlling_tty): Likewise. * window.c (get_phys_cursor_glyph): Likewise. * xdisp.c (init_iterator, redisplay_internal, redisplay_window) (try_window_reusing_current_matrix, try_window_id, pint2hrstr): Likewise. * xfns.c (Fx_window_property): Likewise. * xmenu.c (set_frame_menubar): Likewise. * xselect.c (x_get_window_property, x_handle_dnd_message): Likewise. * xsmfns.c (smc_save_yourself_CB): Likewise. * xterm.c (x_scroll_bar_set_handle): Likewise.
75 lines
2.4 KiB
C
75 lines
2.4 KiB
C
/* blockinput.h - interface to blocking complicated interrupt-driven input.
|
|
Copyright (C) 1989, 1993, 2001-2013 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU Emacs.
|
|
|
|
GNU Emacs is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
GNU Emacs is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
#ifndef EMACS_BLOCKINPUT_H
|
|
#define EMACS_BLOCKINPUT_H
|
|
|
|
INLINE_HEADER_BEGIN
|
|
#ifndef BLOCKINPUT_INLINE
|
|
# define BLOCKINPUT_INLINE INLINE
|
|
#endif
|
|
|
|
/* Emacs should avoid doing anything hairy in a signal handler, because
|
|
so many system functions are non-reentrant. For example, malloc
|
|
and the Xlib functions aren't usually re-entrant, so if they were
|
|
used by the SIGIO handler, we'd lose.
|
|
|
|
To avoid this, we make the following requirements:
|
|
|
|
* Everyone must evaluate BLOCK_INPUT before performing actions that
|
|
might conflict with a signal handler, and then call UNBLOCK_INPUT
|
|
after performing them. Calls BLOCK_INPUT and UNBLOCK_INPUT may be
|
|
nested.
|
|
|
|
* Any complicated interrupt handling code should test
|
|
INPUT_BLOCKED_P, and put off its work until later.
|
|
|
|
* If the interrupt handling code wishes, it may set
|
|
pending_signals to a non-zero value. If that flag is set
|
|
when input becomes unblocked, UNBLOCK_INPUT will then read
|
|
input and process timers.
|
|
|
|
Historically, Emacs signal handlers did much more than they do now,
|
|
and this caused many BLOCK_INPUT calls to be sprinkled around the code.
|
|
FIXME: Remove calls that aren't needed now. */
|
|
|
|
extern volatile int interrupt_input_blocked;
|
|
|
|
/* Begin critical section. */
|
|
|
|
BLOCKINPUT_INLINE void
|
|
block_input (void)
|
|
{
|
|
interrupt_input_blocked++;
|
|
}
|
|
|
|
extern void unblock_input (void);
|
|
extern void totally_unblock_input (void);
|
|
extern void unblock_input_to (int);
|
|
|
|
/* In critical section ? */
|
|
|
|
BLOCKINPUT_INLINE bool
|
|
input_blocked_p (void)
|
|
{
|
|
return interrupt_input_blocked > 0;
|
|
}
|
|
|
|
INLINE_HEADER_END
|
|
|
|
#endif /* EMACS_BLOCKINPUT_H */
|