Mercurial > emacs

changeset 36406:f5bdd1200e0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Faccessible_keymaps): Pass `is_metized' to accessible_keymaps_char_table. (accessible_keymaps_char_table): Obey `is_metized'. (where_is_internal, Fwhere_is_internal): Don't confuse int and Lisp_Object.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 26 Feb 2001 17:16:00 +0000
parents 7fe1b8d8fc44
children bd93619c67d4
files src/keymap.c
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/keymap.c	Mon Feb 26 17:07:47 2001 +0000
+++ b/src/keymap.c	Mon Feb 26 17:16:00 2001 +0000
@@ -1537,7 +1537,7 @@
 	      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 @@
      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));