aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTim Ruffing2024-03-09 12:15:22 +0100
committerStefan Monnier2024-03-10 10:40:21 -0400
commit2fdb281a276af57c104008d68ae95c7f4b1c3da8 (patch)
treee2f4bd2a7472ca2ade17e7f2bd46c9e133d31516 /src
parentdf3e0bcbdbcfe907d7572b5561dd2bf9c3715a4a (diff)
downloademacs-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.c18
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