mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

(Faccessible_keymaps): Pass `is_metized' to accessible_keymaps_char_table.

Browse Source 
(accessible_keymaps_char_table): Obey `is_metized'.
(where_is_internal, Fwhere_is_internal): Don't confuse int and Lisp_Object.
This commit is contained in:
Stefan Monnier 2001-02-26 17:16:00 +00:00
parent f58c64946e
commit fc18e5470d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/keymap.c
View File

@ -1537,7 +1537,7 @@ then the value includes only maps for prefixes that start with PREFIX.")
Lisp_Object indices[3];
map_char_table (accessible_keymaps_char_table, Qnil,
elt, Fcons (Fcons (maps, is_metized),
elt, Fcons (Fcons (maps, make_number (is_metized)),
Fcons (tail, thisseq)),
0, indices);
}
@ -1669,14 +1669,15 @@ accessible_keymaps_char_table (args, index, cmd)
Lisp_Object args, index, cmd;
{
Lisp_Object tem;
Lisp_Object maps, tail, thisseq, is_metized;
Lisp_Object maps, tail, thisseq;
int is_metized;
cmd = get_keyelt (cmd, 0);
if (NILP (cmd))
return;
maps = XCAR (XCAR (args));
is_metized = XCDR (XCAR (args));
is_metized = XINT (XCDR (XCAR (args)));
tail = XCAR (XCDR (args));
thisseq = XCDR (XCDR (args));