diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-11 15:30:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-11 15:30:06 +0000 |
| commit | c700c260e6ac76dc99449dfc3e4c371b7863f1a1 (patch) | |
| tree | 774cb6bf087ff80e90d69a4c30c33f4c1acbacb4 | |
| parent | bbd25f47ef6f4c929e70cd133c7e855fa77435bb (diff) | |
| download | emacs-c700c260e6ac76dc99449dfc3e4c371b7863f1a1.tar.gz | |
(read_key_sequence): In key-translation-map and
function-key-map, handle symbol with array as fn def.
In function-key-map, handle symbol with keymap as fn def,
and autoloaded definitions.
| -rw-r--r-- | src/keyboard.c | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index a8a620a4e53..899f83b50f1 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -7401,7 +7401,21 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, fkey_next = fkey_map; fkey_next - = get_keyelt (access_keymap (fkey_next, key, 1, 0), 0); + = 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); + + /* 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 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. */ @@ -7511,15 +7525,18 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, keytran_next = get_keyelt (access_keymap (keytran_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); - /* Handle a symbol whose function definition is a keymap. */ + /* Handle a symbol whose function definition is a keymap + or an array. */ if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next)) - && !NILP (Fkeymapp (XSYMBOL (keytran_next)->function))) + && (!NILP (Farrayp (XSYMBOL (keytran_next)->function)) + || !NILP (Fkeymapp (XSYMBOL (keytran_next)->function)))) keytran_next = XSYMBOL (keytran_next)->function; /* If the key translation map gives a function, not an |