diff options
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\ |