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))