Mercurial > emacs
changeset 12228:f4627b2f17dd
(Fprefix_numeric_value): Fix type check.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 14 Jun 1995 22:18:34 +0000 |
| parents | 24328f2358a1 |
| children | 697c01e75adc |
| files | src/callint.c |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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;