From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 14 Jun 1995 22:18:34 +0000 (+0000)
Subject: (Fprefix_numeric_value): Fix type check.
X-Git-Tag: emacs-19.34~3631
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3399a477eacf69b8c401b4ee54a309e15765211e;p=emacs.git

(Fprefix_numeric_value): Fix type check.
---

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;