Mercurial > emacs
comparison src/fns.c @ 19573:9305d9d0d285
(concat): Fix use of Fchar_bytes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Aug 1997 17:21:54 +0000 |
| parents | 6d3cc8864678 |
| children | de15e679191e |
comparison
equal
deleted
inserted
replaced
| 19572:30e299bb4a5d | 19573:9305d9d0d285 |
|---|---|
| 425 for (i = 0; i < XFASTINT (len); i++) | 425 for (i = 0; i < XFASTINT (len); i++) |
| 426 { | 426 { |
| 427 ch = XVECTOR (this)->contents[i]; | 427 ch = XVECTOR (this)->contents[i]; |
| 428 if (! INTEGERP (ch)) | 428 if (! INTEGERP (ch)) |
| 429 wrong_type_argument (Qintegerp, ch); | 429 wrong_type_argument (Qintegerp, ch); |
| 430 leni += Fchar_bytes (ch); | 430 leni += XFASTINT (Fchar_bytes (ch)); |
| 431 } | 431 } |
| 432 else | 432 else |
| 433 for (; CONSP (this); this = XCONS (this)->cdr) | 433 for (; CONSP (this); this = XCONS (this)->cdr) |
| 434 { | 434 { |
| 435 ch = XCONS (this)->car; | 435 ch = XCONS (this)->car; |
| 436 if (! INTEGERP (ch)) | 436 if (! INTEGERP (ch)) |
| 437 wrong_type_argument (Qintegerp, ch); | 437 wrong_type_argument (Qintegerp, ch); |
| 438 leni += Fchar_bytes (ch); | 438 leni += XFASTINT (Fchar_bytes (ch)); |
| 439 } | 439 } |
| 440 } | 440 } |
| 441 else | 441 else |
| 442 leni += XFASTINT (len); | 442 leni += XFASTINT (len); |
| 443 } | 443 } |