From: Kenichi Handa <handa@m17n.org>
Date: Mon, 31 Aug 1998 03:50:17 +0000 (+0000)
Subject: (concat): If Vnonascii_translation_table is non-nil, try
X-Git-Tag: emacs-20.4~1797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0e25273d2f53f155ca0bd183db9e148f6f3cd6c;p=emacs.git

(concat): If Vnonascii_translation_table is non-nil, try
to convert a character less than 160 to multibyte.
---

diff --git a/src/fns.c b/src/fns.c
index a4a3fb882a9..f0a387ecd21 100644
--- 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));