From 6e9ed08693e1abbb56bab7be0647d12814bf26e3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 9 Jul 1998 04:53:59 +0000 Subject: [PATCH] (set-language-environment): Test unibyte-syntax instead of using a fixed list of latin-N character sets. --- lisp/international/mule-cmds.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 9abff2d7cd7..c06f9e35c54 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -886,8 +886,7 @@ specifies the character set for the major languages of Western Europe." (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"))) + (get-language-info language-name 'unibyte-syntax)) (set-terminal-coding-system (intern (downcase language-name))) (standard-display-european-internal)) (setq current-language-environment language-name) -- 2.39.5