(setup-8-bit-environment): Do not

call set-terminal-coding-system and set-keyboard-coding-system,
instead call set-defualt-coding-systems.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 86aed5f3c692def3d531b62c161425f507694053..ae8bb58a27ff972fec27f9ced48f39cad18b6fad 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -42,11 +42,9 @@
 ;; 8-bit CODING-SYSTEM, and INPUT-METHOD.
 (defun setup-8-bit-environment (language charset coding-system input-method)
   (setup-english-environment)
-  (setq-default buffer-file-coding-system coding-system)
+  (set-default-coding-systems coding-system)
   (setq coding-category-iso-8-1 coding-system
        coding-category-iso-8-2 coding-system)
-  (set-terminal-coding-system-internal coding-system)
-  (set-keyboard-coding-system-internal coding-system)
   (setq sendmail-coding-system coding-system
        rmail-file-coding-system coding-system)