(set-language-environment): Always

call set-display-table-and-terminal-coding-system.

1 files 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