diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-10 22:35:21 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-10 22:35:21 +0000 |
| commit | 32e2fb042912d91fdb27290fb2c1ec76b45582a1 (patch) | |
| tree | 29f72351517d6d0a5a09a9ad8f793b68c9949b8f /src/keymap.c | |
| parent | 507ecaf998ad73f7d15168c91668aa63ca1f20d1 (diff) | |
| download | emacs-32e2fb042912d91fdb27290fb2c1ec76b45582a1.tar.gz | |
(Fkeymap_prompt): Accept symbol keymaps.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 6 |
1 files changed, 3 insertions, 3 deletions
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; } |