Revert last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76c6ec83994cd50b411a62ecb03464135941ec63..28108231a61303f9a798e203a606dbcbb094ec1c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,3 @@
-2005-11-19  Andreas Schwab  <schwab@suse.de>
-
-       * international/mule-cmds.el (set-language-environment): Always
-       call set-display-table-and-terminal-coding-system.
-
 2005-11-19  Chong Yidong  <cyd@stupidchicken.com>
 
        * longlines.el (longlines-before-revert-hook)

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 88ccd88df3878cd3baa4182eead80f162083cf46..c84a66bcd6366ded44ef727bb73c0782e096b760 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1883,10 +1883,8 @@ 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)))))))
-  ;; Always call this so that the display table is correctly set up for
-  ;; unibyte buffers.
-  (set-display-table-and-terminal-coding-system language-name)
+           (setq list (cdr list))))))
+    (set-display-table-and-terminal-coding-system language-name))
 
   (let ((required-features (get-language-info language-name 'features)))
     (while required-features