From: Gerd Moellmann Date: Fri, 5 Apr 2002 13:36:51 +0000 (+0000) Subject: (Fcall_interactively): Use INTEGERP instead of X-Git-Tag: ttn-vms-21-2-B4~15772 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9f0b172547872063fae513492199fbc2bf219fd;p=emacs.git (Fcall_interactively): Use INTEGERP instead of NUMBERP for checking Vhistory_length. --- 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 + + * callint.c (Fcall_interactively): Use INTEGERP instead of + NUMBERP for checking Vhistory_length. + 2002-04-05 Pavel Jan,Bm(Bk * 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))