diff options
| author | Karl Heuer | 1995-06-14 22:18:34 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-06-14 22:18:34 +0000 |
| commit | 3399a477eacf69b8c401b4ee54a309e15765211e (patch) | |
| tree | 667c4625f95decd165e675d6c417573c65b39e35 /src | |
| parent | d9b641bb9642531cfe2073a11fd888febfc070d0 (diff) | |
| download | emacs-3399a477eacf69b8c401b4ee54a309e15765211e.tar.gz emacs-3399a477eacf69b8c401b4ee54a309e15765211e.zip | |
(Fprefix_numeric_value): Fix type check.
Diffstat (limited to 'src')
| -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\")'.") | |||
| 644 | XSETFASTINT (val, 1); | 644 | XSETFASTINT (val, 1); |
| 645 | else if (EQ (raw, Qminus)) | 645 | else if (EQ (raw, Qminus)) |
| 646 | XSETINT (val, -1); | 646 | XSETINT (val, -1); |
| 647 | else if (CONSP (raw)) | 647 | else if (CONSP (raw) && INTEGERP (XCONS (raw)->car)) |
| 648 | XSETINT (val, XINT (XCONS (raw)->car)); | 648 | XSETINT (val, XINT (XCONS (raw)->car)); |
| 649 | else if (INTEGERP (raw)) | 649 | else if (INTEGERP (raw)) |
| 650 | val = raw; | 650 | val = raw; |