diff options
| author | Tim Ruffing | 2024-03-09 12:15:22 +0100 |
|---|---|---|
| committer | Stefan Monnier | 2024-03-10 10:40:21 -0400 |
| commit | 2fdb281a276af57c104008d68ae95c7f4b1c3da8 (patch) | |
| tree | e2f4bd2a7472ca2ade17e7f2bd46c9e133d31516 /src | |
| parent | df3e0bcbdbcfe907d7572b5561dd2bf9c3715a4a (diff) | |
| download | emacs-2fdb281a276af57c104008d68ae95c7f4b1c3da8.tar.gz emacs-2fdb281a276af57c104008d68ae95c7f4b1c3da8.zip | |
* src/keyboard.c (read_key_sequence): Remove MSVC compatibility hack
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index cadb376430e..1ba74a59537 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -10442,9 +10442,6 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt, | |||
| 10442 | Lisp_Object original_uppercase UNINIT; | 10442 | Lisp_Object original_uppercase UNINIT; |
| 10443 | int original_uppercase_position = -1; | 10443 | int original_uppercase_position = -1; |
| 10444 | 10444 | ||
| 10445 | /* Gets around Microsoft compiler limitations. */ | ||
| 10446 | bool dummyflag = false; | ||
| 10447 | |||
| 10448 | #ifdef HAVE_TEXT_CONVERSION | 10445 | #ifdef HAVE_TEXT_CONVERSION |
| 10449 | bool disabled_conversion; | 10446 | bool disabled_conversion; |
| 10450 | 10447 | ||
| @@ -10693,10 +10690,7 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt, | |||
| 10693 | && !requeued_events_pending_p ()) | 10690 | && !requeued_events_pending_p ()) |
| 10694 | { | 10691 | { |
| 10695 | t = 0; | 10692 | t = 0; |
| 10696 | /* The Microsoft C compiler can't handle the goto that | 10693 | goto done; |
| 10697 | would go here. */ | ||
| 10698 | dummyflag = true; | ||
| 10699 | break; | ||
| 10700 | } | 10694 | } |
| 10701 | /* Otherwise, we should actually read a character. */ | 10695 | /* Otherwise, we should actually read a character. */ |
| 10702 | else | 10696 | else |
| @@ -11291,10 +11285,7 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt, | |||
| 11291 | && help_char_p (EVENT_HEAD (key)) && t > 1) | 11285 | && help_char_p (EVENT_HEAD (key)) && t > 1) |
| 11292 | { | 11286 | { |
| 11293 | read_key_sequence_cmd = Vprefix_help_command; | 11287 | read_key_sequence_cmd = Vprefix_help_command; |
| 11294 | /* The Microsoft C compiler can't handle the goto that | 11288 | goto done; |
| 11295 | would go here. */ | ||
| 11296 | dummyflag = true; | ||
| 11297 | break; | ||
| 11298 | } | 11289 | } |
| 11299 | 11290 | ||
| 11300 | /* If KEY is not defined in any of the keymaps, | 11291 | /* If KEY is not defined in any of the keymaps, |
| @@ -11343,8 +11334,9 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt, | |||
| 11343 | } | 11334 | } |
| 11344 | } | 11335 | } |
| 11345 | } | 11336 | } |
| 11346 | if (!dummyflag) | 11337 | read_key_sequence_cmd = current_binding; |
| 11347 | read_key_sequence_cmd = current_binding; | 11338 | |
| 11339 | done: | ||
| 11348 | read_key_sequence_remapped | 11340 | read_key_sequence_remapped |
| 11349 | /* Remap command through active keymaps. | 11341 | /* Remap command through active keymaps. |
| 11350 | Do the remapping here, before the unbind_to so it uses the keymaps | 11342 | Do the remapping here, before the unbind_to so it uses the keymaps |