(Fcall_interactively): Use INTEGERP instead of

NUMBERP for checking Vhistory_length.

2 files changed, 8 insertions, 3 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index c0da7e669e7..79f7f712466 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-05  Gerd Moellmann  <gerd@gnu.org>
+
+        * callint.c (Fcall_interactively): Use INTEGERP instead of 
+        NUMBERP for checking Vhistory_length.
+
 2002-04-05  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
         * sound.c (Fplay_sound_internal): Renamed from Fplay_sound.
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))