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 | e629f0884e5803c0d303d07dd137d4321c7477ce (patch) | |
| tree | 41ef57751430cca649b804004226987b7ae9d24c /src/macros.c | |
| parent | 1f7773424fb8c9b1b51f9eec2dd7ee7ade029ba5 (diff) | |
| download | emacs-e629f0884e5803c0d303d07dd137d4321c7477ce.tar.gz | |
entered into RCS
Diffstat (limited to 'src/macros.c')
| -rw-r--r-- | src/macros.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/macros.c b/src/macros.c index f9c158c89eb..64e91776f67 100644 --- a/src/macros.c +++ b/src/macros.c @@ -1,11 +1,11 @@ /* Keyboard macros. - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 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, @@ -201,9 +201,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.") prefixarg = Fprefix_numeric_value (prefixarg), repeat = XINT (prefixarg); - final = macro; - while (XTYPE (final) == Lisp_Symbol && !EQ (final, Qunbound)) - final = XSYMBOL (final)->function; + final = indirect_function (macro); if (XTYPE (final) != Lisp_String && XTYPE (final) != Lisp_Vector) error ("Keyboard macros must be strings or vectors."); |