Mercurial > emacs

diff src/callint.c @ 12228:f4627b2f17dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fprefix_numeric_value): Fix type check.
author Karl Heuer <kwzh@gnu.org>
date Wed, 14 Jun 1995 22:18:34 +0000
parents 3fa5b6e7ad4b
children 5f8972720e72
line wrap: on
line diff
--- a/src/callint.c	Wed Jun 14 22:11:21 1995 +0000
+++ b/src/callint.c	Wed Jun 14 22:18:34 1995 +0000
@@ -644,7 +644,7 @@
     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;