# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1018013796 0
# Node ID 0ed69545b5f3618e0a94a747ea88e43ddfb0aa4a
# Parent  21e4d76a9e8a3cde5d2b6d51b8666bf565321fe5
(Fcall_interactively): Use INTEGERP instead of
NUMBERP for checking Vhistory_length.

diff -r 21e4d76a9e8a -r 0ed69545b5f3 src/callint.c
--- 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))