diff options
| author | Richard M. Stallman | 1998-07-09 04:53:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-07-09 04:53:59 +0000 |
| commit | 6e9ed08693e1abbb56bab7be0647d12814bf26e3 (patch) | |
| tree | 4fa88e4a22a9643205100530321305fd77fd4791 | |
| parent | 16b2eb50164ab81982e0bf9e86342953d0ae3e3f (diff) | |
| download | emacs-6e9ed08693e1abbb56bab7be0647d12814bf26e3.tar.gz emacs-6e9ed08693e1abbb56bab7be0647d12814bf26e3.zip | |
(set-language-environment): Test unibyte-syntax instead of using a
fixed list of latin-N character sets.
| -rw-r--r-- | lisp/international/mule-cmds.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 886 | (run-hooks 'exit-language-environment-hook) | 886 | (run-hooks 'exit-language-environment-hook) |
| 887 | (if (fboundp func) (funcall func)))) | 887 | (if (fboundp func) (funcall func)))) |
| 888 | (when (and (not default-enable-multibyte-characters) | 888 | (when (and (not default-enable-multibyte-characters) |
| 889 | (member (downcase language-name) | 889 | (get-language-info language-name 'unibyte-syntax)) |
| 890 | '("latin-1" "latin-2" "latin-3" "latin-4" "latin-5"))) | ||
| 891 | (set-terminal-coding-system (intern (downcase language-name))) | 890 | (set-terminal-coding-system (intern (downcase language-name))) |
| 892 | (standard-display-european-internal)) | 891 | (standard-display-european-internal)) |
| 893 | (setq current-language-environment language-name) | 892 | (setq current-language-environment language-name) |