From: Richard M. Stallman Date: Sun, 26 Apr 1998 02:50:41 +0000 (+0000) Subject: (set-language-environment): X-Git-Tag: emacs-20.3~1306 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e728468b452aed5d52bf0f235fa444b36af13a1e;p=emacs.git (set-language-environment): Check for language environments that can't work in unibyte. --- diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 94a2b4f9d12..e0c4145ce45 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -842,6 +842,12 @@ 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) + '("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)))