Mercurial > emacs
changeset 21768:00ecdcdf9120
(setup-8-bit-environment): If default-enable-multibyte-characters is nil,
call standard-display-european, and don't set nonascii-insert-offset
or default-input-method.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 26 Apr 1998 00:13:54 +0000 |
| parents | 9c04115476e6 |
| children | 07999a47f2ee |
| files | lisp/language/european.el |
| diffstat | 1 files changed, 14 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/european.el Sun Apr 26 00:13:36 1998 +0000 +++ b/lisp/language/european.el Sun Apr 26 00:13:54 1998 +0000 @@ -34,14 +34,21 @@ (setup-english-environment) (set-language-environment-coding-systems language) - (if charset - (let ((nonascii-offset (- (make-char charset) 128))) - ;; Set up for insertion of characters in this character set - ;; when codes 0200 - 0377 are typed in. - (setq nonascii-insert-offset nonascii-offset))) + (when 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 input-method - (setq default-input-method input-method)) + (unless default-enable-multibyte-characters + (if charset + (let ((nonascii-offset (- (make-char charset) 128))) + ;; Set up for insertion of characters in this character set + ;; when codes 0200 - 0377 are typed in. + (setq nonascii-insert-offset nonascii-offset))) + + (if input-method + (setq default-input-method input-method))) ;; If this is a Latin-N character set, set up syntax for it in ;; single-byte mode. We can't use require because the file