diff options
| author | Jim Blandy | 1993-05-10 00:17:08 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-10 00:17:08 +0000 |
| commit | ad163903cc2d44a2033312d0685031d54aafffb2 (patch) | |
| tree | 2f07f56adfc0a53be05cffec75b8ed15f636442c /src | |
| parent | be269961dc77973b482f07bd5c84cb9093e4443c (diff) | |
| download | emacs-ad163903cc2d44a2033312d0685031d54aafffb2.tar.gz emacs-ad163903cc2d44a2033312d0685031d54aafffb2.zip | |
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
defined everywhere this file is #included; merge the two
definitions for defined (SIGIO) and ! defined (SIGIO) into one,
which calls reinvoke_input_signal if interrupt_input_pending is
set.
* keyboard.c (reinvoke_input_signal): New function.
* keyboard.c (syms_of_keyboard): Doc fix for
extra-keyboard-modifiers.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 8083c066b22..3e8a522a073 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -2928,6 +2928,22 @@ input_available_signal (signo) | |||
| 2928 | errno = old_errno; | 2928 | errno = old_errno; |
| 2929 | } | 2929 | } |
| 2930 | #endif /* SIGIO */ | 2930 | #endif /* SIGIO */ |
| 2931 | |||
| 2932 | /* Send ourselves a SIGIO. | ||
| 2933 | |||
| 2934 | This function exists so that the UNBLOCK_INPUT macro in | ||
| 2935 | blockinput.h can have some way to take care of input we put off | ||
| 2936 | dealing with, without assuming that every file which uses | ||
| 2937 | UNBLOCK_INPUT also has #included the files necessary to get SIGIO. */ | ||
| 2938 | void | ||
| 2939 | reinvoke_input_signal () | ||
| 2940 | { | ||
| 2941 | #ifdef SIGIO | ||
| 2942 | kill (0, SIGIO); | ||
| 2943 | #endif | ||
| 2944 | } | ||
| 2945 | |||
| 2946 | |||
| 2931 | 2947 | ||
| 2932 | /* Return the prompt-string of a sparse keymap. | 2948 | /* Return the prompt-string of a sparse keymap. |
| 2933 | This is the first element which is a string. | 2949 | This is the first element which is a string. |
| @@ -4852,8 +4868,8 @@ Type this character while in a menu prompt to rotate around the lines of it."); | |||
| 4852 | 4868 | ||
| 4853 | DEFVAR_INT ("extra-keyboard-modifiers", &extra_keyboard_modifiers, | 4869 | DEFVAR_INT ("extra-keyboard-modifiers", &extra_keyboard_modifiers, |
| 4854 | "A mask of additional modifier keys to use with every keyboard character.\n\ | 4870 | "A mask of additional modifier keys to use with every keyboard character.\n\ |
| 4855 | The modifiers of the character stored here apply to each keyboard\n\ | 4871 | Emacs applies the modifiers of the character stored here to each keyboard\n\ |
| 4856 | character we read. For example, after evaluating the expression\n\ | 4872 | character it reads. For example, after evaluating the expression\n\ |
| 4857 | (setq extra-keyboard-modifiers ?\C-x)\n\ | 4873 | (setq extra-keyboard-modifiers ?\C-x)\n\ |
| 4858 | all input characters will have the control modifier applied to them.\n\ | 4874 | all input characters will have the control modifier applied to them.\n\ |
| 4859 | \n\ | 4875 | \n\ |