diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-24 20:08:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-24 20:08:10 +0000 |
| commit | 0afc861ba9d0f4780fe4031eeecdf660fbe86cfc (patch) | |
| tree | d57017759f51f72a4a3c3ea7e7e53a1ffc554c20 /src/keyboard.c | |
| parent | cf591cc18badd0af3ab7cb6bd915e1594342c78a (diff) | |
| download | emacs-0afc861ba9d0f4780fe4031eeecdf660fbe86cfc.tar.gz | |
(read_key_sequence): Fix previous change.
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 899f83b50f1..9b6c076558f 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -7404,18 +7404,18 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, = get_keyelt (access_keymap (fkey_next, key, 1, 0), 1); /* Handle symbol with autoload definition. */ - if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next)) - && CONSP (XSYMBOL (keytran_next)->function) - && EQ (XCONS (XSYMBOL (keytran_next)->function)->car, Qautoload)) - do_autoload (XSYMBOL (keytran_next)->function, - keytran_next); + if (SYMBOLP (fkey_next) && ! NILP (Ffboundp (fkey_next)) + && CONSP (XSYMBOL (fkey_next)->function) + && EQ (XCONS (XSYMBOL (fkey_next)->function)->car, Qautoload)) + do_autoload (XSYMBOL (fkey_next)->function, + fkey_next); /* Handle a symbol whose function definition is a keymap or an array. */ - if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next)) - && (!NILP (Farrayp (XSYMBOL (keytran_next)->function)) - || !NILP (Fkeymapp (XSYMBOL (keytran_next)->function)))) - keytran_next = XSYMBOL (keytran_next)->function; + if (SYMBOLP (fkey_next) && ! NILP (Ffboundp (fkey_next)) + && (!NILP (Farrayp (XSYMBOL (fkey_next)->function)) + || !NILP (Fkeymapp (XSYMBOL (fkey_next)->function)))) + fkey_next = XSYMBOL (fkey_next)->function; #if 0 /* I didn't turn this on, because it might cause trouble for the mapping of return into C-m and tab into C-i. */ |