# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 899960039 0
# Node ID eb18b97af384cf90febf59568f2dd83b11da4079
# Parent  e44440f1a80e2cd540ab67e60f1098ba8cd78346
(set-language-environment): Test unibyte-syntax instead of using a
fixed list of latin-N character sets.

diff -r e44440f1a80e -r eb18b97af384 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jul 09 04:53:28 1998 +0000
+++ b/lisp/international/mule-cmds.el	Thu Jul 09 04:53:59 1998 +0000
@@ -886,8 +886,7 @@
 	(run-hooks 'exit-language-environment-hook)
 	(if (fboundp func) (funcall func))))
   (when (and (not default-enable-multibyte-characters)
-	     (member (downcase language-name)
-		     '("latin-1" "latin-2" "latin-3" "latin-4" "latin-5")))
+	     (get-language-info language-name 'unibyte-syntax))
     (set-terminal-coding-system (intern (downcase language-name)))
     (standard-display-european-internal))
   (setq current-language-environment language-name)