Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cc531c44
Commit
cc531c44
authored
Aug 28, 1998
by
Kenichi Handa
Browse files
(concat): Use macro CHAR_BYTES instead of Fchar_bytes.
parent
b778fdb3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
src/fns.c
src/fns.c
+2
-2
No files found.
src/fns.c
View file @
cc531c44
...
...
@@ -584,7 +584,7 @@ concat (nargs, args, target_type, last_special)
ch = XVECTOR (this)->contents[i];
if (! INTEGERP (ch))
wrong_type_argument (Qintegerp, ch);
this_len_byte
=
XFASTINT
(
Fchar_bytes
(
ch
));
this_len_byte =
CHAR_BYTES (XINT
(ch));
result_len_byte += this_len_byte;
if (this_len_byte > 1)
some_multibyte = 1;
...
...
@@ -597,7 +597,7 @@ concat (nargs, args, target_type, last_special)
ch = XCONS (this)->car;
if (! INTEGERP (ch))
wrong_type_argument (Qintegerp, ch);
this_len_byte
=
XFASTINT
(
Fchar_bytes
(
ch
));
this_len_byte =
CHAR_BYTES (XINT
(ch));
result_len_byte += this_len_byte;
if (this_len_byte > 1)
some_multibyte = 1;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment