# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893559041 0
# Node ID 9693cb3a0f9dfdb4127c6a433529c0bd7de9da49
# Parent  07999a47f2ee6633a7d0fc839a8ab86013787d94
(set-language-environment):
Check for language environments that can't work in unibyte.

diff -r 07999a47f2ee -r 9693cb3a0f9d lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sun Apr 26 02:18:58 1998 +0000
+++ b/lisp/international/mule-cmds.el	Sun Apr 26 02:50:41 1998 +0000
@@ -842,6 +842,12 @@
     (setq language-name "English"))
   (if (null (get-language-info language-name 'setup-function))
       (error "Language environment not defined: %S" language-name))
+  (unless default-enable-multibyte-characters
+    (or (member (downcase language)
+		'("latin-1" "latin-2" "latin-3" "latin-4" "latin-5"))
+	(error "Language environment `%s' not supported in unibyte mode"))
+    (standard-display-european 1 (downcase language)))
+
   (if current-language-environment
       (let ((func (get-language-info current-language-environment
 				     'exit-function)))