Commit 3399a477 authored by Karl Heuer's avatar Karl Heuer

(Fprefix_numeric_value): Fix type check.

parent d9b641bb
......@@ -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;
......
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