diff options
| author | Brian Fox <bfox@gnu.org> | 1993-10-05 01:34:06 +0000 |
|---|---|---|
| committer | Brian Fox <bfox@gnu.org> | 1993-10-05 01:34:06 +0000 |
| commit | 5176382080f4bb8d7203f9daa7469fdea91b3dbd (patch) | |
| tree | 4b0395415f2c1478cff8b2430042f9df0a4f0a78 | |
| parent | 9825c716add4ee43684e9eb0b1462d8e5b9bc653 (diff) | |
| download | emacs-5176382080f4bb8d7203f9daa7469fdea91b3dbd.tar.gz | |
(read_key_sequence): Don't declare first_event; it is no longer used.
Change "#if 0" for first_event reading to "#if defined (GOBBLE_FIRST_EVENT)".
| -rw-r--r-- | src/keyboard.c | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 2d712cda8d3..388555b52fb 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -3779,7 +3779,10 @@ read_key_sequence (keybuf, bufsize, prompt) we put it off for later. While we're reading, we keep the event here. */ Lisp_Object delayed_switch_frame; + /* See the comment below... */ +#if defined (GOBBLE_FIRST_EVENT) Lisp_Object first_event; +#endif int junk; @@ -3813,14 +3816,16 @@ read_key_sequence (keybuf, bufsize, prompt) echo_start = echo_length (); keys_start = this_command_key_count; -#if 0 /* This doesn't quite work, because some of the things - that read_char does cannot safely be bypassed. - It seems too risky to try to make this work right. */ +#if defined (GOBBLE_FIRST_EVENT) + /* This doesn't quite work, because some of the things that read_char + does cannot safely be bypassed. It seems too risky to try to make + this work right. */ + /* Read the first char of the sequence specially, before setting up any keymaps, in case a filter runs and switches buffers on us. */ first_event = read_char (!prompt, 0, submaps, last_nonmenu_event, &junk); -#endif +#endif /* GOBBLE_FIRST_EVENT */ /* We jump here when the key sequence has been thoroughly changed, and we need to rescan it starting from the beginning. When we jump here, @@ -4549,7 +4554,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_ /* Prompt with buf, and then read a string, completing from and restricting to the set of all defined commands. Don't provide - any initial input. Save the command read on the extended-comman + any initial input. Save the command read on the extended-command history list. */ function = Fcompleting_read (build_string (buf), Vobarray, Qcommandp, |