mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(Fprefix_numeric_value): Fix type check.

Browse source
This commit is contained in:
Karl Heuer 1995-06-14 22:18:34 +00:00
parent d9b641bb96
commit 3399a477ea
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/callint.c
View file

@ -644,7 +644,7 @@ Its numeric meaning is what you would get from `(interactive \"p\")'.")
XSETFASTINT (val, 1);
else if (EQ (raw, Qminus))
XSETINT (val, -1);
else if (CONSP (raw))
else if (CONSP (raw) && INTEGERP (XCONS (raw)->car))
XSETINT (val, XINT (XCONS (raw)->car));
else if (INTEGERP (raw))
val = raw;