# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893549634 0
# Node ID 00ecdcdf9120f36e38cda54e2715a60ee2d48b57
# Parent  9c04115476e6e5a09a2f93cf01664fcdaeb2cb26
(setup-8-bit-environment): If default-enable-multibyte-characters is nil,
call standard-display-european, and don't set nonascii-insert-offset
or default-input-method.

diff -r 9c04115476e6 -r 00ecdcdf9120 lisp/language/european.el
--- a/lisp/language/european.el	Sun Apr 26 00:13:36 1998 +0000
+++ b/lisp/language/european.el	Sun Apr 26 00:13:54 1998 +0000
@@ -34,14 +34,21 @@
   (setup-english-environment)
   (set-language-environment-coding-systems language)
 
-  (if charset
-      (let ((nonascii-offset (- (make-char charset) 128)))
-	;; Set up for insertion of characters in this character set
-	;; when codes 0200 - 0377 are typed in.
-	(setq nonascii-insert-offset nonascii-offset)))
+  (when 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 input-method
-      (setq default-input-method input-method))
+  (unless default-enable-multibyte-characters
+    (if charset
+	(let ((nonascii-offset (- (make-char charset) 128)))
+	  ;; Set up for insertion of characters in this character set
+	  ;; when codes 0200 - 0377 are typed in.
+	  (setq nonascii-insert-offset nonascii-offset)))
+
+    (if input-method
+	(setq default-input-method input-method)))
 
   ;; If this is a Latin-N character set, set up syntax for it in
   ;; single-byte mode.  We can't use require because the file