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 } |