Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b9f0b172
Commit
b9f0b172
authored
Apr 05, 2002
by
Gerd Moellmann
Browse files
(Fcall_interactively): Use INTEGERP instead of
NUMBERP for checking Vhistory_length.
parent
f5bceaf8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
3 deletions
+8
-3
src/ChangeLog
src/ChangeLog
+5
-0
src/callint.c
src/callint.c
+3
-3
No files found.
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
(
NUMB
ERP
(
Vhistory_length
)
&&
XINT
(
Vhistory_length
)
>
0
)
if
(
INTEG
ERP
(
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
(
NUMB
ERP
(
Vhistory_length
)
&&
XINT
(
Vhistory_length
)
>
0
)
if
(
INTEG
ERP
(
Vhistory_length
)
&&
XINT
(
Vhistory_length
)
>
0
)
{
teml
=
Fnthcdr
(
Vhistory_length
,
Vcommand_history
);
if
(
CONSP
(
teml
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment