From 32e2fb042912d91fdb27290fb2c1ec76b45582a1 Mon Sep 17 00:00:00 2001
From: Stefan Monnier
Date: Wed, 10 Nov 2004 22:35:21 +0000
Subject: (Fkeymap_prompt): Accept symbol keymaps.

---
 src/keymap.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/keymap.c')

diff --git a/src/keymap.c b/src/keymap.c
index 105a5b95793..a0d5c3b5be5 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -213,13 +213,13 @@ when reading a key-sequence to be looked-up in this keymap.  */)
      (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;
 }
-- 
cgit v1.2.1