# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 898665901 0
# Node ID 3d2804459d84d010287eb9d3baafbcdbc9cbeb7c
# Parent  4836a83d3578807f76b02e169121d2a3dc6513e3
(set-language-environment): Allow all language environments, even in
unibyte mode.  But set the terminal coding system only in the known few.

diff -r 4836a83d3578 -r 3d2804459d84 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Jun 24 05:10:54 1998 +0000
+++ b/lisp/international/mule-cmds.el	Wed Jun 24 05:25:01 1998 +0000
@@ -880,19 +880,16 @@
     (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-name)
-		'("latin-1" "latin-2" "latin-3" "latin-4" "latin-5"))
-	(error "Language environment `%s' not supported in unibyte mode"
-	       language-name))
-    (set-terminal-coding-system (intern (downcase language-name)))
-    (standard-display-european-internal))
-
   (if current-language-environment
       (let ((func (get-language-info current-language-environment
 				     'exit-function)))
 	(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")))
+    (set-terminal-coding-system (intern (downcase language-name)))
+    (standard-display-european-internal))
   (setq current-language-environment language-name)
   (funcall (get-language-info language-name 'setup-function))
   (run-hooks 'set-language-environment-hook)