diff options
Diffstat (limited to 'src/keymap.c')
-rw-r--r-- | src/keymap.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/keymap.c b/src/keymap.c index 5fde6b20a74..89a273db972 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1,11 +1,11 @@ /* Manipulation of keymaps - Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 1, or (at your option) +the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, @@ -174,12 +174,7 @@ get_keymap_1 (object, error) { register Lisp_Object tem; - tem = object; - while (XTYPE (tem) == Lisp_Symbol && !EQ (tem, Qunbound)) - { - tem = XSYMBOL (tem)->function; - QUIT; - } + tem = indirect_function (object); if (CONSP (tem) && EQ (XCONS (tem)->car, Qkeymap)) return tem; if (error) |