(concat): If Vnonascii_translation_table is non-nil, try

[gnu-emacs] / src / fns.c

diff --git a/src/fns.c b/src/fns.c
index a4a3fb882a98da4574a6eb4eac0add8a7fe4075a..f0a387ecd210ff2f285c2812e73ea5c832fabf31 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -709,7 +709,9 @@ concat (nargs, args, target_type, last_special)
                else
                  {
                    XSETFASTINT (elt, XSTRING (this)->data[thisindex++]);
-                   if (some_multibyte && XINT (elt) >= 0200
+                   if (some_multibyte
+                       && (XINT (elt) >= 0240
+                           || ! NILP (Vnonascii_translation_table))
                        && XINT (elt) < 0400)
                      {
                        c = unibyte_char_to_multibyte (XINT (elt));