From 9307a9db6a3ed25f46c4884acf4d157df00e3a88 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 24 Jun 1998 05:25:01 +0000 Subject: [PATCH] (set-language-environment): Allow all language environments, even in unibyte mode. But set the terminal coding system only in the known few. --- lisp/international/mule-cmds.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 01b586df584..9abff2d7cd7 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -880,19 +880,16 @@ specifies the character set for the major languages of Western Europe." (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) -- 2.39.2