diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-27 17:21:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-27 17:21:54 +0000 |
| commit | ab21f5d3111ff75056d2ef655fae0e61544c66b4 (patch) | |
| tree | 8066bb66c9ecd9754cf305f4909b3753ddcbe893 /src | |
| parent | 11707f491bea96c10b76be5962b97c2cdfbd2ab8 (diff) | |
| download | emacs-ab21f5d3111ff75056d2ef655fae0e61544c66b4.tar.gz | |
(concat): Fix use of Fchar_bytes.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index 29ecef48712..d7bb5419f67 100644 --- a/src/fns.c +++ b/src/fns.c @@ -427,7 +427,7 @@ concat (nargs, args, target_type, last_special) ch = XVECTOR (this)->contents[i]; if (! INTEGERP (ch)) wrong_type_argument (Qintegerp, ch); - leni += Fchar_bytes (ch); + leni += XFASTINT (Fchar_bytes (ch)); } else for (; CONSP (this); this = XCONS (this)->cdr) @@ -435,7 +435,7 @@ concat (nargs, args, target_type, last_special) ch = XCONS (this)->car; if (! INTEGERP (ch)) wrong_type_argument (Qintegerp, ch); - leni += Fchar_bytes (ch); + leni += XFASTINT (Fchar_bytes (ch)); } } else |