diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2002-04-05 13:36:51 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2002-04-05 13:36:51 +0000 |
| commit | b9f0b172547872063fae513492199fbc2bf219fd (patch) | |
| tree | 6ea22e54d863f1ff501db7a37b22414ca5a7ce8d /src/callint.c | |
| parent | f5bceaf89b3b88f42da85cbce98cadf9429c3974 (diff) | |
| download | emacs-b9f0b172547872063fae513492199fbc2bf219fd.tar.gz | |
(Fcall_interactively): Use INTEGERP instead of
NUMBERP for checking Vhistory_length.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/callint.c b/src/callint.c index 35e1047bc70..fec25a3411a 100644 --- a/src/callint.c +++ b/src/callint.c @@ -1,5 +1,5 @@ /* Call a Lisp function interactively. - Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000 + Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000, 2002 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -346,7 +346,7 @@ supply if the command inquires which events were used to invoke it. */) = Fcons (Fcons (function, values), Vcommand_history); /* Don't keep command history around forever. */ - if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0) + if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0) { teml = Fnthcdr (Vhistory_length, Vcommand_history); if (CONSP (teml)) @@ -764,7 +764,7 @@ supply if the command inquires which events were used to invoke it. */) Vcommand_history = Fcons (Flist (count + 1, visargs), Vcommand_history); /* Don't keep command history around forever. */ - if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0) + if (INTEGERP (Vhistory_length) && XINT (Vhistory_length) > 0) { teml = Fnthcdr (Vhistory_length, Vcommand_history); if (CONSP (teml)) |