(Fprefix_numeric_value): Fix type check.

diff --git a/src/callint.c b/src/callint.c
index cb49ec0ef938b93220dfdf10d78159c6bcab8ccb..de43d888fe9dbe330c153b0a06782041784806fc 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -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;