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)
...
@@ -473,7 +473,7 @@ concat (nargs, args, target_type, last_special)
}
}
else
if
(
STRINGP
(
this
))
else
if
(
STRINGP
(
this
))
{
{
result_len_byte
+=
XSTRING
(
this
)
->
size_byte
;
if
(
STRING_MULTIBYTE
(
this
))
{
{
some_multibyte
=
1
;
some_multibyte
=
1
;
result_len_byte
+=
XSTRING
(
this
)
->
size_byte
;
result_len_byte
+=
XSTRING
(
this
)
->
size_byte
;
...
@@ -572,17 +572,9 @@ concat (nargs, args, target_type, last_special)
...
@@ -572,17 +572,9 @@ concat (nargs, args, target_type, last_special)
{
{
unsigned
char
c
;
unsigned
char
c
;
XSETFASTINT
(
elt
,
XSTRING
(
this
)
->
data
[
thisindex
++
]);
XSETFASTINT
(
elt
,
XSTRING
(
this
)
->
data
[
thisindex
++
]);
if
(
some_multibyte
&&
XINT
(
elt
)
>=
0200
if
(
some_multibyte
)
&&
XINT
(
elt
)
<
0400
)
XSETINT
(
elt
,
{
unibyte_char_to_multibyte
(
XINT
(
elt
)));
c
=
XINT
(
elt
);
if
(
nonascii_insert_offset
>
0
)
c
+=
nonascii_insert_offset
;
else
c
+=
DEFAULT_NONASCII_INSERT_OFFSET
;
XSETINT
(
elt
,
c
);
}
}
}
}
}
else
if
(
BOOL_VECTOR_P
(
this
))
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