From 3399a477eacf69b8c401b4ee54a309e15765211e Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 14 Jun 1995 22:18:34 +0000
Subject: [PATCH] (Fprefix_numeric_value): Fix type check.

---
 src/callint.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/callint.c b/src/callint.c
index cb49ec0ef93..de43d888fe9 100644
--- 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;
-- 
2.39.2