Skip to content

GitLab

Commit b9f0b172 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fcall_interactively): Use INTEGERP instead of 

NUMBERP for checking Vhistory_length.
parent f5bceaf8
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 3 deletions
src/ChangeLog
View file @ b9f0b172
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.
......
src/callint.c
View file @ b9f0b172
/* 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