diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-06-14 22:18:34 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-06-14 22:18:34 +0000 |
| commit | 3399a477eacf69b8c401b4ee54a309e15765211e (patch) | |
| tree | 667c4625f95decd165e675d6c417573c65b39e35 /src/callint.c | |
| parent | d9b641bb9642531cfe2073a11fd888febfc070d0 (diff) | |
| download | emacs-3399a477eacf69b8c401b4ee54a309e15765211e.tar.gz | |
(Fprefix_numeric_value): Fix type check.
Diffstat (limited to 'src/callint.c')
| -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; |