(set-language-environment): Always

call set-display-table-and-terminal-coding-system.
This commit is contained in:
Andreas Schwab 2005-11-19 17:42:56 +00:00
parent b39aa4fdf7
commit 75f21b6e69

View file

@ -1883,8 +1883,10 @@ specifies the character set for the major languages of Western Europe."
(while list
(with-current-buffer (car list)
(set-case-table (standard-case-table)))
(setq list (cdr list))))))
(set-display-table-and-terminal-coding-system language-name))
(setq list (cdr list)))))))
;; Always call this so that the display table is correctly set up for
;; unibyte buffers.
(set-display-table-and-terminal-coding-system language-name)
(let ((required-features (get-language-info language-name 'features)))
(while required-features