Commit b9f0b172 authored by Gerd Moellmann's avatar Gerd Moellmann

(Fcall_interactively): Use INTEGERP instead of

NUMBERP for checking Vhistory_length.
parent f5bceaf8
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.
......
/* 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment