Mercurial > emacs
changeset 22727:eb18b97af384
(set-language-environment): Test unibyte-syntax instead of using a
fixed list of latin-N character sets.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 09 Jul 1998 04:53:59 +0000 |
| parents | e44440f1a80e |
| children | 4596d7f197d8 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Jul 09 04:53:28 1998 +0000 +++ b/lisp/international/mule-cmds.el Thu Jul 09 04:53:59 1998 +0000 @@ -886,8 +886,7 @@ (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)