Mercurial > emacs
comparison src/callint.c @ 9290:27aad4f82051
(Fprefix_numeric_value): No longer necessary to set type separately.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 14:20:54 +0000 |
| parents | dda75a4dbbfb |
| children | 6e3aea54fc01 |
comparison
equal
deleted
inserted
replaced
| 9289:e5a850de0ba8 | 9290:27aad4f82051 |
|---|---|
| 597 (raw) | 597 (raw) |
| 598 Lisp_Object raw; | 598 Lisp_Object raw; |
| 599 { | 599 { |
| 600 Lisp_Object val; | 600 Lisp_Object val; |
| 601 | 601 |
| 602 /* Tag val as an integer, so the rest of the assignments | |
| 603 may use XSETINT. */ | |
| 604 XFASTINT (val) = 0; | |
| 605 | |
| 606 if (NILP (raw)) | 602 if (NILP (raw)) |
| 607 XFASTINT (val) = 1; | 603 XFASTINT (val) = 1; |
| 608 else if (EQ (raw, Qminus)) | 604 else if (EQ (raw, Qminus)) |
| 609 XSETINT (val, -1); | 605 XSETINT (val, -1); |
| 610 else if (CONSP (raw)) | 606 else if (CONSP (raw)) |