diff options
| -rw-r--r-- | src/callint.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |