Mercurial > emacs
changeset 21770:9693cb3a0f9d
(set-language-environment):
Check for language environments that can't work in unibyte.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 26 Apr 1998 02:50:41 +0000 |
| parents | 07999a47f2ee |
| children | 5370881bfbd6 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Sun Apr 26 02:18:58 1998 +0000 +++ b/lisp/international/mule-cmds.el Sun Apr 26 02:50:41 1998 +0000 @@ -842,6 +842,12 @@ (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) + '("latin-1" "latin-2" "latin-3" "latin-4" "latin-5")) + (error "Language environment `%s' not supported in unibyte mode")) + (standard-display-european 1 (downcase language))) + (if current-language-environment (let ((func (get-language-info current-language-environment 'exit-function)))