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
06f57aa7
Commit
06f57aa7
authored
Jan 21, 1998
by
Richard M. Stallman
Browse files
(concat): Use unibyte_char_to_multibyte.
Fix lossage in installing previous patch.
parent
d0628b06
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
12 deletions
+4
-12
src/fns.c
src/fns.c
+4
-12
No files found.
src/fns.c
View file @
06f57aa7
...
...
@@ -473,7 +473,7 @@ concat (nargs, args, target_type, last_special)
}
else if (STRINGP (this))
{
result_len_byte
+=
XSTRING
(
this
)
->
size_byte
;
if (STRING_MULTIBYTE (this))
{
some_multibyte = 1;
result_len_byte += XSTRING (this)->size_byte;
...
...
@@ -572,17 +572,9 @@ concat (nargs, args, target_type, last_special)
{
unsigned char c;
XSETFASTINT (elt, XSTRING (this)->data[thisindex++]);
if
(
some_multibyte
&&
XINT
(
elt
)
>=
0200
&&
XINT
(
elt
)
<
0400
)
{
c
=
XINT
(
elt
);
if
(
nonascii_insert_offset
>
0
)
c
+=
nonascii_insert_offset
;
else
c
+=
DEFAULT_NONASCII_INSERT_OFFSET
;
XSETINT
(
elt
,
c
);
}
if (some_multibyte)
XSETINT (elt,
unibyte_char_to_multibyte (XINT (elt)));
}
}
else if (BOOL_VECTOR_P (this))
...
...
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