diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-05-18 08:13:37 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-05-18 08:13:37 +0000 |
| commit | 502ddf238f0ed280a301426804b2ed16ec1c49cc (patch) | |
| tree | b73b5866ff8c59b1be99067bcb342aea95294e8c /src/keymap.c | |
| parent | f9f15513851223c20a9cbc49ac0cd4cde114a963 (diff) | |
| download | emacs-502ddf238f0ed280a301426804b2ed16ec1c49cc.tar.gz | |
entered into RCS
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) |