From 75f21b6e695a656eb62f0c09ac8220409c88925a Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 19 Nov 2005 17:42:56 +0000 Subject: [PATCH] (set-language-environment): Always call set-display-table-and-terminal-coding-system. --- lisp/international/mule-cmds.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c84a66bcd63..88ccd88df38 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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 -- 2.39.2