(Fcall_interactively): Use INTEGERP instead of

NUMBERP for checking Vhistory_length.

diff --git a/src/ChangeLog b/src/ChangeLog
index c0da7e669e74bee396ad8e15b51b38a67c1cb427..79f7f712466d1e91d84d6068dba7cbbc5cd3f0db 100644 (file)
--- 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\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * sound.c (Fplay_sound_internal): Renamed from Fplay_sound.

diff --git a/src/callint.c b/src/callint.c
index 35e1047bc7087e1ca054baf2d5ec5ae25133f48f..fec25a3411a58125ce28b7305d3e47b9adb2ba0c 100644 (file)
--- 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))