Mercurial > emacs

diff src/keymap.c @ 58129:6f1bde62e20e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fkeymap_prompt): Accept symbol keymaps.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 10 Nov 2004 22:35:21 +0000
parents 3965acfc4e80
children 8b3b0ccbe80b 3ec251523b3e cb7f41387eb3
line wrap: on
line diff
--- a/src/keymap.c	Wed Nov 10 20:17:34 2004 +0000
+++ b/src/keymap.c	Wed Nov 10 22:35:21 2004 +0000
@@ -213,13 +213,13 @@
      (map)
      Lisp_Object map;
 {
+  map = get_keymap (map, 0, 0);
   while (CONSP (map))
     {
-      register Lisp_Object tem;
-      tem = Fcar (map);
+      Lisp_Object tem = XCAR (map);
       if (STRINGP (tem))
 	return tem;
-      map = Fcdr (map);
+      map = XCDR (map);
     }
   return Qnil;
 }