Mercurial > emacs
changeset 44405:0ed69545b5f3
(Fcall_interactively): Use INTEGERP instead of
NUMBERP for checking Vhistory_length.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Apr 2002 13:36:36 +0000 |
| parents | 21e4d76a9e8a |
| children | 717a1739e0c8 |
| files | src/callint.c |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Fri Apr 05 09:18:57 2002 +0000 +++ b/src/callint.c Fri Apr 05 13:36:36 2002 +0000 @@ -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 @@ = 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 @@ 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))