Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(read_key_sequence): Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1999-01-24 20:08:10 +00:00
parent cf591cc18b
commit 0afc861ba9
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/keyboard.c
View file

@ -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. */