Mercurial > emacs
diff src/callint.c @ 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 | 531bd3a9e67a |
| children | 08d6b23b2513 |
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))